返回列表 上一主題 發帖

請問如何用VBA開啟檔案總管視窗讀取Folder或Files的路徑or檔名

回復 3# webbliu

在上面的程式裡就有貼到儲存格裡的功能囉.

Cells(i, 1) = .SelectedItems(i)

就是將所選的檔名依序貼到 A1  A2  A3 ... 的儲存格內,

Cells(a, b)
a 為列號  1,2,3,4...
b 為欄號 A,B,C,D...

所以 Cells(i, 1) 就表示 A1 儲存格.

TOP

回復 2# Hsieh


謝謝版主~
請問後半段
我不太懂,我想知道如果是要指定貼回路徑到某一儲存格 該怎麼寫呢?

謝謝版主大大!!
  1. For i = 1 To .SelectedItems.Count
  2.      Cells(i, 1) = .SelectedItems(i)
  3.      MsgBox .SelectedItems(i)
  4.    Next
  5. End With
  6. End Sub
複製代碼

TOP

  1. Private Sub CommandButton1_Click()
  2. With Application.FileDialog(msoFileDialogOpen)
  3.    .AllowMultiSelect = True
  4.    .Show
  5.    For i = 1 To .SelectedItems.Count
  6.      Cells(i, 1) = .SelectedItems(i)
  7.      MsgBox .SelectedItems(i)
  8.    Next
  9. End With
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 愛不是要求對方,而是要由自身的付出。
返回列表 上一主題