(تمت الفائدة) تصدير تقرير اكسس 2007 الى الاكسل

[الصمت المتحدث]

السلام عليكم

توقفت عند مشكلة صغيرة و هي تصدير تقرير اكسس 2007 الى الاكسل

فهل من حل برمجي للمشكل؟

وشكرا

[أبو آدم]

الحل في 2007 بتصدير الاستعلام مصدر التقرير ...

ارفق مثالا للتطبيق .....

............

[الصمت المتحدث]

بارك الله فيك أخي الطيب أبا آدم

تم التوصل الى حل وسط بتصدير التقرير بتنسيق كل من Html, pdf , rtf ..

وليس بالضرورة الآن البحث عن تنسيق اكسل

حفظك الله ورعاك أخي

[أبو آدم]

عموماً وتحقيقاً للعنوان المطروح ولعموم الفائدة ....

نقول ....

Private Sub Command0_Click()

On Error GoTo MyErr

Dim MyPath As String, MyFile As String

Dim I As Integer

MyPath = CurrentProject.Path & "\"

MyFile = "Contacts.xlsx"

I = MsgBox("Export Server Comparison to Excel ?", vbYesNo)

If I = vbNo Then

    MsgBox "Ok....."

    GoTo MyExit

Else

    DoCmd.TransferSpreadsheet acExport, , "Contacts Query", MyPath & MyFile, True

    MsgBox "Export sent to " & MyPath & MyFile

End If

MyExit:

    Exit Sub

MyErr:

    MsgBox "Error# " & Err.Number & vbCrLf & Err.Description

    Resume MyExit

End Sub

والله من وراء القصد ... وهو حسبي

............

[أبو آدم]

تمت الفائدة

.............

[رعد العزاني]

استاذي ابو ادم جزاك الله عنا خير على كل ما تقدمة

وكل عام وانتم بالف خير

[الصمت المتحدث]

جزاك الله خير الجزاء وأجزل لك في العطاء يوم تطوى الأرض والسماء

[علي المصري]

السلام عليكم ورحمة الله وبركاته

بعد التجربة توصلت إلى الآتي :

الكود يعمل على الجداول في حالة اوفيس 2003 كالتالي :

Private Sub ToExcel_Click()


		 DoCmd.OutputTo acOutputTable, "MainTable", "MicrosoftExcelBiff8(*.xls)", "", False

Beep

MsgBox "xls has been created", vbInformation, "Export xls"

End Sub

الكود يعمل على اوفيس 2010 كالتالي

'Function getFilName() As String

Private Sub ToExcel_Click()


		 DoCmd.OutputTo acOutputTable, "MainTable", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint

'xlxs تنسيق ملف اكسيل 2010

Beep

MsgBox "xlsx has been created", vbInformation, "Export xlsx"

End Sub

حيث في الاخير يمكن تغيير الامتداد من xlsx ( تنسيق اوفيس 2007 وما بعده ) إلى xls ( تنسيق افيس 2003 وما قبله )

تم تعديل أكتوبر 28, 2012 بواسطه أبو آدم
إحتواء الكود