将单独的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