返回列表 上一主題 發帖

(求教)路過高手請協助一下,詳細入內VBA問題?感激~

回復 3# walisalen
  1. Sub Ex()
  2.     Dim MyFolder As String, r As Integer, Myfile As String
  3.     With Application.FileDialog(msoFileDialogFolderPicker)
  4.         .InitialFileName = "D:\"                '指定開啟時的目錄
  5.         .AllowMultiSelect = False               '單選
  6.         .Show
  7.         If .SelectedItems.Count > 0 Then        '有選取
  8.             MyFolder = .SelectedItems(1) & "\"  '目錄資料夾
  9.         Else
  10.             Exit Sub
  11.         End If
  12.     End With
  13.     Columns("A:B").Clear
  14.     Myfile = Dir(MyFolder & "*.xls")                 '傳回 XLS 檔案
  15.     r = 1
  16.     Do While Myfile <> ""
  17.         Sheets("sheet1").Cells(r, 1) = MyFolder & Myfile
  18.         ActiveSheet.Hyperlinks.Add Anchor:=Cells(r, 2), Address:=MyFolder & Myfile, TextToDisplay:=Myfile
  19.         r = r + 1
  20.         Myfile = Dir                                   '取得下一個檔名
  21.     Loop
  22. End Sub
複製代碼

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題