尝试打开文件时VBA下标超出范围错误

Question

我试图打开一个文件，然后找到最后一行，一切都工作到这一行：

设置SourceSheet = crWorkbook.Worksheets（“现金申请表”）

它给了我一个下标超出范围的错误，我无法弄清楚为什么......

 Dim filter As String
 Dim caption As String
 Dim crFilename As String
 Dim crWorkbook As Workbook
 Dim crMasterWorkbook As Workbook

 ' make weak assumption that active workbook is the target
 Set crMasterWorkbook = Application.ActiveWorkbook

 With Application.FileDialog(msoFileDialogFilePicker)
 .AllowMultiSelect = False
 .InitialFileName = "*Cash Report*.xlsx"
 .Show
 crFilename = .SelectedItems(1)

 End With

 ' get the cash request workbook
 'caption = "Please Select an input file "
 'crFilename = Application.GetOpenFilename(filter, , caption)

 Set crWorkbook = Application.Workbooks.Open(crFilename, UpdateLinks = False)

 ' copy data from source to target workbook
 Dim targetSheet As Worksheet
 Set targetSheet = crMasterWorkbook.Worksheets("Master Cash Request Log")
 Dim SourceSheet As Worksheet
 Set SourceSheet = crWorkbook.Worksheets("Cash Request Form")

 'Define last row
 target_lastrow = targetSheet.Range("A1").CurrentRegion.Rows.Count