[算表] Windows("file").active檔名遞增選取

[Pettitte1 ()]

軟體: Excel

版本: office365

我想請問一下

假設我有五個csv檔案已開啟 名子是

paste csv test1.csv
paste csv test2.csv
paste csv test3.csv
paste csv test4.csv
paste csv test5.csv

我想要把他們每一個A1:A5貼到paste test csv.xlsm檔案裡面

目前是這樣寫

Sub pastecsv()

    Dim i As Integer
    For i = 1 To 5
    Windows("paste csv test1").Activate
    Range("A1:A5").Select
    Selection.Copy
    Windows("paste csv test.xlsm").Activate
    Range("B1").Offset(, i * 2).Select
    ActiveSheet.Paste
    Next i
End Sub

請問要怎麼把第五行改成像這樣paste csv test(i)

這樣他可以自己從paste csv test1-5複製到past csv test.xlsm貼上?

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.32.160.201 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1625984951.A.425.html
推 waiter337: Windows("paste csv test" & i).Activate