بسم الله الرحمن الرجيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من اكواد اكسل VBA
اكسيل VBA | انشاء قائمة باسماء المفات الموجودة داخل فولدر معين وعمل هايبر لينك لفتحها
فى هذا الدرس سوف نشرح لكم كود مهم جدا من اكواد اكسل VBA
لو انا عندى فولدر معين وبة مجموعة منالملفات سواء كانت اكسل او وورد او pdf او باور بوينت او MP3- MP4ونريد تجميع كل هذه المفات فى ملف اكسل واحد وعمل هايبر لينك لفتح كل هذة الملفات
كيف نعمل ذلك ؟
من خلال هذا الكود البسيط الذى نقوم فية بتحديد مسار الفولدر الذى نريد ان نجمع ما بة من ملفاتومن ثم نقوم بعمل هايب لينك بفتح اى ملف موجود
الكود
Sub creatlistoffiles()
Dim ofso As Object
Dim ofolder As Object
Dim ofile As Object
Dim i As Long
Set ofso =
CreateObject("scripting.filesystemobject")
Set ofolder =
ofso.getfolder("C:\Users\emad ghazi\Desktop\ãíßÑæÈíæáæÌì")
i = 1
For Each ofile In ofolder.Files
Cells(i + 1, 2) = ofile.Name
Cells(i + 1, 3) =
ofile.Path
Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:=ofile.Path, TextToDisplay:=ofile.Name
i = i + 1
Next
ofile
End Sub