在excel中的工作簿之間拉取數據，並在下一個可用空列中顯示拉數據

Question

我目前正試圖簡化一個過程，我必須在工作中完成每一天。我目前將更新後的數據從一個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