☰

VBA 程式碼未「儲存」ThisWorksheet 參數

tag-icon • tag-icon microsoft-excel worksheet-function vba macros
VBA 程式碼未「儲存」ThisWorksheet 參數

我想從另一個工作簿中檢索一列值並填充當前工作簿中的一個選項卡。這最終將進入我編寫的一個更長的模組，效果很好。我只是想讓這一步自動化。下面是程式碼。

我得到一個下標超出範圍貼上行出錯。似乎我的語句設定currentWb不起作用ThisWorkbook，因為從中複製的第二個工作簿仍然打開，選擇並複製了範圍，只是等待貼上目的地。我已經搜索並嘗試了我能想到的一切。

Sub OpenWorkbookToPullData()

Dim sUserInput As String
    sUserInput = InputBox("Enter Account Folder Name:", "Folder Name")

Dim path As String
    path = "C:\users\" & Environ$("username") & "\OneDrive\Documents\Brightree\" & sUserInput & "\Financial Scorecard\Exceptions.xlsm"

Dim currentWb As Workbook
    Set currentWb = ThisWorkbook

Dim exceptionWb As Workbook
    Set exceptionWb = Workbooks.Open(path)

Dim exceptionWs As Worksheet
    Set exceptionWs = exceptionWb.Sheets("Exceptions")

Dim rng_data As Range
    Set rng_data = exceptionWs.Range("A1:A20")

 rng_data.Copy
 currentWb.Sheets("Exception").Range("A1").PasteSpecial xlPasteValues

exceptionWb.Close (False)

End Sub

答案1

您必須確保表格（「例外」）存在於兩個都作業簿。
並作為曲折的指出;檢查工作表名稱的拼字。

相關內容