+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف يمكن تصدير كل ماهو موجه لتقرير active reports إلى إكسيل 2003 ؟؟؟ شكرا (/showthread.php?tid=31163)
كيف يمكن تصدير كل ماهو موجه لتقرير active reports إلى إكسيل 2003 ؟؟؟ شكرا - abdouhai - 01-09-19
السلام عليكم
جزاكم الله خيرا أولا و قبل كل شئ.
لدي تقرير من نوع active reports و به tableau به خانات و كل خانة تحمل معلومات معينة.
سؤالي : إخواني أريد مثالا أو كود يتم به تصدير هذه المعلومات الموجهة نحو التقرير أريد أن أرسلها إلى إكسيل 2003 كما هو ؟؟؟
شكرا لكم إخواني و تقبلوا تحياتي و تقديري لكم.
RE: كيف يمكن تصدير كل ماهو موجه لتقرير active reports إلى إكسيل 2003 ؟؟؟ شكرا - alaa_altunsi - 06-09-19
السلام عليكم
بحثت قبل فترة عن هذا السؤال و وصلت لطريقة وهي وضع ملف اكسل كامل التصميم بمسار تطبيقي ثم تصدير جدول قاعدة البيانات لذلك الصميم بعد نسخه كما في الكود
الاتي
ملاحظة: قمت بتقليل حجم الكود قدر المستطاع وأي سؤال اني حاضر
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
RE: كيف يمكن تصدير كل ماهو موجه لتقرير active reports إلى إكسيل 2003 ؟؟؟ شكرا - abdouhai - 07-09-19
alaa_altunsi
شكرا لك أخي على الرد. سأجرب الكود و أرد عليك النتيجة لكي تساعدني في الحلول على قدر مستطاعك
و الله المعين للجميع
RE: كيف يمكن تصدير كل ماهو موجه لتقرير active reports إلى إكسيل 2003 ؟؟؟ شكرا - Ahmed_Mansoor - 11-09-19
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , قم بالذهاب لقائمة 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