最新 excel 导出代码.....(不需要模版)
来源:互联网 发布:克利夫兰战舰世界数据 编辑:程序博客网 时间:2024/06/10 22:11
///调用.....
begin
if application.MessageBox('确定要导出?', '提示信息', mb_okcancel + mb_iconquestion) = idok then
begin
try
CopyDbDataToExcel([dbgrd1]);
application.MessageBox('导出成功!', '提示信息', mb_ok + mb_iconinformation);
except
application.MessageBox('执行出错', '提示信息', mb_ok + mb_iconinformation);
end;
end;
end;
///函数
procedure CopyDbDataToExcel(Args: array of const);
var
iCount, jCount: Integer;
XLApp: Variant;
Sheet: Variant;
I: Integer;
begin
Screen.Cursor := crHourGlass;
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
VarClear(XLApp);
end;
try
XLApp := CreateOleObject('Excel.Application');
except
Screen.Cursor := crDefault;
Exit;
end;
XLApp.WorkBooks.Add;
XLApp.SheetsInNewWorkbook := High(Args) + 1;
for I := Low(Args) to High(Args) do
begin
XLApp.WorkBooks[1].WorkSheets[I + 1].Name := TDBGrid(Args[I].VObject).Name;
Sheet := XLApp.Workbooks[1].WorkSheets[TDBGrid(Args[I].VObject).Name];
if not TDBGrid(Args[I].VObject).DataSource.DataSet.Active then
begin
Screen.Cursor := crDefault;
Exit;
end;
TDBGrid(Args[I].VObject).DataSource.DataSet.first;
for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do
Sheet.Cells[1, iCount + 1] :=
TDBGrid(Args[I].VObject).Columns.Items[iCount].Title.Caption;
jCount := 1;
while not TDBGrid(Args[I].VObject).DataSource.DataSet.Eof do
begin
for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do
Sheet.Cells[jCount + 1, iCount + 1] :=
TDBGrid(Args[I].VObject).Columns.Items[iCount].Field.AsString;
Inc(jCount);
TDBGrid(Args[I].VObject).DataSource.DataSet.Next;
end;
XlApp.Visible := True;
end;
Screen.Cursor := crDefault;
end;
- 最新 excel 导出代码.....(不需要模版)
- 以ireport作为模版导出excel代码
- 导出excel调用模版
- 模版导出excel、word
- Easypoi模版导出excel
- jxl调用模版导出Excel
- POI利用模版导出excel
- java 导出excel copy 模版
- 根据excel模版导出数据到excel
- 根据excel模版导出数据到excel
- java导出excel不需要额外jar包
- poi之excel导出(不需要合并单元格)
- 纯cs代码生成Excel(不需要Excel)
- c# Excel 导出最新办法
- 代码生成Excel导入模版
- java jsp JXL调用模版导出Excel
- java jsp JXL调用模版导出Excel
- JAVA使用POI根据模版导出EXCEL
- ARM能否上演“蚂蚁撼大象”?
- 分享一个创新工场的面试题
- gdb中p 类名 的输出结果分析
- 你能输出这样的图形吗?
- 有限元漫谈
- 最新 excel 导出代码.....(不需要模版)
- 第四章 [ ]运算符的本质
- 怎么测试含有type参数的存储过程
- 中国互联网无线化峰会--暨阿里云开发者大会听后感
- 第五章 指向数组的指针
- 3D渲染管线中的变换矩阵及推导过程
- Android系统移植全过程
- 第六章 “另类”数组
- Android的Task和Activity相关