dbgird中导出到excel函数
来源:互联网 发布:js 当前时间减去2小时 编辑:程序博客网 时间:2024/05/29 14:14
函数
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;
调用:
if application.MessageBox('确定要导出?','提示信息',mb_okcancel+mb_iconquestion)=idok then
begin
try
CopyDbDataToExcel([DBGrid1]);
application.MessageBox('导出成功!','提示信息',mb_ok+mb_iconinformation);
except
application.MessageBox('执行出错','提示信息',mb_ok+mb_iconinformation);
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;
调用:
if application.MessageBox('确定要导出?','提示信息',mb_okcancel+mb_iconquestion)=idok then
begin
try
CopyDbDataToExcel([DBGrid1]);
application.MessageBox('导出成功!','提示信息',mb_ok+mb_iconinformation);
except
application.MessageBox('执行出错','提示信息',mb_ok+mb_iconinformation);
end;
end;
- dbgird中导出到excel函数
- DBGird导出Excel(delphi)
- DBGird中数据导入Excel例子!
- 导出数据到excel中
- 导出数据到Excel中
- C#中导出到Excel
- 导出GridView到Excel中
- 导出GridView到Excel中
- table导出到excel中
- 导出数据到Excel中
- 用dbgird导出execl表
- PB数据窗口导出到EXCEL函数
- vb6的导出到Excel的函数
- PB数据窗口导出到EXCEL函数
- .net 中导出到excel表中
- 导出DataGridView中数据到EXCEL中
- sqlplus中导出数据到excel中
- 把TABLE中内容导出到EXCEL
- Delphi 7 中DBGrid的排序
- StyleBook皮肤控件的使用
- DBGRIDEH 组件,速达2000中应用了该组件
- delphi 限制文本框中只接受数字
- Edit控件的外观只有一条下划线
- dbgird中导出到excel函数
- Java字节序
- 自带的Indy控件实现MD5加密
- 输入数字并且只能输入一个小数点
- delphi网络时间校对
- 释放资源文件中的exe文件并运行
- 最精简的小写金额转大写的函数
- 只允许运行一个实例的三种方法
- Delphi 去掉MDI窗口的滚动条