將值從單獨的Excel文件復制到單獨的Excel工作表中

Question

我有ABC1 Excel文件，我想從中復制A列值（ A1:A50 ），也有ABC2 Excel文件，我想從其中復制B列值（ B1:B50 ）。

我想將它們粘貼到
XYZ1 （[ ABC1 A1 ]至D1和[ ABC2 B1 ]至D2 ）Excel文件，
XYZ2 （[ ABC1 A2 ]至D1和[ ABC2 B2 ]至D2 ）Excel文件，
XYZ3 ...和...
XYZ50
單獨的Excel文件。

Answer 1

看起來像這樣

dim x as integer
dim wb as workbook

for x=1 to 50
    set wb=workbooks.add()
    'copy data to wb.sheets(1)
    wb.saveas filename:="C:\destination_folder\XYZ" & x & ".xlsx"
    wb.close false
next x