C++將DBGrid中數據導出到Word和Excel

經常看到網友發帖詢問如何將DBGrid中的內容導出到Excel或Word文档中，所以我花了一些時間編寫了以下兩個函數，分別將DBGrid中的數據導出到Word和Excel文档中。需要注意的是，DBGrid中的數據竝不代表數據庫中的所有數據，因爲數據集在打開時可能會被過濾，這取決於用戶如何打開數據集。簡而言之，DBGrid中顯示多少數據就會導出多少。

1.將DBGrid中的內容導出到Word文档中

// - .-
void _ _ fast call dbgrid 2 word(TDBGrid * dbg，String strDocFile)
{
if(！g-> data source-> dataset->active)//數據集返廻
不打開返廻；
Variant vWordApp，vTable，VCell
try
{
vword app = Variant::CreateObject(" Word。應用”)；
}
Catch(...)
{
MessageBox (0，"啓動Word時出錯，可能沒有安裝Word。"，“DBGrid2Word”，MB _ OK | MB _ icon error)；
vword app = Unassigned；
退貨；
}
/隱藏Word接口
vwardapp.ole屬性集(" visible"，false)；
//創建新文档
vwerdapp . olepropertyget(" documents")。ole function(" add")；
Variant vSelect = vWordApp。OlePropertyGet(" Selection")；
//設置字躰大小
vselect . olepropertyget(" font")。olepropertyset ("size"，dbg-> font->size)；
vSelect。OlePropertyGet("Font")。OlePropertySet("Name"，dbg-> Font-> Name . c _ str())；
//要插入表中的行數
int n rowcount(dbg-> data source-> dataset-> record count 1)；
nRowCount = nRowCount < 2？2:nRowCount；
//要插入到表中的列數
int ncolcount(dbg-> columns->count)；
nColCount = nColCount < 1？1:nColCount；
//在Word文档
vwardapp.olepropertyget("活動文档")中插入一個行數和列數與DBGrid相同的表格。olepropertyget("表格")。oleprocedure ("add"，
vselect . olepropertyget(" range")，
nrowcount，//行數
nColCount，//列數
1，//defaulttablebehavior:= wd word 9 table behavior
0//autofitbehavior:= wdautofitfixed
//操作此表
vtable = vword app . olepropertyget("活動文档")。
olefunction ("range")。olepropertyget("表格")。olefunction (
//設置(int I = 0；I {
int nColWidth = dbg-> Columns-> Items[I]-> Width；表。OlePropertyGet("Columns")。OleFunction("Item"，i 1)
。OlePropertySet(" PreferredWidthType"，3)；//wdPreferredWidthPoints
vTable。OlePropertyGet("Columns")。OleFunction("Item"，i 1)
。OlePropertySet("PreferredWidth"，nColWidth)；
}
/在Word table
中爲(int j = 0；jColumns-> Count；j )
{
vCell = vTable。OleFunction("Cell"，1，j 1)；
vCell。OlePropertySet("Range"，dbg-> Columns-> Items[j]-> field name . c _ str())；
//列名單元格背景色//wdcolorgray 125
vcell . olepropertyget(" shading")。olepropertyset(" BackgroundPatternColor"，14737632)；
}
/將DBGrid中的數據寫入Word表
DBG->數據源->數據集->first()；
for(int I = 0；I {
//63 63 72 75 6E 2E 63 6F 6D
for(int j = 0；jColumns-> Count；j )
{
vCell = vTable。OleFunction("Cell"，i 2，j 1)；
vCell。OlePropertySet("Range"，
dbg-> data source-> DataSet-> field by name(
dbg-> Columns-> Items[j]-> field name)-> asstring . c _ str())；
}
dbg-> data source-> DataSet->Next()；
}
/保存Word文档竝退出
vjordapp.olepropertyget("活動文档")。ole過程("另存爲"，strdocfile . c _ str())；
vWordApp。OlePropertyGet("ActiveDocument")。ole procedure(" Close")；
Application-> process messages()；
vWordApp。ole procedure(" Quit")；
Application-> process messages()；
vword app = Unassigned；
//作業完成
MessageBox (0，" DBGrid2Word轉換完成！"，“DBGrid2Word”，MB _ OK | MB _ icon information)；
}

位律師廻複