返回列表 上一主題 發帖

[發問] 如何設定一個按鈕 開啟CSV檔案 不指定路徑

  1. Sub zz()
  2. With Application.FileDialog(3)
  3.     .Title = "Open csv files"
  4.     .Filters.Add "CSV files", "*.csv", 1
  5.     .Show
  6.     If .SelectedItems.Count Then Workbooks.Open .SelectedItems(1)
  7. End With
  8. End Sub
複製代碼

TOP

如圖步驟:1. 所有檔案  2. *.csv  3. 回車
系統會過濾所有csv檔案出來給選擇。

zz.PNG (32.63 KB)

zz.PNG

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格,可以成就事業,也可以儲積功德。
返回列表 上一主題