مطلوب اضافة الوقت لتاريخ انشاء ملف اكسل

[iibat]

موضح في المثال المرفق

 

 

شاكر ومقدر للجميع

Database1.accdb

[محمد أبوعبدالله]

استبدل الكود بالكود التالي

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

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

تحياتي

[iibat]

بارك الله فيك اخي الكريم (محمد أبوعبدالله) هذا هو المطلوب .