[算表] Windows("file").active档名递增选取

楼主: Pettitte1   2021-07-11 14:29:07
软件: 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贴上?
谢谢
作者: waiter337 (给开司一罐苏格登)   2021-07-11 14:38:00
Windows("paste csv test" & i).Activate

Links booklink

Contact Us: admin [ a t ] ucptt.com