مسار كتاب العمل الحالى


مجلد كتاب العمل الحالى
Dim folderPath As String
folderPath = Application.ActiveWorkbook.Path
MsgBox (folderPath)



مسار و اسم كتاب العمل الحالى
Dim myPath As String
myPath = Application.ActiveWorkbook.FullName
MsgBox (myPath)