vba - 将数据从一个电子表格复制到另一个

Question

我正在尝试将数据从一个电子表格复制到另一个电子表格(其中已经有数据)。我需要(从源电子表格)将所有填充的单元格复制到目标电子表格中的 B 列但在最后一行(不覆盖现有数据)

这是我到目前为止所拥有的，但这并不完全是我所需要的，并且抛出一个错误说:

object required

在这一行: Last_Row = Range("A" & Rows.Count).End(xlUp).Row)
我正在尝试在 中执行此操作.VBS 文件

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("D:\Test2.xlsx")
Set objWorksheet = objWorkbook.Worksheets("Sheet 2")

Set objRange = objWorksheet.Range("A5:D5")
objRange.Copy

'destination spreadsheet stuff:
Set objExcel2 = CreateObject("Excel.Application")
objExcel2.Visible = True
Set objWorkbook2 = objExcel.Workbooks.Open("D:\Test1.xlsx")
Set objWorksheet2 = objWorkbook2.Worksheets("Sheet1")   

Last_Row = Range("A" & Rows.Count).End(xlUp).Row
objWorksheet2.Range("B" & Last_Row).Activate
objWorksheet2.Paste

Answer 1

我改了Last_Row至Next_Row因为，您需要粘贴在数据之后的下一行(因此是 + 1 )。

并摆脱了第二个 Excel 实例，因为在两个实例之间粘贴非常有限，并且在编程上非常低效!

所以这应该工作得很好:

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("D:\Test2.xlsx")
Set objWorksheet = objWorkbook.Worksheets("Sheet 2")

Set objRange = objWorksheet.Range("A5:D5")
objRange.Copy

'destination spreadsheet stuff:
Set objWorkbook2 = objExcel.Workbooks.Open("D:\Test1.xlsx")
Set objWorksheet2 = objWorkbook2.Worksheets("Sheet1")

Next_Row = objWorksheet2.Range("B" & objWorksheet2.Rows.Count).End(xlUp).Row + 1
objWorksheet2.Range("B" & Next_Row).Paste