Excel 从一个工作簿到另一个工作簿的宏数据传输

Question

您好，我创建了一个程序，可以自动从网站抓取数据并将其 paste/formats 放入 excel sheet。但是，我希望将该数据传输到另一个 excel 工作簿（一个已经存在的工作簿）。下面的宏将数据传输到另一个 excel 工作簿，但它一直将传输的数据粘贴到之前已经传输的数据上。我怎样才能让它传输并粘贴从先前传输的数据下的下一个空白行开始的新数据。我在之前的 post 中看到：

LastRow = Target.Range("A10000").End(xlUp).Row + 1,

可以做到这一点，但我不确定如何在我已经拥有的 vba 生成的宏中实现这一行。有没有一种方法可以做到这一点而不必编写另一个 vba 模块来实现它？感谢所有帮助！

子传输()

Range("A2:G34").Select
Selection.Copy
Workbooks.Open Filename:= _
    "Book1.xlsx"
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Range("C6").Select

结束子

Answer 1

所以我弄明白了，我没有使用宏录制，因为我无法让它 100% 用于我的项目，但经过研究和反复试验后，下面的代码完全符合我的要求也。这适用于传输两个不同的 excel 工作簿或仅工作表！我希望这对某人有所帮助。

Sub Transfer()

Worksheets("Source data Sheet Name").Range("A2:G100").Copy
Workbooks.Open Filename:= _
"File Destination for target"

LastRow = Sheets("Target Sheet Name").Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.Paste Destination:=Worksheets("Target Sheet Name").Range("A" & LastRow)

ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Excel 从一个工作簿到另一个工作簿的宏数据传输

Excel Macro Data Transfer from One Workbook to Another

excel

vba

transfer