将单独 Excel 文件中的值复制到单独的 Excel 工作表中答案

【问题标题】：Copying values from separate Excel files into separate Excel sheets将单独 Excel 文件中的值复制到单独的 Excel 工作表中
【发布时间】：2015-05-31 18:36:50
【问题描述】：

我有 ABC1 Excel 文件，我想从中复制列 A 值 (A1:A50) 和我还有ABC2 Excel 文件，我想从中复制列B 值（B1:B50）。

我想将它们粘贴到
XYZ1 ([ABC1 A1] 到 D1 和 [ABC2 B1] 到 D2) Excel 文件中，
@987654334 @ ([ABC1 A2] 到 D1 和 [ABC2 B2] 到 D2) Excel 文件，
XYZ3 ... 和...
XYZ50
单独的 Excel 文件。

【问题讨论】：

你有没有尝试过？尝试在执行这些步骤时录制宏：这将为您提供一个起点，然后您可以尝试对其进行修改。如果您遇到问题，请使用该代码回帖，我相信您会得到一些建议。
我正在尝试录制宏，但遇到了一些问题。特别是当我打开一个新的 excel 文件以将解决方案保存在单独的文件中时，我需要帮助自动生成一个新文件名（XYZ1，然后是 XYZ2）。

标签： excel vba

【解决方案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

【讨论】：