VBA檔案寫入遍歷所有.xlsx、csv檔案
阿新 • • 發佈：2019-02-10
讀取所有本資料夾內所有csv檔案
Filename = Dir(ThisWorkbook.Path & "\*.csv") '取得本資料夾下首個CSV檔案
Do While Filename <> "" '判斷是否存在csv檔案
If Filename <> ThisWorkbook.Name Then '判斷檔案是否為本工作薄（其實是不用判斷了，字尾已經不同）
fn = ThisWorkbook.Path & "\" & Filename '區別一下fn和Filename的區別看看 fn為全路徑
Set mywb = GetObject(fn) '將fn代表的工作薄物件賦給變數mywb
Set sht = mywb.Worksheets(1) '第一張工作表物件賦給變數sht
set fn =Dir ‘取下一個檔案 【重】
讀取單個指定檔案，其實只要指定檔名就可以了
fn= Dir(ThisWorkbook.Path & "\test1.csv" )
Set mymy =GetObjece(fn)
Dir(ThisWorkbook.Path & "\*.csv")