新增引用 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 序號
新增引用 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 序號