2 citykeys citykeys 于 2016.01.14 23:52 提问

急求大师解决 excel导入到SQL2005 问题 50C

const
BeginRow = 2; BeginCol = 1;
var
Excel: OleVariant;
iRow,iCol : integer;
xlsFilename: string;
filename:string;
i,ExcelRowCount,OkNum,FailNum:integer;

begin
inherited;
begin

           OpenDialog1.Title := '请选择相应的Excel文件';
           OpenDialog1.Filter := 'Excel(*.xls)|*.xls';
           if OpenDialog1.Execute then
             begin
                     filename    := OpenDialog1.FileName;
                     edit2.Text  := filename;
                     xlsFilename := trim(filename);
                     try
                         Excel := CreateOLEObject('Excel.Application');
                     except
                         Application.MessageBox('Excel没有安装!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
                         Exit;
                     end;
                     Excel.Visible := false;
                     Excel.WorkBooks.Open(xlsFilename);
                     try
                         iRow := BeginRow;
                         iCol := BeginCol;
                          ExcelRowCount := Excel.WorkSheets[1].UsedRange.Rows.Count;
                        // while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do
                              for i:=2 to ExcelRowCount do
                              begin
                                    with Svr_Remote.DW_Query do
                                       begin
                                           Append;
                                           Fields[0].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
                                           Fields[1].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value);
                                           Fields[2].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+2].value);
                                           Fields[3].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+3].value);
                                           Fields[4].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+4].value);
                                           Fields[5].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+5].value);
                                           Fields[6].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value);
                                           Fields[7].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+7].value);
                                           Fields[8].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+8].value);
                                           Fields[9].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+9].value);
                                           Fields[10].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+10].value);
                                           Fields[11].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+11].value);
                                           Fields[12].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+12].value);
                                           Fields[13].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+13].value);
                                           Fields[14].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+14].value);
                                           Fields[15].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+15].value);
                                           iRow := iRow + 1;
                                           Label1.Caption:='导入记录:'+inttostr(iRow-1)+'条';
                                           label4.Caption :='正在导入的数据...'+Fields[0].AsString+Fields[1].AsString+Fields[2].AsString+
                                           Fields[3].AsString+Fields[4].AsString+Fields[5].AsString+Fields[6].AsString+
                                           Fields[7].AsString+Fields[8].AsString+Fields[9].AsString+Fields[10].AsString+
                                           Fields[11].AsString+Fields[12].AsString+Fields[13].AsString+Fields[14].AsString+Fields[15].AsString;
                                       end;
                                end;
                   Excel.Quit;
                   Svr_Remote.DW_Query.UpdateStatus ;
                   MessageBox(GetActiveWindow(), '数据导入成功!',   '...系统提示', MB_OK + MB_ICONWARNING);
                   except
                       Application.MessageBox('导入数据出错!请检查文件的格式是否正确!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
                       Excel.Quit;
                    end;
              end
              else
              begin
                      MessageBox(GetActiveWindow(), '请重新选择导入文件路径!', ...系统提示', MB_OK + MB_ICONWARNING);
              end;
  end;

end;

注:一执行后,导入的数据就是不全,本来excel表中有524条记录,执行后确只能导入523条记录,缺少一条记录,请大师给指点一下,谢谢
/////////////////////显示数据
Svr_Remote.DW_Query.close;
Svr_Remote.DW_Query.sql.clear;
Svr_Remote.DW_Query.sql.add('select * from STU7');
Svr_Remote.DW_Query.Open;
Svr_Remote.DW_Query.first;
///////////////////////

4个回答

caozhy
caozhy   Ds   Rxr 2016.01.15 00:02

先人工对比下,看下少了哪一条记录,要么是你循环的边界条件的问题,要么是那一行数据有异常,比如说其中有个特殊符号没转义,所以sql出错了。

lyhoo163
lyhoo163   Rxr 2016.01.15 07:46
const
  BeginRow = 2; BeginCol = 1;
var
  Excel: OleVariant;
  iRow,iCol : integer;
  xlsFilename: string;
  filename:string;
  i,ExcelRowCount,OkNum,FailNum:integer;
begin
  inherited;
  begin
    OpenDialog1.Title := '请选择相应的Excel文件';
    OpenDialog1.Filter := 'Excel(*.xls)|*.xls';
    if OpenDialog1.Execute then
    begin
      filename := OpenDialog1.FileName;
      edit2.Text  := filename;
      xlsFilename := trim(filename);
      try
        Excel := CreateOLEObject('Excel.Application');
      except
        Application.MessageBox('Excel没有安装!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
      Exit;
    end;
    Excel.Visible := false;
    Excel.WorkBooks.Open(xlsFilename);
    try
      iRow := BeginRow;
      iCol := BeginCol;
      ExcelRowCount := Excel.WorkSheets[1].UsedRange.Rows.Count;
   // while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do
      for i:=1 to ExcelRowCount-BeginRow-1 do
      begin
        with Svr_Remote.DW_Query do
        begin
          Append;
          Fields[0].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
          Fields[1].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value);
          Fields[2].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+2].value);
          Fields[3].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+3].value);
          Fields[4].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+4].value);
          Fields[5].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+5].value);
          Fields[6].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value);
          Fields[7].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+7].value);
          Fields[8].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+8].value);
          Fields[9].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+9].value);
          Fields[10].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+10].value);
          Fields[11].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+11].value);
          Fields[12].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+12].value);
          Fields[13].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+13].value);
          Fields[14].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+14].value);
          Fields[15].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+15].value);
          iRow := iRow + 1;
          Label1.Caption:='导入记录:'+inttostr(iRow-1)+'条';
          label4.Caption :='正在导入的数据...'+Fields[0].AsString+Fields[1].AsString+Fields[2].AsString+
            Fields[3].AsString+Fields[4].AsString+Fields[5].AsString+Fields[6].AsString+
            Fields[7].AsString+Fields[8].AsString+Fields[9].AsString+Fields[10].AsString+
             Fields[11].AsString+Fields[12].AsString+Fields[13].AsString+Fields[14].AsString+Fields[15].AsString;
         end;
        end;
        Excel.Quit;
        Svr_Remote.DW_Query.UpdateStatus ;
        MessageBox(GetActiveWindow(), '数据导入成功!',   '...系统提示', MB_OK + MB_ICONWARNING);
      except
        Application.MessageBox('导入数据出错!请检查文件的格式是否正确!', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Excel.Quit;
      end;
    end
    else begin
      MessageBox(GetActiveWindow(), '请重新选择导入文件路径!', ...系统提示', MB_OK + MB_ICONWARNING);
    end;
  end;
end;

这样,修改。看看如何。关键是循环:
for i:=2 to ExcelRowCount do
改为:
for i:=1 to ExcelRowCount-BeginRow-1 do

lyhoo163
lyhoo163   Rxr 2016.01.15 07:51

建议你不会使用OleVariant;,关键是慢。使用XLSReadWritII。

beau_lily
beau_lily   2016.01.15 09:06

楼主 你把EXCEL的行数改成这个样子
ExcelRowCount := Excel.WorkSheets[1].Rows.Count;

这种操作方式可能导致有一些多的行出来 你对关键数据进行判读即可

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!