كيف يمكن بعد التصدير الى اكسل الحفظ فى فولدر (ملف) على سطح المكتب

[الحلبي]

السلام عليكم 

مرفق مثال 

قام الاستاذ / @Barna بوضع كود التصدير الى اكسل على سطح المكتب  جزاه الله خيرا

والان اريد ان احفظه على سطح المكتب فى فولدر ( ملف) بأى اسم 

وذلك لكثرة الملفات على سطح المكتب ولكن داخل ملف يكون احسن

جزاكم الله خير

تصدير الى اكسل.accdb

تم تعديل سبتمبر 17, 2021 بواسطه الحلبي

[Barna]

1 ساعه مضت, الحلبي said:

السلام عليكم 

مرفق مثال 

قام الاستاذ / @Barna بوضع كود التصدير الى اكسل على سطح المكتب  جزاه الله خيرا

والان اريد ان احفظه على سطح المكتب فى فولدر ( ملف) بأى اسم 

وذلك لكثرة الملفات على سطح المكتب ولكن داخل ملف يكون احسن

جزاكم الله خير

استخدم هذا الكود .......

Dim strDirectoryPath As String
strDirectoryPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "sample"
If Dir(strDirectoryPath, vbDirectory) = "" Then MkDir strDirectoryPath

  Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "sample" & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx"
  DoCmd.OutputTo acOutputQuery, "q1", "ExcelWorkbook(*.xlsx)", Output_Path, False, "", , acExportQualityPrint
MsgBox "تمت عملية انشاء المجلد باسم Sample بنجاح مع تصدير الملف", vbInformation, " مبروك "

 

[الحلبي]

استاذى ومعلمنا / @Barna

والله انت استاذ وعبقرى 

الله يفتح عليك ويزيدك من علمه 

هو المطلوب

كل الاحترام والتقدير