lمساعدة في استخراج اسم التقرير مع الاكسل

[سامر محمود]

الاخوة الكرام الافاضل 

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

بين ايديكم كود استخراج التقرير اكسل بس في غلطة مش عارفها اسم التقرير المفروض يطلع قبل التاريخ للاسف بيعمل Error ياريت تساعدوني اكون شاكر جدا

Dim reportname As String
Dim filenamepath As String
reportname = "jop_r"
filenamepath = CreateObject("wscript.shell").specialfolders("desktop") & "\" & Format("jop_r", Date, "dd-mm-yyyy") & ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, reportname, filenamepath, True
MsgBox "exported successfully"

[عمر ضاحى]

28 دقائق مضت, سامر محمود said:

الاخوة الكرام الافاضل 

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

بين ايديكم كود استخراج التقرير اكسل بس في غلطة مش عارفها اسم التقرير المفروض يطلع قبل التاريخ للاسف بيعمل Error ياريت تساعدوني اكون شاكر جدا

Dim reportname As String
Dim filenamepath As String
reportname = "jop_r"
filenamepath = CreateObject("wscript.shell").specialfolders("desktop") & "\" & Format("jop_r", Date, "dd-mm-yyyy") & ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, reportname, filenamepath, True
MsgBox "exported successfully"

جرب هذا الكود
فى كل مره هيسألك اين تريد حفظ التقرير

وقابل للتطوير

    Dim reportName, FileNameIs As String
    Dim fd As fileDialog
    Dim strFolderPath As String

    reportName = "RepPrintTallyPO"
    FileNameIs = "POs Report"
    Set fd = Application.fileDialog(msoFileDialogFolderPicker)

    If fd.Show = -1 Then
        strFolderPath = fd.SelectedItems(1)
        strFolderPath = strFolderPath & "\" & FileNameIs & ".xls"
        DoCmd.OutputTo acOutputReport, reportName, acFormatXLS, strFolderPath, False
        MsgBox "The File Saved On  ( " & strFolderPath & " ) Successfully"
    Else
        MsgBox " The file has been cancelled ", vbCritical
    End If

    Set fd = Nothing

 

تم تعديل نوفمبر 15, 2023 بواسطه عمر ضاحى

[سامر محمود]

منذ ساعه, عمر ضاحى said:

جرب هذا الكود
فى كل مره هيسألك اين تريد حفظ التقرير

وقابل للتطوير

    Dim reportName, FileNameIs As String
    Dim fd As fileDialog
    Dim strFolderPath As String

    reportName = "RepPrintTallyPO"
    FileNameIs = "POs Report"
    Set fd = Application.fileDialog(msoFileDialogFolderPicker)

    If fd.Show = -1 Then
        strFolderPath = fd.SelectedItems(1)
        strFolderPath = strFolderPath & "\" & FileNameIs & ".xls"
        DoCmd.OutputTo acOutputReport, reportName, acFormatXLS, strFolderPath, False
        MsgBox "The File Saved On  ( " & strFolderPath & " ) Successfully"
    Else
        MsgBox " The file has been cancelled ", vbCritical
    End If

    Set fd = Nothing

 

بشكرك جدا اخي @عمر ضاحى علي المساعدة الكريمة بس للاسف الكود مش ظابط معايا خالص مع اني عدلت فيه ورجعت للكود بتاعي بس طلع اخطاء كما في الصور اكون شاكر لحضرتك لو تعرفني الخطا فين 

[عمر ضاحى]

ما الخطأ الذى ظهر لك فى الكود الخاص بى ؟

 

ايضا ارفق ملف

 

[سامر محمود]

5 دقائق مضت, عمر ضاحى said:

ما الخطأ الذى ظهر لك فى الكود الخاص بى ؟

 

ايضا ارفق ملف

 

في Failedialog  مش عندي حاولت فيه مش موجود

[عمر ضاحى]

ده بسبب ان هناك مكتبه مفقود 

Microsoft Office x.x Object Library

طبعا x.x ترمز لرقم الاصدار الافيس ال عندك ومش هتفرق الرقم 

المهم تاكد من وجودها

[عمر ضاحى]

 

@سامر محمود

[سامر محمود]

6 دقائق مضت, عمر ضاحى said:

 

والله يا استاذ عمر راجعتهم سطر سطر مش موجودة @عمر ضاحى

[عمر ضاحى]

😅

هيكون راح فين بس 
ارفع ملف طيب اعمله لك

 

ابحث عن ملف اسمه MSO.dll 

هتلايه فى مجلد الاوفيس

 

[سامر محمود]

الان, عمر ضاحى said:

😅

هيكون راح فين بس 
ارفع ملف طيب اعمله لك

 

اخ @عمر ضاحى

انا عملتها بس رسائل الخطا مازلت موجودة شوف الصور كده

[عمر ضاحى]

ارفع ملف 

اتفضل هذا ملف من عندي عملته لك على السريع

Test.rar

 

[سامر محمود]

4 دقائق مضت, عمر ضاحى said:

ارفع ملف 

البرنامج كبير والله مش عارف اقطعه او ابعته بس بعت حاجة مصغرة لحضرتك يمكن نلاقي حل 

New Microsoft Access Database.accdb

[عمر ضاحى]

جرب الملف ال رفعته لك

[murady]

14 دقائق مضت, سامر محمود said:

البرنامج كبير والله مش عارف اقطعه او ابعته بس بعت حاجة مصغرة لحضرتك يمكن نلاقي حل 

New Microsoft Access Database.accdb 684 kB · 1 download

السلام عليكم 

اخى الفاضل سامر محمود

اختار المكتبة كما قال لك الاستاذ عمر 

لقد اختارتها فى المثال الذى رفعته 

بعد اذن الاستاذ عمر ضاحى

جرب المثال 

ارجو التوفيق والسداد

New Microsoft Access Database2.accdb

[سامر محمود]

4 دقائق مضت, murady said:

السلام عليكم 

اخى الفاضل سامر محمود

اختار المكتبة كما قال لك الاستاذ عمر 

لقد اختارتها فى المثال الذى رفعته 

بعد اذن الاستاذ عمر ضاحى

جرب المثال 

ارجو التوفيق والسداد

New Microsoft Access Database2.accdb 744 kB · 0 downloads

اخي @murady

انا جربت اللي حضرتك ساعدتني بيه والله وبردو نفس المشكلة مع ان نفس المكتبات اللي حضرتك بعتها عملتها بالظبط

[murady]

الان, سامر محمود said:

اخي @murady

انا جربت اللي حضرتك ساعدتني بيه والله وبردو نفس المشكلة مع ان نفس المكتبات اللي حضرتك بعتها عملتها بالظبط

انظر هذا هو المثال الذى رفعته

New Microsoft Access Database2.accdb

[murady]

اسف المثال الاول لم يتم التعديل عليه 

سهوًا منى 

جرب المثال الثانى المرفوع معه الصورة

[murady]

اخى الفاضل سامر محمود

ربما تكون المكتبة مش مرتبة ابجدى انزل بالمؤشر لأسفل الجدول سوف تجدها ان شاء الله

[سامر محمود]

الاخ الكريم @عمر ضاحى

الاخ الكريم @murady

بشكركم علي الدعم ومعلش تعبتكم معايا 

انا بجد محظوظ بيكم 

خالص تحياتي

[murady]

6 دقائق مضت, سامر محمود said:

الاخ الكريم @عمر ضاحى

الاخ الكريم @murady

بشكركم علي الدعم ومعلش تعبتكم معايا 

انا بجد محظوظ بيكم 

خالص تحياتي

هل انتهت المشكلة عندك ام لا

[سامر محمود]

1 دقيقه مضت, murady said:

هل انتهت المشكلة عندك ام لا

لا للاسف بس هحاول في الكود القديم الاول

[Foksh]

4 ساعات مضت, سامر محمود said:

الاخوة الكرام الافاضل 

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

بين ايديكم كود استخراج التقرير اكسل بس في غلطة مش عارفها اسم التقرير المفروض يطلع قبل التاريخ للاسف بيعمل Error ياريت تساعدوني اكون شاكر جدا

Dim reportname As String
Dim filenamepath As String
reportname = "jop_r"
filenamepath = CreateObject("wscript.shell").specialfolders("desktop") & "\" & Format("jop_r", Date, "dd-mm-yyyy") & ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, reportname, filenamepath, True
MsgBox "exported successfully"

من وجهة نظري ، جرب هذا الكود بعد هذا التعديل البسيط

 

Dim reportname As String
Dim filenamepath As String
reportname = "jop_r"
filenamepath = CreateObject("wscript.shell").specialfolders("desktop") & "\" & reportname & "_" & Format(Date, "dd-mm-yyyy") & ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, reportname, filenamepath, True
MsgBox "exported successfully",,""

 

[سامر محمود]

46 دقائق مضت, Foksh said:

من وجهة نظري ، جرب هذا الكود بعد هذا التعديل البسيط

 

Dim reportname As String
Dim filenamepath As String
reportname = "jop_r"
filenamepath = CreateObject("wscript.shell").specialfolders("desktop") & "\" & reportname & "_" & Format(Date, "dd-mm-yyyy") & ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, reportname, filenamepath, True
MsgBox "exported successfully",,""

 

 

[Foksh]

3 دقائق مضت, سامر محمود said:

 

ممكن ترسل مرفق بسيط ؟

[سامر محمود]

3 ساعات مضت, Foksh said:

ممكن ترسل مرفق بسيط ؟

اخي العزيز @Foksh

بعتذر عن التاخير كنت خرجت من الشغل

foksh.accdb