添加引用 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 序号