1。用DATAPUMP
或
CONST
ROWNUM=
COLMN=
VAR
I,J:INTEGER;
MsExcel,WBook,WSheet:OLEVARIANT;
BEGIN
MsExcel:= CreateOleObject('Excel.Application');
WBook:=MsExcel.Application;
WBook.Visible:= True;
wbook.workbooks.Open(ExtractFileDir(paramstr(0))+'/SHHH.xls');
WSheet:=WBook.ActiveSheet;
WITH QUERY1 DO
BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD('INSERT INTO YOURTABLE () VAULES ()');
FOR I:=1 TO ROWNUM DO
BEGIN
CLOSE;
FOR J:=1 TO COLMN DO
PARAMS[J-1].VALUE:=WSHEET.CELLS[I,J].VALUE;
// PARAMS[J-1].ASSTRING:=WSHEET.CELLS[I,J].VALUE;//也可以用这一句
EXECSQL;
END;
END;
2.
用EXCEL 中的数据菜单中的新件数据库查询即可
用SQL7的OLE自动化借口,在EXCEL中写一段宏,我手头只有
ORACLE的借口资料,没有SQL7的,你可以给我发一份
EMAIL: 425007@SINA.COM