添加引用MicrosoftExcel12.0ObjectLibrary(視你的office版本不同有所差異)然後就可以用這個來編程啦DimxlappAsExcel.Application‘代表excel程序DimwkBookAsExcel.Workbook'代表excelworkbook（也就是excel工作簿文件.xls.xlsx)DimwkSheetAsExcel.Worksheet'代表excel的工作頁xlapp.Application.EnableEvents=False'禁止宏等提示的運行SetwkBook=xlapp.Workbooks.Open(ExcelFileName)'wkBook對象,把ExcelFileName替換為你的真實文件比如app.path&"\"&"百家姓.xls"SetwkSheet=wkBook.Worksheets(1)'選中某個sheet用工作頁名字(Sheet1,Sheet2...)or序號