把DBGRID数据直接导入EXCEL中的过程
2011-05-14 19:16
281 查看
忙了一天就忙了个Excel导出,以为很好了,虽然慢点,没想到临了还真整出一个更好的导入方法。。可喜可贺。。只可惜一天就这么点收获啊。。大家看看把。。直接从Excel表显示数据。。
要uses ComObj;
private
procedure CopyDbDataToExcel(Target: TDbgrid); // 定义一个过程
procedure Ttjzb_Form.CopyDbDataToExcel(Target: TDbgrid);
var
iCount, jCount: Integer;
XLApp: Variant;
Sheet: Variant;
begin
Screen.Cursor := crHourGlass;
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
VarClear(XLApp);
end;
//通过ole创建Excel对象
try
XLApp := CreateOleObject('Excel.Application');
except
Screen.Cursor := crDefault;
Exit;
end;
XLApp.WorkBooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Name := '测试工作薄';
Sheet := XLApp.Workbooks[1].WorkSheets['测试工作薄'];
if not Target.DataSource.DataSet.Active then
begin
Screen.Cursor := crDefault;
Exit;
end;
Target.DataSource.DataSet.first;
for iCount := 0 to Target.Columns.Count - 1 do
begin
Sheet.cells[1, iCount + 1] := Target.Columns.Items[iCount].Title.Caption;
end;
jCount := 1;
while not Target.DataSource.DataSet.Eof do
begin
for iCount := 0 to Target.Columns.Count - 1 do
begin
Sheet.cells[jCount + 1, iCount + 1] := Target.Columns.Items[iCount].Field.AsString;
end;
Inc(jCount);
Target.DataSource.DataSet.Next;
end;
XlApp.Visible := True;
Screen.Cursor := crDefault;
end;
procedure Ttjzb_Form.Button1Click(Sender: TObject);
begin
CopyDbDataToExcel(TJZB_DB); //调用过程
end;
应该是很详细的了。。
要uses ComObj;
private
procedure CopyDbDataToExcel(Target: TDbgrid); // 定义一个过程
procedure Ttjzb_Form.CopyDbDataToExcel(Target: TDbgrid);
var
iCount, jCount: Integer;
XLApp: Variant;
Sheet: Variant;
begin
Screen.Cursor := crHourGlass;
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
VarClear(XLApp);
end;
//通过ole创建Excel对象
try
XLApp := CreateOleObject('Excel.Application');
except
Screen.Cursor := crDefault;
Exit;
end;
XLApp.WorkBooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Name := '测试工作薄';
Sheet := XLApp.Workbooks[1].WorkSheets['测试工作薄'];
if not Target.DataSource.DataSet.Active then
begin
Screen.Cursor := crDefault;
Exit;
end;
Target.DataSource.DataSet.first;
for iCount := 0 to Target.Columns.Count - 1 do
begin
Sheet.cells[1, iCount + 1] := Target.Columns.Items[iCount].Title.Caption;
end;
jCount := 1;
while not Target.DataSource.DataSet.Eof do
begin
for iCount := 0 to Target.Columns.Count - 1 do
begin
Sheet.cells[jCount + 1, iCount + 1] := Target.Columns.Items[iCount].Field.AsString;
end;
Inc(jCount);
Target.DataSource.DataSet.Next;
end;
XlApp.Visible := True;
Screen.Cursor := crDefault;
end;
procedure Ttjzb_Form.Button1Click(Sender: TObject);
begin
CopyDbDataToExcel(TJZB_DB); //调用过程
end;
应该是很详细的了。。
相关文章推荐
- 把DBGRID数据直接导入EXCEL中的过程,不涉及ADOQUERY,DATAsource
- Talend 从Excel导入Saleforce数据(一) 直接从salesforce lookup 性能的噩梦
- 将Excel数据直接导入数据库的程序
- 如何将DBGrid 中的数据导入到EXCEL中
- 通过excel模板批量导入数据实现过程总结
- 效率最高的Excel数据导入续---SSIS Package包制作图解全过程
- 留个记念,第一次写这么长的存储过程。关于台湾地址excel中数据从一张表中导入另一张不同结构的表!
- Springboot上传excel并将表格数据导入或更新mySql数据库的过程
- 从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句:
- Excel数据导入SQL Server2000的存储过程
- 行式填报表导入excel数据直接入库
- SharePoint 2010 中有个新的列表模板“导入电子表格”可以直接导入Excel数据并创建为列表
- SharePoint 2010 中有个新的列表模板“导入电子表格”可以直接导入Excel数据并创建为列表
- 通过SP调用FSO直接把DB中table数据导入Excel
- 怎样将Datatable中的数据直接导入到Excel模板上
- 利用存储过程将Excel中数据导入到数据库表中
- 行式填报表导入excel数据直接入库
- 通过excel模板批量导入数据实现过程总结
- 将DataGrid的数据直接导入Excel
- 直接复制Excel表格数据到PL/SQL和导入Excel文件到PL/SQL