iibat قام بنشر أكتوبر 6, 2021 مشاركة قام بنشر أكتوبر 6, 2021 موضح في المثال المرفق شاكر ومقدر للجميع Database1.accdb رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أكتوبر 6, 2021 مشاركة قام بنشر أكتوبر 6, 2021 استبدل الكود بالكود التالي 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 " تحياتي 1 1 رابط هذا التعليق شارك More sharing options...
iibat قام بنشر أكتوبر 6, 2021 الكاتب مشاركة قام بنشر أكتوبر 6, 2021 بارك الله فيك اخي الكريم (محمد أبوعبدالله) هذا هو المطلوب . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.