Macro para listar los archivos en una carpeta

Con la macro a continuación, puede crear una lista de archivos en la carpeta cuya dirección está en la celda f1:

 Sub Example1 ()
Dim objFSO como objeto
ObjFolder dim como objeto
Dim objFile As Object
Dim i As Integer
'Crear una instancia de FileSystemObject
Establecer objFSO = CreateObject ("Scripting.FileSystemObject")
'Obtener el objeto de carpeta'
Establecer objFolder = objFSO.GetFolder (Range ("f1"). Value)
i = 1
'recorre cada archivo en el directorio
Para cada objFile En objFolder.Files
  'seleccionar celda
  Rango (Celdas (i + 1, 1), Celdas (i + 1, 1)). Seleccione
  'crear hipervínculo en la celda seleccionada
  ActiveSheet.Hyperlinks.Add Anchor: = Selección, Dirección: = objFile.Path, TextToDisplay: = objFile.Name
  i = i + 1
Siguiente objfile
Final sub

برچسب ها

حسین صابری

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

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

پاسخی بگذارید

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

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

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

بستن
بستن