السلام عليكم و رحمة الله و بركاته
رجاء تعديل الكود المرفق ليقوم بانشاء فولدر بالتاريخ الحالي فى ميار معين و تصدير ملف ال PDF لنفس اليوم الى نفس الفولدر فى نفس اليوم
و هكذا فى الايام التالية
ملاحظة تم تنفيذ انشاء الفولدر بتاريخ و تم تصدير ملف الاكسيل الى PDF بتاريخ و لكن الى نفس المسار الخارجي
ناقص بس ان ملف ال PDF يروح لمسار الفولدر فى نفس التاريخ
يعني ملفات مثلا 07/03 تروح لفولدر 07/03
و هكذا ملفات 08/03 تروح لفولدر 08/03
و شكرا
CODE
Sub CreateFolderWithDate()
Dim folderPath As String
Dim folderName As String
folderName = Format(Date, "yyyy-mm-dd") ' You can change the format as needed
folderPath = "E:\CENTER\BOAT LIST\" & folderName ' Change "C:\YourPath\" to your desired directory
If Dir(folderPath, vbDirectory) = "" Then
MkDir folderPath
Else
MsgBox "Folder already exists!"
End If
EXPORT_BOOT_LIST_PDF
End Sub
Sub EXPORT_BOOT_LIST_PDF()
'Ëã ÅÑÓÇáå Åáì ÇáÅíãíá [PDF] íÞæã ÇáßæÏ ÈÊÍæíá ÇáãáÝ Åáì
'------------------------------------------------------
Dim MyName As String
MyName = "E:\CENTER\BOAT LIST\BOAT LIST_" & Format(Now, "yyyy mm dd, hh.mm.ss AMPM") & ".pdf"
' Format(Date , "dd-mm-yyyy") & ".pdf"
' Format(Now, "yyyy mm dd, hh.mm.ss AMPM")
Range("A1").Select
Range("A1").Select
Sheets(Array("BOAT LIST")).Select
Sheets("BOAT LIST").Activate
MYMSG = MsgBox("Are you sure you have completed the saving process ?", 4, "Alert")
If MYMSG = 6 Then
ChDir "E:\CENTER\BOAT LIST"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
' If MsgBox("åá ÊÑíÏ ÅÑÓÇá ÇáãáÝ ÇáãÑÝÞ Åíãíá Ãã áÇ¿", vbYesNo, "Send Email") = vbNo Then Exit Sub
' OutlMail_PDF MyName, "ahmed@yahoo.com", " ÈíÇä ÈÍÑßÉ ÇáÓÇÆÞíä ", vbNewLine & "ãÚ ÊÍíÇÊ ..ÅÏÇÑÉ ÇáÔÆæä ÇáÇÏÇÑíÉ ÈÍÞæá ØÇÑÞ", False
Else
MsgBox "Not Saved"
End If
Sheets("BOAT LIST").Select
ActiveWindow.SmallScroll Down:=-12
Range("B5").Select
End Sub
