تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف يمكن تصدير كل ماهو موجه لتقرير active reports إلى إكسيل 2003 ؟؟؟ شكرا
#1
السلام عليكم

جزاكم الله خيرا أولا و قبل كل شئ.

لدي تقرير من نوع active reports و به tableau  به خانات و كل خانة تحمل معلومات معينة.

سؤالي : إخواني أريد مثالا أو كود يتم به تصدير هذه المعلومات الموجهة نحو التقرير أريد أن أرسلها إلى إكسيل 2003 كما هو ؟؟؟

شكرا لكم إخواني و تقبلوا تحياتي و تقديري لكم.
الرد
تم الشكر بواسطة:
#2
السلام عليكم
بحثت قبل فترة عن هذا السؤال و وصلت لطريقة وهي وضع ملف اكسل كامل التصميم بمسار تطبيقي ثم تصدير جدول قاعدة البيانات لذلك الصميم بعد نسخه كما في الكود
الاتي
ملاحظة: قمت بتقليل حجم الكود قدر المستطاع وأي سؤال اني حاضر

Xy = App.Path
FileCopy Xy + "s.xlsx", CommonDialog1.FileName (هنا القالب الذي صممته مسبقا ليتم نسخه اولا للهدف الذي يخزن حسب رغبة المستخدم )

Dim objExcel As Excel.Application

Set objExcel = New Excel.Application

objExcel.Workbooks.Open CommonDialog1.FileName
objExcel.Worksheets("Sheet1").Activate

rs.Open "select * from em order by ID", connect, adOpenDynamic, adLockOptimistic
(هنا سيتم تصدير الحقول للاكسل)
Do While Not rs.EOF
objExcel.Cells(i + 1, 1).Value = i
objExcel.Cells(i + 1, 2).Value = rs.Fields!Nam
objExcel.Cells(i + 1, 3).Value = rs.Fields!empl
objExcel.Cells(i + 1, 4).Value = rs.Fields!Clas
objExcel.Cells(i + 1, 5).Value = rs.Fields!YearDate
objExcel.Cells(i + 1, 6).Value = rs.Fields!Marrige
objExcel.Cells(i + 1, 7).Value = rs.Fields!Children
objExcel.Cells(i + 1, 8).Value = rs.Fields!pric
objExcel.Cells(i + 1, 9).Value = rs.Fields!date1
objExcel.Cells(i + 1, 10).Value = rs.Fields!date2
objExcel.Cells(i + 1, 11).Value = rs.Fields!Mobile
objExcel.Cells(i + 1, 12).Value = rs.Fields!Ad
objExcel.Cells(i + 1, 13).Value = rs.Fields!State
rs.MoveNext
Loop
rs.Close
objExcel.ActiveWorkbook.Save
objExcel.Quit
Set objExcel = Nothing
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy
#3
alaa_altunsi

شكرا لك أخي على الرد. سأجرب الكود و أرد عليك النتيجة لكي تساعدني في الحلول على قدر مستطاعك 

و الله المعين للجميع
الرد
تم الشكر بواسطة:
#4
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , قم بالذهاب لقائمة Project أو مشروع ثم الأمر References أو مراجع ثم من الشاشة التي ستظهر لك إبحث عن ActiveReports Excel Export Filter وعلم عليه صح ثم إستخدم هذا الكود والذي هو موجود في ملف المساعده التابع لتقارير الأكتف ريبورت الذي يشرح كيفية عمليات التصدير :

PHP كود :
Private Sub mEExpt_Click()

Dim xls As ActiveReportsExcelExport.ARExportExcel
Dim sFile 
As String

Set xls 
= New ActiveReportsExcelExport.ARExportExcel

sFile 
"d:\test1.xls"

xls.FileName sFile

If ActiveReport1.Pages.Count 0 Then
   xls
.Export ActiveReport1.Pages
End 
If

End Sub 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , Microformt , hannileo


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] الغاء تحميل watermark icon عند فتح تقرير active reports tempman 1 131 منذ 11 ساعة مضت
آخر رد: hannileo
  هل يمكن استخدام برنامج يعمل بالباركود في تنزيل درجات امتحانات؟ gonm64 11 320 03-06-20, 05:16 AM
آخر رد: gonm64
Question [vb6.0] هل هناك كود يمكن تكبير الفورم من خلال موشر الفاره بطريقة السحب في حال تم الغاء هذه Microformt 3 58 21-05-20, 03:39 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] هل يمكن عمل نصين في Label واحد نص عريض والثاني نص عادي مثل الذي في الصوره؟ Microformt 5 110 19-05-20, 02:33 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف يمكن اجبار المستخدم ادخال صيغة الوقت في تكست بوكس بهذة الصيغة مثلا 08:06 ص؟ Microformt 2 94 04-05-20, 11:27 PM
آخر رد: Microformt
  استخدام Active Report hannileo 5 480 23-03-20, 12:09 PM
آخر رد: hannileo
  كيف يمكن تحويل برنامج الVB6 الى EXE اسلام الكبابى 3 180 22-03-20, 05:03 PM
آخر رد: اسلام الكبابى
  ماهو كود ارسال ملف الوورد الى الطابعة في نفس وقت تصديره للورد؟ gonm64 1 127 08-03-20, 09:24 AM
آخر رد: gonm64
  [vb6.0] طريقة الاتصال بقاعدة بيانات اكسس 2003 محمية برقم سري لتشغيل تقرير معمول بالاكيف ريبو وادي العوضي 1 148 06-03-20, 09:38 PM
آخر رد: وادي العوضي
  كيف يمكن الحفاظ على تسلسل ارقام حقول الجدول حتى بعد الحذف؟ gonm64 12 710 18-01-20, 12:52 AM
آخر رد: gonm64

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم