很简单啊,你将新打开的workbook设置为一个对象就行了。希望下面的代码对你有帮助。
Dim xlbook As Workbook
dim xlsheet as WorkSheet
Set xlbook = Workbooks.Open(your xls file)'设置你的工作薄对象等于xlbook
set xlsheet = xlbook.sheets(your sheet)'设置xlsheet等于你的工作表
xlsheet.select'选择工作表
xlsheet.Range("A1").Select'选择工作表的单元格
MsgBox xlsheet.Cells(1,1)'消息框显示工作表Range("A1")的内容
同上代码,不重新弄了,只要那样再按转接纪要解决