将值从单独的Excel文件复制到单独的Excel工作表中
我有将值从单独的Excel文件复制到单独的Excel工作表中,excel,vba,Excel,Vba,我有ABC1Excel文件，我想从中复制列A值（A1:A50）和 我还有ABC2Excel文件，我想从中复制列B值（B1:B50） 我想把它们粘贴到 XYZ1（[ABC1A1]到D1和[ABC2B1]到D2）Excel文件， XYZ2（[ABC1A2]到D1和[ABC2B2]到D2）Excel文件， XYZ3。。。和… XYZ50 单独的Excel文件。看起来像这样 dim x as integer dim wb as workbook for x=1 to 50 set wb=wor
ABC1AA1:A50ABC2BB1:B50XYZ1ABC1D1ABC2B1D2XYZ2ABC1A2D1ABC2B2D2XYZ3XYZ50单独的Excel文件。看起来像这样
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
你试过什么吗？在执行这些步骤时尝试录制宏：这将为您提供一个起点，然后您可以尝试修改该起点。如果你遇到问题，然后用代码发回，我相信你会得到一些建议。我试图录制一个宏，但我遇到了一些问题。特别是当我打开一个新的excel文件将解决方案保存在一个单独的文件中时，我需要帮助自动生成一个新的文件名（XYZ1，然后是XYZ2）。