在Excel中的工作簿之间拉取数据，并在下一个可用的空列中显示拉取的数据

我目前正试图简化一个我必须在工作中完成的过程。 我目前从一个Excel文档复制更新的数据到另一个。

我不想每天复制和粘贴数据，我想用VBA调用工作簿中的数据。 这很简单，而不是我的问题所在。

我需要将数据放在下一个空列中，因为指定的工作簿需要收集和保存日常数据。

Sub pull() Dim path As String path = "C:\users\Seanin.Ledgewood\documents\book2.xlsm" Dim currentWb As Workbook Set currentWb = ThisWorkbook Dim openWb As Workbook Set openWb = Workbooks.Open(path) Dim openWs As Worksheet Set openWs = openWb.Sheets("Sheet1") currentWb.Sheets("Sheet1").Range("A1") = openWs.Range("A1") openWb.Close (True) End Sub 

正在使用的代码的简化版本。 我明白，下面的代码需要编辑，并希望对这个问题的任何帮助

  currentWb.Sheets("Sheet1").Range("A1") = openWs.Range("A1") 

Answer 1

所有你需要改变的是（这段代码将在第一行的第一个空列中添加新的数据）：

 Dim lastcolumn As Long With currentWb.Sheets("Sheet1") lastcolumn = .Cells(1, .Columns.Count).End(xlToLeft).Column .Cells(1, lastcolumn + 1) = openWs.Range("A1") End With