R Rzhou Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-15 #22 用ADO打开它，读入到一个RECORDSET中就可知了，反正你要导入库，用ADO来导不就更好了？ 但要注意每一行的处理
L lzh1974 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-10 #23 worksheet.UsedRange.Rows.Count 表示相应工作表的有效数据行，对新建和打开的工作表都有用
C Cardinal Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-10 #24 用 ado连接通过数据库是可行的 我试过了 Conntectstring: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/MYAsnew.xls;Extended Properties="EXCEL 8.0;"; Persist Security Info=False //注意 Extended Properties="EXCEL 8.0;"; CommandText: select * from [MYAs$]
用 ado连接通过数据库是可行的 我试过了 Conntectstring: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/MYAsnew.xls;Extended Properties="EXCEL 8.0;"; Persist Security Info=False //注意 Extended Properties="EXCEL 8.0;"; CommandText: select * from [MYAs$]
W wangzhi2 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-03 #27 uses ComObj; var X: Variant; begin X:=CreateOLEObject('Excel.Application');//创建对象 X.WorkBooks.Open(XLSName);//打开指定的表 showmessage(Format('总行数=%d',[X.ActiveSheet.usedRange.Rows.count]); X.quit; X:=Unassigned; //释放VARIANT变量 end;
uses ComObj; var X: Variant; begin X:=CreateOLEObject('Excel.Application');//创建对象 X.WorkBooks.Open(XLSName);//打开指定的表 showmessage(Format('总行数=%d',[X.ActiveSheet.usedRange.Rows.count]); X.quit; X:=Unassigned; //释放VARIANT变量 end;
