excel中VBA，导入别的表的数据，下标越界问题

找到一个能从别的表中导入数据的VBA，可是提示下标越界

Sub test()
Dim wkbk As Workbook '定义一个工作薄
Dim myFileName As String '定义要读取的文件路径
Dim rgA1 As String'定义要读取的单元格A1
Dim rgB10 As String'定义要读取的单元格B10
myFileName = Application.GetOpenFilename("EXCEL文件(*.xls), *.xls") '浏览文件，如XX公司08年XX表.xls
If myFileName = "False" Then '如果按取消那么弹出对话框
MsgBox "请选择文件!", vbInformation, "取消"
Else
Set wkbk = Workbooks.Open(myFileName) '先打开要复制的文件

'这里要复制打开的XX公司08年XX表.xls表1中的A1、表2的B10，到本表A2、A3如何写？
wkbk.Activate‘激活打开工作簿
Sheets("Sheet1").Activate ‘这里提示下标越界
rgA1 = Cells(1, 1) '取得A1
Sheets("Sheet2").Activate ‘这里提示下标越界
rgB10 = Cells(10, 2)'取得B10

wkbk.Close False '关闭工作薄

Cells(2, 1) = rgA1’给目标格赋值A2
Cells(3,

VBA 实现Excel电子表的导入导出 利用VBA 将access中的所有数据导入到指定的excel中 excel中VBA的问题 excel表数据导入sql2000中 excel从另一个表中导入数据 VBA实现将EXCEL数据导入WORD表格 excel VBA 把选定单元格的值导入另一个单元格 关于excel中vba宏的编写 关于EXCEL中VBA的问题 excel中vba的正则表达式