请问如何使用delphi将excel中的数据导入sql server数据库中

Question

大家多发言啊，让我也学习学习

Answer 1

如果使用BatchMove组件的话，从什么类型的数据库导入都一样。如果使用
ExcelApplicaton的话就复杂一些。
   这里有个控制Excel的例子，你先看看。
    ExcelApplication1.Connect();
    ExcelApplication1.Visible[0]:=True;
    ExcelApplication1.Workbooks.Add(Null,0);
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
    ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.Sheets[1] As _WorkSheet);
    for idx:=1 to 30 do
    begin
        ExcelWorkSheet1.Cells.Item[idx,1]:='Hello'+IntToStr(idx);
        ExcelWorksheet1.Cells.Item[idx,2]:=idx;
    end;
    ExcelWorksheet1.Cells.Item[31,2]:='SUM(B1:B30)';
    ShowMessage(ExcelWorkSheet1.Cells.Item[31,2]);
    ExcelApplication1.Disconnect();
    ExcelApplication1.Quit();