我要把EXCEL 的資料匯入到資料庫里時候， EXCEl 單元格資料格式不同時 會報錯，不知道怎么處理好
請問你們在做EXcel資料匯入時 是怎么處理的？
匯入時判斷單元格值
if Sheet.Cells[i, 2].Value = '' then Sheet.Cells[i, 2].Value := 0;
1.Excel單元格為文本時。上面的陳述句 就可以執行
2.Excel單元格為數字時。上面的陳述句 就可以報錯。
求指教啊！
uj5u.com熱心網友回復：
匯入時判斷一下格式，如果是文本就TryStrToIntuj5u.com熱心網友回復：
1、直接讀取Cell值2、判斷值是否有效，如號碼必須有，且為整數；金額可以為空（=0）。
3、有效傳入資料庫中。
主要是，自己要撰寫二個判斷函式。
uj5u.com熱心網友回復：
我自己從軟體里匯出到Excel ， 單元格的都是常規格式的 如果我把我匯出的Excel單元格改成文本就可以了，怎么把每一個單元格格式設定成文本呢？我的代碼
for I := 2 to 13 do
begin
ExcelApp.WorkSheets[1].rows[i].numberformat:='@';
end;
可這樣匯出后單元格式不是文本的，
見圖
如果匯出格式是這樣的就可以了
uj5u.com熱心網友回復：
function IsNumeric(sStr: string): Boolean;begin
Result := True;
try
StrToFloat(sStr);
except
Result := False;
end;
end;
if not IsNumeric(Sheet.Cells[i, 2].Value) then Sheet.Cells[i, 2].Value := 0;
//匯出的時候
Sheet.Cells[i, 2].Value: =''''+ field.asstring
//這樣EXCEL就會自動認做文本了
uj5u.com熱心網友回復：
for I := 2 to 13 do:='@';
begin
ExcelApp.WorkSheets[1].rows[i].numberformat[code=delphi]
end;[/code]
uj5u.com熱心網友回復：
應該是ExcelApp.WorkSheets[1].rows[i].numberformatlocal:='@'轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91741.html
標籤：數據庫相關
上一篇：實作一個畫圖功能。