Dim xlWorksheet As Excel.Worksheet Dim xlBook As Excel.WorkbookSet xlBook = xlApp.Workbooks.Open("c:\123.xls" Set xlWorksheet = xlBook.Worksheets("sheet1" Set xlApp= xlApp.ActiveSheetxlApp.UsedRange.Rows.count
ado好象不能打开excel文件吧?
to put2001_ruan(萝卜头) (可以的,参考http://www.connectionstrings.com连接字符串大全
Dim xlBook As Excel.WorkbookSet xlBook = xlApp.Workbooks.Open("c:\123.xls"
Set xlWorksheet = xlBook.Worksheets("sheet1"
Set xlApp= xlApp.ActiveSheetxlApp.UsedRange.Rows.count