2. 程式人生 > >通用的將Excel匯入資料集的方法

通用的將Excel匯入資料集的方法

阿新 • • 發佈：2019-02-08
開發中經常有需要將Excel匯入資料集的需要，但每張Excel的欄位都會不同，常規的做法有兩種：
一、針對每一張Excel的欄位與資料集欄位位置在程式中寫好，一一對應匯入
二、針對每一張Excel的欄位與資料集欄位配置好應用引數
這兩種方法都比較麻煩，很不靈活，所以我寫了一個比較通用的方法，只要符合以下條件就可以直接使用：

 1、Excel第一行是欄位標題，第二行開始是資料

 2、應用程式資料集顯示控制元件如(dbgrid,dxdbgrid等)名稱與Excel首行標題名一致（順序可以不同，數量也可以不同,如Excel的欄位：工號，姓名，年齡；顯示控制元件欄位：姓名，工號，年齡，建立時間；這也是可以的)

以下為delphi 程式碼：
procedure ExportExcelToCDS(mygrid: TdxDBGrid; filename: string);
var
  i,j,row,col,ValidFNCount:integer;
  MyExcel,Sheet:Variant;
  str1,Prompt,ts:string;
  fieldnames:array of string;
  fieldList:array of string;
  ColIndex:array of Integer;//Excel列序號
  tmpcds:TDataSet;
  tmpds:TDataSource;
  CelValue:string;

  //搜尋Excel的標題是否有對應到資料表中的欄位
  procedure SetFieldList;
  var
    t,t2,js:Integer;
    str1,str2:string;
  begin
    //搜尋Excel中的有效欄位
    for t:=1 to col do
    begin
      str1:=StringReplace(Sheet.Cells[1,t].Text,' ','',[rfReplaceAll]);
      for t2:=0 to mygrid.ColumnCount-1 do
      begin
        str2:=StringReplace(mygrid.Columns[t2].Caption,' ','',[rfReplaceAll]);
        if str1=str2 then
        begin
          ValidFNCount:=ValidFNCount+1;
          Break;
        end;
      end;
    end;
    SetLength(fieldList,ValidFNCount);
    SetLength(ColIndex,ValidFNCount);
    js:=0;
    for t:=1 to col do
    begin
      str1:=StringReplace(Sheet.Cells[1,t].Text,' ','',[rfReplaceAll]);
      for t2:=0 to mygrid.ColumnCount-1 do
      begin
        str2:=StringReplace(mygrid.Columns[t2].Caption,' ','',[rfReplaceAll]);
        if str1=str2 then
        begin
          fieldList[js]:=mygrid.Columns[t2].FieldName;//欄位
          fieldnames[js]:=mygrid.Columns[t2].Caption;//欄位顯示名稱
          ColIndex[js]:=t;//Excel列序號1...
          js:=js+1;
          Break;
        end;
      end;
    end;
  end;

  function CheckField:string;
  var
    t:Integer;
    str1:string;
  begin
    for t:=1 to col do
    begin
      str1:=stringreplace(Sheet.Cells[1,t].Text,' ','',[rfReplaceAll]);
      if str1=fieldnames[i] then
      begin
        Break;
      end;
      Result:=str1;
    end;
  end;
  //Excel列名至少有一個與grid中的欄位相對應,是否不執行資料追加操作
  function CheckFieldArray:Boolean;
  var
    t,t2:integer;
  begin
    t2:=0;
    for t:=0 to col-1 do
    begin
      if Trim(fieldList[t])<>'' then
      begin
        t2:=1;
        Break;
      end;
    end;
    if t2=0 then
      Result:=true
    else
      Result:=False;
  end;
begin
  if UpperCase(ExtractFileExt(filename))<>uppercase('.xlsx') then
  begin
    ExportXLSToCDS(mygrid,filename);
    Exit;
  End;
    //支援Excel2007格式
  tmpcds:=mygrid.DataSource.DataSet;
  tmpds:=mygrid.DataSource;
  try
    MyExcel:=CreateOleObject('Excel.Application');
  except
    ts:='請安裝Excel';
    MessageDlg(ts,mtWarning,[mbok],0);
    Exit;
  end;
  tmpcds.DisableControls;
  SetLength(fieldnames,mygrid.ColumnCount);
  try
    for i:=0 to mygrid.ColumnCount-1 do
    begin
      if mygrid.Columns[i].Visible then
         fieldnames[i]:=stringreplace(mygrid.Columns[i].Caption,' ','',[rfReplaceAll]);
    end;
    str1:=CheckField;
    if str1<>'' then
    begin
      MessageDlg('Excel中的'+str1+'不正確',mtError,[mbOK],0);
      Exit;
    end;
    MyExcel.Workbooks.open(filename);
    Sheet:=MyExcel.ActiveSheet;
    row:=Sheet.UsedRange.Rows.Count;//行數
    col:=Sheet.UsedRange.Columns.Count;//列數
    if row<=1 then
    begin
      Prompt:='Excel中至少有一條資料'+#13+'第一行是標題,其它行為資料行'+#13+'條件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    if col<=1 then
    begin
      Prompt:='Excel中至少有一列資料'+#13+'條件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    SetFieldList;
    if CheckFieldArray then
    begin
      Prompt:='Excel中第一行中的列名至少有一個與列表中欄位相同'+#13+'條件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    Screen.Cursor:=crHourGlass;
    if not tmpcds.Active then
      tmpcds.Open;
    for i:=2 to row do
    begin
      Application.ProcessMessages;
      CelValue:=Trim(Sheet.Cells[i,0].Text);
      if (CelValue='') then Continue;
      tmpcds.Append;
      for j:=0 to ValidFNCount-1 do
      begin
        Application.ProcessMessages;
        CelValue:=Trim(Sheet.Cells[i,ColIndex[j]].Text);
        try
          //匯入的資料文字不可以有公式，否則會出錯
          if (CelValue<>'') then
          begin
            case tmpcds.FieldByName(fieldList[j]).DataType of
              ftString:
                 tmpcds.FieldByName(fieldList[j]).AsString:=CelValue;
              ftSmallint,ftInteger,ftWord,ftBoolean,ftFloat,ftCurrency,
              ftBCD,ftBytes:
                tmpcds.FieldByName(fieldList[j]).Value:=StrToFloat(CelValue);
              ftDate,ftTime,ftDateTime:
                tmpcds.FieldByName(fieldList[j]).AsDateTime:=Sheet.Cells[i,ColIndex[j]].Value;
            end;
          end;
        except
          on E:Exception do
          begin
            MessageDlg(E.Message+#13+'寫入欄位'+fieldList[j]+'時出錯,寫入內容:'
               +vartostr(CelValue)+#13+'Excel出錯行列：'+inttostr(i)+','+inttostr(j),mtError,[mbOK],0);
          end;
        end;
      end;
      tmpcds.Post;
    end;
  finally
    tmpcds.EnableControls;
    MyExcel.Workbooks.close;
    MyExcel.quit;
    Sheet:=Unassigned;
    MyExcel:=Unassigned;
    Screen.Cursor:=crDefault;
    MessageDlg('資料匯入完畢',mtInformation,[mbOK],0);
  end;
end;

以上方法通過建立Excel物件匯入其資料的，未使用第三方控制元件，其傳入引數dxgrid可以改成您應用程式自已的控制元件型別，只要其帶有datasource.dataset屬性即可，比較靈活，但資料量比較大時可能比較慢，所以我做了一下改進，使用第三方控制元件讀取Excel，再執行匯入操作，這樣速度非常快，以下是我改進的使用TcxSpreadSheet控制元件讀取Excel的方法：

procedure ExportXLSToCDS(mygrid:TdxDBGrid;filename:string);//將excel匯入資料集
var
  i,j,row,col,ValidFNCount:integer;
  MyExcel:TcxSpreadSheet;
  str1,Prompt:string;
  fieldnames:array of string;
  fieldList:array of string;
  ColIndex:array of Integer;//Excel列序號
  tmpcds:TDataSet;
  tmpds:TDataSource;
  CelValue:string;

  //搜尋Excel的標題是否有對應到資料表中的欄位
  procedure SetFieldList;
  var
    t,t2,js:Integer;
    str1,str2:string;
  begin
    //搜尋Excel中的有效欄位
    for t:=0 to col-1 do
    begin
      str1:=StringReplace(MyExcel.Sheet.getcellobject(t,0).Text,' ','',[rfReplaceAll]);
      for t2:=0 to mygrid.ColumnCount-1 do
      begin
        str2:=StringReplace(mygrid.Columns[t2].Caption,' ','',[rfReplaceAll]);
        if str1=str2 then
        begin
          ValidFNCount:=ValidFNCount+1;
          Break;
        end;
      end;
    end;
    SetLength(fieldList,ValidFNCount);
    SetLength(ColIndex,ValidFNCount);
    js:=0;
    for t:=0 to col-1 do
    begin
      str1:=StringReplace(MyExcel.Sheet.getcellobject(t,0).Text,' ','',[rfReplaceAll]);
      for t2:=0 to mygrid.ColumnCount-1 do
      begin
        str2:=StringReplace(mygrid.Columns[t2].Caption,' ','',[rfReplaceAll]);
        if str1=str2 then
        begin
          fieldList[js]:=mygrid.Columns[t2].FieldName;//欄位
          fieldnames[js]:=mygrid.Columns[t2].Caption;//欄位顯示名稱
          ColIndex[js]:=t;//Excel列序號1...
          js:=js+1;
          Break;
        end;
      end;
    end;
  end;

  function CheckField:string;
  var
    t:Integer;
    str1:string;
  begin
    for t:=0 to col-1 do
    begin
      str1:=stringreplace(MyExcel.Sheet.getcellobject(t,0).Text,' ','',[rfReplaceAll]);
      if str1=fieldnames[i] then
      begin
        Break;
      end;
      Result:=str1;
    end;
  end;
  //Excel列名至少有一個與grid中的欄位相對應,是否不執行資料追加操作
  function CheckFieldArray:Boolean;
  var
    t,t2:integer;
  begin
    t2:=0;
    for t:=0 to col-1 do
    begin
      if Trim(fieldList[t])<>'' then
      begin
        t2:=1;
        Break;
      end;
    end;
    if t2=0 then
      Result:=true
    else
      Result:=False;
  end;

begin
  tmpcds:=mygrid.DataSource.DataSet;
  tmpds:=mygrid.DataSource;
  MyExcel:=TcxSpreadSheet.Create(nil);
  tmpcds.DisableControls;
  SetLength(fieldnames,mygrid.ColumnCount);
  try
    for i:=0 to mygrid.ColumnCount-1 do
    begin
      if mygrid.Columns[i].Visible then
         fieldnames[i]:=stringreplace(mygrid.Columns[i].Caption,' ','',[rfReplaceAll]);
    end;
    str1:=CheckField;
    if str1<>'' then
    begin
      MessageDlg('Excel中的'+str1+'不正確',mtError,[mbOK],0);
      Exit;
    end;
    MyExcel.LoadFromFile(filename);
    row:=MyExcel.Sheet.ContentRowCount;//行數
    col:=MyExcel.Sheet.ContentColCount;//列數
    if row<=1 then
    begin
      Prompt:='Excel中至少有一條資料'+#13+'第一行是標題,其它行為資料行'+#13+'條件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    if col<=1 then
    begin
      Prompt:='Excel中至少有一列資料'+#13+'條件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    SetFieldList;
    if CheckFieldArray then
    begin
      Prompt:='Excel中第一行中的列名至少有一個與列表中欄位相同'+#13+'條件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    Screen.Cursor:=crHourGlass;
    if not tmpcds.Active then
      tmpcds.Open;
    for i:=1 to row-1 do
    begin
      Application.ProcessMessages;
      CelValue:=Trim(MyExcel.Sheet.getcellobject(ColIndex[0],i).DisplayText);
      if (CelValue='') then Continue;
      tmpcds.Append;
      for j:=0 to ValidFNCount-1 do
      begin
        Application.ProcessMessages;
        CelValue:=MyExcel.Sheet.getcellobject(ColIndex[j],i).DisplayText;
        try
          //匯入的資料文字不可以有公式，否則會出錯
          if VarToStr(CelValue)<>'' then
          begin
            case tmpcds.FieldByName(fieldList[j]).DataType of
              ftString:
                 tmpcds.FieldByName(fieldList[j]).AsString:=CelValue;
              ftSmallint,ftInteger,ftWord,ftBoolean,ftFloat,ftCurrency,
              ftBCD,ftBytes:
                tmpcds.FieldByName(fieldList[j]).Value:=StrToFloat(CelValue);
              ftDate,ftTime,ftDateTime:
                tmpcds.FieldByName(fieldList[j]).AsDateTime:=MyExcel.Sheet.getcellobject(ColIndex[j],i).DateTime;
            end;
          end;
        except
          on E:Exception do
          begin
            MessageDlg(E.Message+#13+'寫入欄位'+fieldList[j]+'時出錯,寫入內容:'
               +vartostr(CelValue)+#13+'Excel出錯行列：'+inttostr(i)+','+inttostr(j),mtError,[mbOK],0);
          end;
        end;
      end;
      tmpcds.Post;
    end;
  finally
    tmpcds.EnableControls;
    Screen.Cursor:=crDefault;
    FreeAndNil(MyExcel);
    MessageDlg('資料匯入完畢',mtInformation,[mbOK],0);
  end;
end;
注：我使用的TcxSpreadSheet版本比較低，只支援.xls格式.各種開發工具使用以上方法只要將程式碼稍做改動即可。

相關推薦

通用的將Excel匯入資料集的方法

開發中經常有需要將Excel匯入資料集的需要，但每張Excel的欄位都會不同，常規的做法有兩種： 一、針對每一張Excel的欄位與資料集欄位位置在程式中寫好，一一對應匯入 二、針對每一張Excel的欄位與資料集欄位配置好應用引數 這兩種方法都比較麻煩，很不靈活，所以我寫了一

將Excel的資料匯入SqlServer的表中

記錄一下最近從Excel匯入大量資料到SqlServer表中的步驟。 在將Excel資料準備好以後。 1、右鍵SQL Server中需要匯入資料的庫名，選擇【任務】—【匯入資料】如圖： 2、彈

一個小例子集合xlrd，matplotlib，numpy，scipy使用方法（從Excel匯入資料）

最近因為一篇論文的原因，要從Excel中取得部分資料平作圖，但是得到的圖都是點陣圖，不是太好插入到論文中，因此，決定使用Python畫圖來解決此問題（不使用MATLAB的原因在於它畫出的圖是在是不好看呀） 首先使用的庫是xlrd庫，此庫的作用是從讀取Exc

【VBA】 通過VBA指令碼將EXCEL的資料匯入 ORACLE

作者：lianghc 描述：最近在使用infamatica 將excel  的資料匯入oracle時，遇到意外終止錯誤，無法將資料匯入。於是採用VBA將資料匯入資料庫，是辦公人員一鍵同步excel的資料導資料庫中，這種做法的前提是提供標準的模板。下面是解決問題過程中收集的連

將excel檔案資料匯入sqlite3資料庫筆記

參考文章：http://blog.chinaunix.net/uid-1844931-id-2981048.html 1、首先需要將excel檔案另存為csv格式的檔案，這個檔案可以直接使用文字方式開啟，內容中間是用逗號分隔的，匯出時注意一下格式，去掉換行或者多餘的內容之

python建立Excel檔案資料的方法

# -*- coding: utf-8 -*-# @Time : 2018/12/6 17:10# @Author : suchao# @Disc: : 生成10000條Excel資料# @File : 1000data.py# @Software: PyCharmimport xlrd ,

POI-excel匯入資料錯誤異常處理-Unexpected element: CDATA

org.apache.poi.POIXMLException: org.apache.xmlbeans.XmlException: error: Unexpected element: CDATA at org.apache.poi.xssf.usermodel.XSSFSheet.read(X

keras載入MNIST資料集方法

由於公司網路限制，因此使用keras自帶的MNIST資料集載入方法   (x_train, y_train),(x_test, y_test) = mnist.load_data()   是不可行的，所以只能另闢蹊徑。   第一種方法： &n

學習ML.NET(3): 匯入資料集

機器學習演算法需要作用於資料，用來訓練演算法模型。資料集通常是以純文字檔案儲存的表格資料，檔案的每一行是一條資料記錄，每條記錄由多列組成，列之間用分隔符（一般是逗號,）分開，例如前面用到過的 在ML.NET中，使用TextLoader將文字檔案匯入到資料集。使用方式如下： new TextLoader

MS_COCO資料集轉協同顯著資料集方法

實驗環境：Ubuntu16，python2 說明：COCO2014版本未直接提供語義分割真值圖，COCO2017版直接提供語義分割真值圖。因此我們使用COCO2017。 第一步 下載COCO官方API 到Ubuntu桌面 解壓 得到檔案目錄/root/Deskt

依賴POI實現EXCEL匯入資料並生成javaBean和EXCEL根據資料庫表匯出

首先是excel匯入匯出的工具類程式碼 public class ExportExcel { // 測試123 private ExportExcel() { } /*** * 工作簿 */

Java之excel匯入資料同時相容.xls和.xlsx

前幾天寫了一個java中用poi操作excel匯入資料的小例子，後來發現並不能相容兩種版本的excel，經過改進發現了兩種方法都可以。 第一種，這種直接用了Workbook的工廠方法。 // 建立對Excel工作簿檔案的引用 //直接用HSSFWorkb

Python/Keras如何將給定的資料集打亂

index = [i for i in range(len(data))] random.shuffle(index) data = data[index] label = label[index] （1）首先，獲得資料集的所有index，其實就是0

C# Excel匯入資料到資料庫

//專案中用到的一個小例子，拿出來和大家分享    ，需要引用  using System.IO; using System.Data.OleDb; /// <summary>     /// Excel資料匯入Datable     /// </summ

【Excel匯入】關於Excel匯入資料超時的一個小問題

丟擲問題 Excel匯入是運營批量任務常用的方法之一，但是程式碼在識別Excel的時候，獲取方式不正確，或者Excel設定有問題的話，就會造成大量無用的處理請求，耽誤程式碼執行的效率，例如：程式碼識別的時候，連同Excel的空白行都識別進去，處理的時候也處理空

MongoDB 批量以 JSON 形式匯入資料的方法

一些說明 為什麼要寫這篇文章？ 　　最近在做一個 Node + Bootstrap + Vue + MongoDB 的練手專案，打算做一個線上分享詩歌的網站，雖然一開始的定位就註定不會有什麼使用者

excel匯入資料的時間格式問題

問題描述 匯入資料的時候，如果不注意時間的格式問題，後臺讀到的資料會變為40740.74363425939(即讀到的是總的天數，excel中的時間為2011-07-16 17:50:50) 40

Java型別資訊與用反射機制編寫通用的Excel匯入匯出

Java類檔案編譯後，會在類中新增一個靜態屬性，這個屬性就是Class類的例項，用於描述型別資訊。描述類資訊的架構圖如：    Class物件提供了一組方法，讓我們可以方便獲取類的屬性，方法，構造方法等資訊，並且用Field,Method,Constructor類

今天做一個excel匯入資料的功能，用到了NPOI，可是發現excel中日期格式拿到之後格式變了，無法轉換成DateTime型別了

解決方法：DateTime在NPOI中的型別是Numeric ，判斷如果是Numeric 型別的話再用.Net自帶的DateUtil.IsCellDateFormatted(cell)方法判斷是否為DateTime型別，如果2個都成立，取cell的DateCellValue屬

Redis批量匯入資料的方法

有時候，我們需要給redis庫中插入大量的資料，如做效能測試前的準備資料。遇到這種情況時，偶爾可能也會懵逼一下，這裡就給大家介紹一個批量匯入資料的方法。 先準備一個redis protocol的檔案（redis protocol可以參考這裡：https://redis.io/topics/protocol）