说明: Dim xls_app As New Excel.Application Dim xls_book As New Excel.Workbook Dim xls_sheet As New Excel.Worksheet Set xls_app = CreateObject("Excel.Application") Set xls_book = xls_app.Workbooks.Open(文件名)'文件名包含完整路径! Set xls_sheet = xls_book.Worksheets(1) <sw13709264386> 上传 | 大小:395byte