我有筆excel資料要導入到數據庫中（每欄格式為374365 2003-09-03 23:59:58 0），可是數據導入完時就報錯，意思是無效的格式轉換。若加上try…finally則是在對話框出現後每點一次確定將資料從頭開始繼續往數據庫中加入資料！各式如下，請各位先進幫忙看看： procedure TForm1.Button1Click(Sender: TObject); var i: Integer; BoxNo: variant; MsExcel, MsExcelWorkBook, MsExcelWorkSheet: Variant; begin MsExcel := CreateOleObject( 'Excel.Application'); MsExcelWorkBook := msExcel.Workbooks.Open( 'f:\03.xls'); MsExcelWorkSheet := msExcel.Worksheets.Item[1]; Table1.Open; for i := 1 to MsExcelWorkSheet.Rows.Count do try begin BoxNo := MsExcelWorkSheet.Range['a' IntToStr(i)].Value; if BoxNo <>'' then begin Table1.Append; Table1.FieldByName('cardno').Value := copy(BoxNo,1,6); Table1occurtime.value:=strtodatetime(copy(boxno,8,24)); Table1.Post; // sql.add:='update originalcheckdata set employeeID=b.employeeID from originalcheckdata a, employeemsg b where a.cardno=b.cardno where occurtime>'2003-09-01''; end else exit; end; finally showmessage('處理完畢'); // exit; end; Table1.Close; MsExcel.Quit; end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  BoxNo: variant;
  MsExcel, MsExcelWorkBook, MsExcelWorkSheet: Variant;
begin
  MsExcel := CreateOleObject('Excel.Application');
  MsExcelWorkBook := msExcel.Workbooks.Open('f:\03.xls');
  MsExcelWorkSheet := msExcel.Worksheets.Item[1];
  Table1.Open;
  try
    for i := 1 to MsExcelWorkSheet.Rows.Count do
    begin
      BoxNo := MsExcelWorkSheet.Range['a'   IntToStr(i)].Value;
      if BoxNo <> '' then
      begin
        Table1.Append;
        Table1.FieldByName('cardno').Value := copy(BoxNo, 1, 6);
        Table1.FieldByName('occurtime').AsDateTime := strtodatetime(copy(boxno, 8, 24));
        Table1.Post;
// sql.add:='update originalcheckdata set employeeID=b.employeeID from originalcheckdata a, employeemsg b where a.cardno=b.cardno where occurtime>'2003-09-01'';
      end
      else
        exit;
    end;
  finally
    showmessage('處理完畢');
// exit;
  end;
  Table1.Close;
  MsExcel.Quit;
end;

TRY TRY SEE...