ماکرو جهت تهیه لیست فایلهای یک پوشه

This post is also available in: arالعربية deDeutsch zh-hans简体中文 enEnglish hiहिन्दी ruРусский esEspañol

با ماکرو زیر میتوانید لیستی از فایلهای موجود در پوشه ای که آدرس آن در سلول f1 درج شده است تهیه کنید :

Sub Example1()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder(Range("f1").Value)
i = 1
'loops through each file in the directory
For Each objFile In objFolder.Files
 'select cell
 Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
 'create hyperlink in selected cell
 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= objFile.Path, TextToDisplay:=objFile.Name
 i = i + 1
Next objFile
End Sub

برچسب ها

حسین صابری

عضو هیئت علمی دانشگاه آزاد ارشد حسابداری (دانشجوی دکتری حسابداری) کارشناس رسمی قوه قضاییه (حسابداری و حسابرسی) برنامه نویس و مدرس کامپیوتر

نوشته های مشابه

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

همچنین ببینید

بستن
دکمه بازگشت به بالا

بستن
بستن