添加一个xls的对象，对这个对象操作就可以了。
Dim XlsObj As Excel.Application 'Excel对象
Dim XlsBook As Excel.Workbook '工作簿
Dim XlsSheet As Excel.Worksheet '工作表
Set XlsObj = CreateObject("Excel.Application") '创建EXCEL对象
Set XlsBook = XlsObj.Workbooks.Open(Text1)‘text1中是文件路径和文件名
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024