农行钻石卡年费:把DBGrid导出到Excel表格(支持多Sheet)
来源:百度文库 编辑:中财网 时间:2024/10/05 12:10:09
//DbGrid导出EXCEL {
功能描述:把DBGrid输出到Excel表格(支持多Sheet)
调用格式:CopyDbDataToExcel([DBGrid1, DBGrid2]);
}
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; //DbGrid导出EXCEL //DbGrideh导出EXCEL{
功能描述:把DBGrid输出到Excel表格(支持多Sheet)
调用格式:CopyDbDataToExcel([DBGrid1, DBGrid2]);
}
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 := TDBGrideh(Args[I].VObject).Name;
Sheet := XLApp.Workbooks[1].WorkSheets[TDBGrideh(Args[I].VObject).Name]; if not TDBGrideh(Args[I].VObject).DataSource.DataSet.Active then
begin
Screen.Cursor := crDefault;
Exit;
end; TDBGrideh(Args[I].VObject).DataSource.DataSet.first;
for iCount := 0 to TDBGrideh(Args[I].VObject).Columns.Count - 1 do
Sheet.Cells[1, iCount + 1] :=
TDBGrideh(Args[I].VObject).Columns.Items[iCount].Title.Caption; jCount := 1;
while not TDBGrideh(Args[I].VObject).DataSource.DataSet.Eof do
begin
for iCount := 0 to TDBGrideh(Args[I].VObject).Columns.Count - 1 do
Sheet.Cells[jCount + 1, iCount + 1] :=
TDBGrideh(Args[I].VObject).Columns.Items[iCount].Field.AsString; Inc(jCount);
TDBGrideh(Args[I].VObject).DataSource.DataSet.Next;
end;
XlApp.Visible := True;
end;
Screen.Cursor := crDefault;
end; //DbGrideh导出EXCEL
功能描述:把DBGrid输出到Excel表格(支持多Sheet)
调用格式:CopyDbDataToExcel([DBGrid1, DBGrid2]);
}
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; //DbGrid导出EXCEL //DbGrideh导出EXCEL{
功能描述:把DBGrid输出到Excel表格(支持多Sheet)
调用格式:CopyDbDataToExcel([DBGrid1, DBGrid2]);
}
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 := TDBGrideh(Args[I].VObject).Name;
Sheet := XLApp.Workbooks[1].WorkSheets[TDBGrideh(Args[I].VObject).Name]; if not TDBGrideh(Args[I].VObject).DataSource.DataSet.Active then
begin
Screen.Cursor := crDefault;
Exit;
end; TDBGrideh(Args[I].VObject).DataSource.DataSet.first;
for iCount := 0 to TDBGrideh(Args[I].VObject).Columns.Count - 1 do
Sheet.Cells[1, iCount + 1] :=
TDBGrideh(Args[I].VObject).Columns.Items[iCount].Title.Caption; jCount := 1;
while not TDBGrideh(Args[I].VObject).DataSource.DataSet.Eof do
begin
for iCount := 0 to TDBGrideh(Args[I].VObject).Columns.Count - 1 do
Sheet.Cells[jCount + 1, iCount + 1] :=
TDBGrideh(Args[I].VObject).Columns.Items[iCount].Field.AsString; Inc(jCount);
TDBGrideh(Args[I].VObject).DataSource.DataSet.Next;
end;
XlApp.Visible := True;
end;
Screen.Cursor := crDefault;
end; //DbGrideh导出EXCEL
怎么样把WORD表格导入为EXCEL表格?怎么样把EXCEL表格导出WORD为表格?
如何把.DBF文件的表设计器里的资料导出到EXCEL表格?
怎么样把EXCEL中的表格导出为文本?
EXCEL表格怎么导出打印
有哪位高手知道在VB6.0里怎么把DBGRID输出到EXCEL里啊??
怎么把pagemake里的表格导出到photoshop中
如何把word表格转化到excel表格
请教:VFP6.0怎样把表格导出为EXCEL文件
如何将ASP页面中的表格导出到Excel文件中?
如何将两个VFP的数据表的不同之处导出到EXCEL表格里 谢谢~~
asp网页中的表格的数据导出到excel的问题
谁能帮我把excel表格弄到word中??
怎样把Excel中的表格转换到CorelDRAW里
如何把网页中的表格弄到EXCEL中用???
把单张EXCEL表格打印到符合A4纸大小
EXCEL高手请进:请问怎么把幻灯片导入到EXCEL表格中.具体一点好吗?
怎么样把excel里面的数据导出到txt文件中?急!
怎么把EXCEL中的图片导出?
怎样把多个Excel文件批量导出
vc导入导出数据到excel表
关于VB导出到excel文件
利用select语句导出数据到EXCEL
怎样把别人用DBGrid实现的列表内容,复制下来,保存为Excel文件?
在EXCEL中,如何一次把多张表格的同一地址复制到另外一张表格.