|
本帖最后由 864163213 于 2019-6-15 11:58 编辑
由于电脑文件夹较多,每次通过点击文件夹一步步找太麻烦了
通过在论坛查找相关代码,制作成通过表格链接,制作类似电脑目录
Sub test1()
Dim arr, a, b, i
’ Workbooks.Add Template:="C:\Users\Dom\AppData\Roaming\Microsoft\Templates\无警告.xltm" ‘个人模板此行可
arr = Array("A", "B", "C")'abc代表路径
a = 2
For i = 0 To UBound(arr)
Set fso = CreateObject("scripting.filesystemobject")
Set ff = fso.getfolder(arr(i))
For Each fd In ff.subfolders
t = fd
Cells(a, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=arr(i) & "\" & fd.name, TextToDisplay:=t
a = a + 1
Next fd
Next
Columns("A:C").EntireColumn.AutoFit '自动调整单列的宽度
'**********************************保存******************************************
‘ ActiveWorkbook.SaveAs FileName:="E:\calculation\文件目录1.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
|
评分
-
1
查看全部评分
-
|