Dim xlapp As Excel.Application '定义Excel程序
Dim xlbook As Excel.Workbook '定义Excel工作簿
Dim xlsheet As Excel.Worksheet '定义Excel工作表
Sub Excel()
xlapp = GetObject("excel.Application") '获取打开的表
xlbook = xlapp.ActiveWorkbook '设置XLBOOK 为活动工作簿
xlsheet = xlbook.ActiveSheet '设置xlsheet 为当前活动工作簿
MsgBox(xlsheet.Range("a1").Value)
End Sub