بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد من دروس مكتبة اكواد اكسل VBA
فتح اى فولدر داخل جهازك من خلال كود اكسل VBA
فكرة جميلة جدا وجديدة اذا كان عندك فولدر فى اى مكان
على جهاز الكمبيوتر الخاص بك وتريد فتحة من خلال ملف الاكسل الذى تعمل علية ومن
خلال كود اكسل VBA سهل وبسيط جدا
فاليك الكود التالى
فكرة الكود
من خلال الكود تقوم بادراج مسار الفولدر الذى تريد فتحة
وليكن مثلا
"C:\Temp" 'ادخل هنا مسار الفولدر الذى تريد فتحة على
جهاز الكمبيوتر
بعد ادخال مسار الفولدر سيتم تنفيذ الكود بفتح الفولدر
مباشرة
'In
this Example I am Opening a Folder ("C:\Temp")
Sub
sbOpeningAFolder()
Dim
FSO
Dim
sFolder As String
sFolder
= "C:\Temp" 'You can specify your Folder which you wants to Open
Set
FSO = CreateObject("Scripting.FileSystemObject")
If
Not FSO.FolderExists(sFolder) Then
MsgBox
"Specified Folder Not Found", vbInformation, "Folder Not
Found!"
ElseIf
FSO.FolderExists(sFolder) Then
Call
Shell("explorer.exe " & sFolder, vbNormalFocus)
End
If
End
Sub