从EXCEL中导入表格数据到SQL SERVER里面!不用SQL SERVER的数据库导入器!

Question

网上有许多从EXCEL中导入表格数据到SQL SERVER里面的程序!可好象都不太理想!我需要一个利用ADO对EXCEL进行操作,并把EXCEL里面指定格式的数据导入到SQL SERVER里面.导入时可以对EXCEL里面的某些表格数据进行合并,只把合并后的数据导入SQL数据库里面.急切需要源代码!谢谢

Answer 1

Uses ComObj;
var
   XL, XArr: Variant;
   i : Integer;
   j : Integer;
begin
     // 建立一个可变数组装载一条记录
     XArr:=VarArrayCreate([1,Table1.FieldCount],varVariant);
     XL:=CreateOLEObject('Excel.Application');    
     XL.WorkBooks.add;
     XL.visible:=true;
     
     j := 1;
     EmailQuery.First;
     while not EmailQuery.Eof do begin
           i:=1;
           while i<=EmailQuery.FieldCount do begin
                 XArr[i] := EmailQuery.Fields[i-1].Value;
                 i := i+1;
           end;
           XL.Range['A'+IntToStr(j),
           CHR(64+EmailQuery.FieldCount)+IntToStr(j)].Value := XArr;
           EmailQuery.Next;
           j := j + 1;
     end;
     XL.Range['A1',CHR(64+EmailQuery.FieldCount)+IntToStr(j)].select;
     // XL.cells.select;                     // Select everything
     XL.Selection.Font.Name:='Garamond';
     XL.Selection.Font.Size:=10;
     XL.selection.Columns.AutoFit;
     XL.Range['A1','A1'].select;
     XL.close
end;

Answer 2

多谢,不对此方法导入不成功,EXCEL导入的标题出错!