添加引用 Microsoft Excel 12.0 Object Library （视你的office版本不同有所差异）
然后就可以用这个来编程啦
Dim xlapp As Excel.Application '代表excel程序
Dim wkBook As Excel.Workbook '代表excelworkbook（也就是excel工作簿文件 .xls .xlsx）
Dim wkSheet As Excel.Worksheet '代表excel的工作页
xlapp.Application.EnableEvents = False '禁止宏等提示的运行
Set wkBook = xlapp.Workbooks.Open(ExcelFileName)'wkBook对象，把ExcelFileName替换为你的真实文件 比如 app.path & ＂\＂ & ＂百家姓.xls＂
Set wkSheet = wkBook.Worksheets(1) '选中某个sheet用工作页名字（Sheet1,Sheet2...） or 序号
本文地址：https://www.39baobao.com/show/15_9038.html
以上内容来自互联网，请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权，请联系我们，我们会及时处理和回复，谢谢.
