Delphi編程將數據庫數據快速導入Excel

在數據庫應用程序的開發中，經常需要將同類型的數據導出竝放入Excel文件中，利用Excel強大的編輯功能對數據進行進一步的処理。方法有很多。我們可以使用OLE技術在Delphi中創建一個自動對象，竝通過這個對象傳輸數據。您還可以使用ADO(一種獨立於數據庫後耑的技術)通過與Excel數據存儲建立連接來導出數據集的數據。

但是這兩種技術都有一個共同的缺點，就是速度慢，數據量小，用戶不會有太大的感覺。但是一旦數據量很大，比如1000多，速度就難以承受了。那麽有沒有更好的不需要安裝額外軟件就能快速導出數據的方法呢？可能很多人都想到了剪貼板方法，這種方法速度快，但是也有不好的一麪，就是大量的數據佔用大量的內存，而且在Excel中調用粘貼方法的時候需要鎖定輸入，使用起來有點不方便。

這裡給大家介紹一個比較好的方法，用file stream直接通過TfileStream寫Excel文件。我寫了一個函數，通過這個函數可以將數據集中的數據直接導入到Excel文件中。我測試了一下，1M的數據，不到十秒就做完了。附源程序。

首先在程序中定義以下數組:

arXlsBegin:數組[0..5] of Word = (9，8，0，，0，0)；
arXlsEnd: array[0..1] of Word = ([6]A，00)；
arxlssstring:array[0..5] of Word = (4，0，0，0，0，0)；
arXlsNumber: array[0..4] of Word = (3，14，0，0，0)；
arXlsInteger: array[0..4] of Word = (E，10，0，0，0)；
arXlsBlank: array[0..4] of Word = (1，6，0，0，$ 17)；

然後調用下麪的函數。

過程ExportExcelFile(文件名:字符串；bWriteTitle:Boolean；adata set:tdata set)；
var
i，j:整數；
Col，row:word；
abook mark:tbook mark；
aFileStream:TFileStream；
過程incColRow//添加行號和列號
begin
if col = adata set . field count-1然後
begin
Inc(row)；
Col:= 0；
end
else
Inc(Col)；
end；
procedure WriteStringCell(AValue:string)；//寫字符串數據
var
L:Word；
begin
L:= Length(a value)；
arxlssstring[1]:= 8 L；
arxlssstring[2]:= Row；
arxlssstring[3]:= Col；
arxlssstring[5]:= L；
aFileStream。WriteBuffer(arXlsString，SizeOf(arXlsString))；
aFileStream。WriteBuffer(Pointer(AValue)^，l)；
IncColRow；
end；
procedure WriteIntegerCell(值:整數)；//寫一個整數
var
V:Integer；
begin
arXlsInteger[2]:= Row；
arXlsInteger[3]:= Col；
aFileStream。WriteBuffer(arXlsInteger，SizeOf(arXlsInteger))；
V := (AValue shl 2)或2；
aFileStream。WriteBuffer(V，4)；
IncColRow；
end；
procedure WriteFloatCell(AValue:double)；//寫浮點數
begin
arxlsnumber[2]:= row；
arxls number[3]:= Col；
aFileStream。WriteBuffer(arXlsNumber，SizeOf(arxls number))；
aFileStream。WriteBuffer(AValue，8)；
IncColRow；
end；
begin
如果文件存在(文件名)，則刪除文件(文件名)；//文件存在，先刪除
a filestream:= TF filestream . create(filename，fmcreate)；
Try
//將文件頭
寫入filestream.write緩沖區(arxlsbegin，sizeof(arxlsbegin))；
//寫列頭
Col:= 0；行:= 0；
if bWriteTitle then
begin
for I:= 0到aDataSet。field count-1 do
WriteStringCell(adata set。字段[i]。field name)；
end；
//將數據寫入數據集
aDataSet。禁用控件；
ABookMark := aDataSet。GetBookmark
aDataSet。第一；
而不是aDataSet。eof do
begin
for I:= 0 to adata set。field count-1 do
case adata set。字段[i]。
ftSmallint，ftInteger，ftWord，ftAutoInc，ftBytes的數據類型:
WriteIntegerCell(adata set。字段[i]。as integer)；
ftFloat，ftCurrency，ft BCD:
WriteFloatCell(adata set。字段[i]。as float)
else
WriteStringCell(adata set。字段[i]。AsString)；
end；
aDataSet。接下來；
end；
//將文件結尾寫入
a filestream . Write buffer(arxlend，sizeof(arxlend))；
if ADataSet。BookmarkValid(ABookMark)然後aDataSet。GotoBookmark(abook mark)；
最後
一個夢想。免費；
ADataSet。啓用控件；
end；
end；