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"

[عمر ضاحى]

  في 15‏/11‏/2023 at 08:41, سامر محمود 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"

Expand  

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

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

    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 بواسطه عمر ضاحى

[سامر محمود]

  في 15‏/11‏/2023 at 09:09, عمر ضاحى 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

 

Expand  

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

[عمر ضاحى]

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

 

ايضا ارفق ملف

 

[سامر محمود]

  في 15‏/11‏/2023 at 10:58, عمر ضاحى said:

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

 

ايضا ارفق ملف

 

Expand  

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

[عمر ضاحى]

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

Microsoft Office x.x Object Library

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

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

[عمر ضاحى]

 

@سامر محمود

[سامر محمود]

  في 15‏/11‏/2023 at 11:12, عمر ضاحى said:

 

Expand  

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

[عمر ضاحى]

😅

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

 

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

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

 

[سامر محمود]

  في 15‏/11‏/2023 at 11:48, عمر ضاحى said:

😅

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

 

Expand  

اخ @عمر ضاحى

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

[عمر ضاحى]

ارفع ملف 

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

Test.rarFetching info...

 

[سامر محمود]

  في 15‏/11‏/2023 at 11:52, عمر ضاحى said:

ارفع ملف 

Expand  

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

New Microsoft Access Database.accdbFetching info...

[عمر ضاحى]

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

[murady]

  في 15‏/11‏/2023 at 11:57, سامر محمود said:

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

New Microsoft Access Database.accdb 684 kB · 1 download

Expand  

السلام عليكم 

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

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

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

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

جرب المثال 

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

New Microsoft Access Database2.accdbFetching info...

[سامر محمود]

  في 15‏/11‏/2023 at 12:15, murady said:

السلام عليكم 

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

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

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

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

جرب المثال 

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

New Microsoft Access Database2.accdb 744 kB · 0 downloads

Expand  

اخي @murady

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

[murady]

  في 15‏/11‏/2023 at 12:20, سامر محمود said:

اخي @murady

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

Expand  

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

New Microsoft Access Database2.accdbFetching info...

[murady]

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

سهوًا منى 

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

[murady]

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

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

[سامر محمود]

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

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

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

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

خالص تحياتي

[murady]

  في 15‏/11‏/2023 at 12:44, سامر محمود said:

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

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

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

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

خالص تحياتي

Expand  

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

[سامر محمود]

  في 15‏/11‏/2023 at 12:52, murady said:

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

Expand  

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

[Foksh]

  في 15‏/11‏/2023 at 08:41, سامر محمود 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"

Expand  

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

 

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",,""

 

[سامر محمود]

  في 15‏/11‏/2023 at 13:16, 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",,""

 

Expand  

 

[Foksh]

  في 15‏/11‏/2023 at 14:47, سامر محمود said:

 

Expand  

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

[سامر محمود]

  في 15‏/11‏/2023 at 14:50, Foksh said:

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

Expand  

اخي العزيز @Foksh

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

foksh.accdbFetching info...