下標超出範圍錯誤的子程序

Question

我試圖做不同的工作簿之間的數據副本。工作簿的名稱是隨機的，因爲用戶可以選擇文件名，所以我在我的代碼中做了一組工作簿。當我在程序中包含一個子程序時，它會將下標超出範圍。

有關如何確保子例程能夠繼續理解我的工作簿定義的任何想法？

我的代碼的情況下，簡化您不太瞭解的第一子背後的理由：

Option Explicit 
Sub testwe() 
Dim wb As Workbook, wb2 As Workbook, vFile As Variant 
Set wb = ActiveWorkbook 

vFile = Application.GetOpenFilename("Excel-files,*.xls", _ 
    1, "Select One File To Open", , False) 
'if the user didn't select a file, exit sub 
If TypeName(vFile) = "Boolean" Then Exit Sub 
Workbooks.Open vFile 
Set wb2 = ActiveWorkbook 'set the opened file as wb2 

Call test123 
End Sub 

sub test123() 
wb.Worksheets("Sheet1").Range("A1") = wb2.Worksheets("Sheet1").Range("B1") 
End Sub 

Answer 1

你需要讓WB和WB2全球：

Dim wb As Workbook, wb2 As Workbook 

Sub testwe() 
    Set wb = ActiveWorkbook 

    vFile = Application.GetOpenFilename("Excel-files,*.xls", _ 
     1, "Select One File To Open", , False) 
    'if the user didn't select a file, exit sub 
    If TypeName(vFile) = "Boolean" Then Exit Sub 
    Workbooks.Open vFile 
    Set wb2 = ActiveWorkbook 'set the opened file as wb2 
    Call test123 
End Sub 

Sub test123() 
    wb.Sheets("Sheet1").Range("A1") = wb2.Sheets("Sheet1").Range("B1") 
End Sub 

編輯＃1：

This ve rsion使用Doug的建議：

Sub testwe() 
    Dim wb As Workbook, wb2 As Workbook 
    Set wb = ActiveWorkbook 
    vFile = Application.GetOpenFilename("Excel-files,*.xls", _ 
     1, "Select One File To Open", , False) 
    'if the user didn't select a file, exit sub 
    If TypeName(vFile) = "Boolean" Then Exit Sub 
    Workbooks.Open vFile 
    Set wb2 = ActiveWorkbook 'set the opened file as wb2 
    Call test123(wb, wb2) 
End Sub 

Sub test123(wb As Workbook, wb2 As Workbook) 
    wb.Sheets("Sheet1").Range("A1") = wb2.Sheets("Sheet1").Range("B1") 
End Sub