有關delphi操作Excel的問題-有解無憂

就是給2張表，表一和表二，然后用delphi生成表三那樣的報表(excel)，有多少條資料就生成多少張報表。
（X是給出的資料，Y是要自動生成的資料）
我只會做access資料庫的增刪改查，Excel不會，有大神能告訴我怎么做嗎，或者有什么類似的案例嗎？謝謝了。

表一：
客戶名稱   識訓地址     聯系人  ............
XXX公司        XX            XX

表二：
客戶名稱    6月欠款金額   7欠款金額   8月欠款金額
XXX公司         XXX                 XXX                  XXX

表三：
YY先生你好：
              您共計欠款YYY元

識訓地址：YYY
聯系人：YYY

uj5u.com熱心網友回復：

Delphi操作Excel的簡單例子，也可以用Delphi自帶的控制元件，在Servers頁，原理是一樣的：



uses Comobj;

procedure TForm1.Button1Click(Sender: TObject);

var

     exlApp,WorkBook1,Sheet1:Variant;

     j:integer;

begin

     try

          exlApp:=CreateOleObject('Excel.Application');

          WorkBook1:=CreateOleObject('Excel.Sheet');

     except

          MessageBox(handle,'呼叫錯誤，沒有正確安裝Microsoft Excel！','提示',MB_OK+MB_ICONInformation);

          Exit;

     end;

     exlApp.Visible:=True;

     WorkBook1:=exlApp.WorkBooks.Add; //添加作業區

     Sheet1:=WorkBook1.WorkSheets[1]; //獲取第一個作業簿

     for j:=1 to 5 do

     begin

          sheet1.columns[j].numberformatlocal:='@'; //設定列為文本格式

          sheet1.Cells[1,j].Interior.Color:=$00D9FFCE; //設定單元格背景為淺綠色

          sheet1.Cells[1,j].Borders[9].LineStyle:=1;   //設定邊框線

          sheet1.columns[j].columnwidth:=20; //設定列寬度

          sheet1.cells[1,j]:='單元格值';

     end;

end;

uj5u.com熱心網友回復：

參考樓主 AAA15079595120 的回復:

就是給2張表，表一和表二，然后用delphi生成表三那樣的報表(excel)，有多少條資料就生成多少張報表。
（X是給出的資料，Y是要自動生成的資料）
我只會做access資料庫的增刪改查，Excel不會，有大神能告訴我怎么做嗎，或者有什么類似的案例嗎？謝謝了。

表一：
客戶名稱   識訓地址     聯系人  ............
XXX公司        XX            XX

表二：
客戶名稱    6月欠款金額   7欠款金額   8月欠款金額
XXX公司         XXX                 XXX                  XXX

表三：
YY先生你好：
              您共計欠款YYY元

識訓地址：YYY
聯系人：YYY

你這個是創建Excel表格，好像不能把excel匯入到delphi啊。

uj5u.com熱心網友回復：

參考 1 樓 santiaodahan 的回復:

Delphi操作Excel的簡單例子，也可以用Delphi自帶的控制元件，在Servers頁，原理是一樣的：



uses Comobj;

procedure TForm1.Button1Click(Sender: TObject);

var

     exlApp,WorkBook1,Sheet1:Variant;

     j:integer;

begin

     try

          exlApp:=CreateOleObject('Excel.Application');

          WorkBook1:=CreateOleObject('Excel.Sheet');

     except

          MessageBox(handle,'呼叫錯誤，沒有正確安裝Microsoft Excel！','提示',MB_OK+MB_ICONInformation);

          Exit;

     end;

     exlApp.Visible:=True;

     WorkBook1:=exlApp.WorkBooks.Add; //添加作業區

     Sheet1:=WorkBook1.WorkSheets[1]; //獲取第一個作業簿

     for j:=1 to 5 do

     begin

          sheet1.columns[j].numberformatlocal:='@'; //設定列為文本格式

          sheet1.Cells[1,j].Interior.Color:=$00D9FFCE; //設定單元格背景為淺綠色

          sheet1.Cells[1,j].Borders[9].LineStyle:=1;   //設定邊框線

          sheet1.columns[j].columnwidth:=20; //設定列寬度

          sheet1.cells[1,j]:='單元格值';

     end;

end;

你這個是創建Excel表格，好像不能把excel匯入到delphi啊。

uj5u.com熱心網友回復：

參考 3 樓 AAA15079595120 的回復:

Quote: 參考 1 樓 santiaodahan 的回復:

Delphi操作Excel的簡單例子，也可以用Delphi自帶的控制元件，在Servers頁，原理是一樣的：



uses Comobj;

procedure TForm1.Button1Click(Sender: TObject);

var

     exlApp,WorkBook1,Sheet1:Variant;

     j:integer;

begin

     try

          exlApp:=CreateOleObject('Excel.Application');

          WorkBook1:=CreateOleObject('Excel.Sheet');

     except

          MessageBox(handle,'呼叫錯誤，沒有正確安裝Microsoft Excel！','提示',MB_OK+MB_ICONInformation);

          Exit;

     end;

     exlApp.Visible:=True;

     WorkBook1:=exlApp.WorkBooks.Add; //添加作業區

     Sheet1:=WorkBook1.WorkSheets[1]; //獲取第一個作業簿

     for j:=1 to 5 do

     begin

          sheet1.columns[j].numberformatlocal:='@'; //設定列為文本格式

          sheet1.Cells[1,j].Interior.Color:=$00D9FFCE; //設定單元格背景為淺綠色

          sheet1.Cells[1,j].Borders[9].LineStyle:=1;   //設定邊框線

          sheet1.columns[j].columnwidth:=20; //設定列寬度

          sheet1.cells[1,j]:='單元格值';

     end;

end;

你這個是創建Excel表格，好像不能把excel匯入到delphi啊。

操作Excel肯定要讀寫Excel檔案，這是其中一種方式，呼叫Excel程式的介面。可以隱藏界面 exlApp.Visible:=False;讀取兩個Excel，寫入另外一個，然后退出。資料量大的話最好借助資料庫。
     WorkBook1.SaveAs('filename.xls');
     WorkBook1.Close;
     exlApp.Quit;
     exlApp:=Unassigned;

uj5u.com熱心網友回復：

建議使用XLSReadWriteII4，能讀能寫EXCEL。

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/56586.html

標籤：數據庫相關

上一篇：各位大神。請問這段C++代碼翻譯成Delphi 是什么？

下一篇：delphi 運行錯誤