社区
Delphi
帖子详情
从不知道,如何用程序将数据导入一个Excel的文件里
zkfly
2001-09-16 11:05:40
例如:我从数据库中提取了一些数据,然后想把这些数据保存在一个Excel文件里,如何解决。请高手赐教。
...全文
81
2
打赏
收藏
从不知道,如何用程序将数据导入一个Excel的文件里
例如:我从数据库中提取了一些数据,然后想把这些数据保存在一个Excel文件里,如何解决。请高手赐教。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
tikkypeng
2001-09-16
打赏
举报
回复
看看下面代码~~研究研究~~
procedure DataToExcel(Grid:TDbGrid;DataSet:TDataset;Title:String;sExcelFile:String);
var
i,j,Row:integer;
WB: _WorkBook;
WBs: Workbooks;
FExcelWasFound:Boolean;
ExcelFile:string;
FileHandle: integer;
irange:range;
iWidth:integer;
//oFont:olevariant;
begin
try
Screen.Cursor :=crHourGlass ;
{for i:=0 to Grid.Columns.Count -1 do
begin
Dataset.Fields[i].DisplayWidth :=Grid.Columns[i].Width;
end; }
ExcelFile:=sExcelFile;
if not fileExists(ExcelFile) then
begin
FileHandle:=FileCreate(ExcelFile);
Fileclose(FileHandle);
end;
FExcelWasFound := True;
try
FApp := CreateOleObject('Excel.Application.9') as _Application; //调用Excel2000
except
FExcelWasFound := False;
end;
if not FExcelWasFound then //如果不存在,则调用Excel97
try
FApp := CreateOleObject('Excel.Application.8') as _Application;
FExcelWasFound := True;
except
FExcelWasFound := False;
ShowMessage('Excel调用失败!');
end;
if FExcelWasFound then
begin
InitVariables;
New(FSPms);
with FApp ,FSPms^ do
begin
App_SheetsInNewWorkbook := Get_SheetsInNewWorkbook(0);
App_DisplayFormulaBar := Get_DisplayFormulaBar(0);
App_ReferenceStyle := Get_ReferenceStyle(0);
App_DisplayStatusBar := Get_DisplayStatusBar(0);
Set_SheetsInNewWorkbook(0, 1);
WBs := Get_Workbooks; //打开Excel文件
WB := WBs.Open(excelFile, 3, false, 1,
'', '', True, $00000002, 1, False,
False, Null, False, 0);
MakeVBScript(WB); //初始化文件属性
end;
with FApp do
begin
Set_DisplayFormulaBar(0, False);
Set_ReferenceStyle(0, Integer(xlR1C1));
Set_DisplayStatusBar(0, False);
Set_Caption(Title);
end;
try
Row:=1;
irange:=Fapp.ActiveCell ;
irange.Font.Size :=9;
for j:=0 to Grid.FieldCount -1 do
begin
if Grid.Columns[j].Visible =true then
begin
if DataSet.Fields[j].displaywidth>254 then
iRange.ColumnWidth:=100
else
begin
//iWidth:=Grid.Columns[j].Width;
iRange.ColumnWidth :=Grid.Columns[j].Field.DisplayWidth ;
end;
irange.Font.Size :=9; //ljq 2001/03/09
irange.value:=Grid.Columns[j].Title.Caption ;
irange:=irange.Next;
end;
end;
except
ShowMessage('调用Excel出错!');
fApp._Release;
Screen.Cursor :=crDefault ;
exit;
end;
Row:=Row+2;
DataSet.DisableControls;
DataSet.First;
FApp.Get_ActiveWindow.DisplayZeros := True;
irange.NumberFormat:=10;
for i:=0 to DataSet.RecordCount -1 do
begin
irange:=Fapp.Range['A'+IntToStr(Row),'A'+intToStr(Row)];
for j:=0 to Grid.FieldCount -1 Do
begin
if Grid.Columns[j].Visible =True then
begin
if Grid<>nil then
begin
iRange.Font.Size :=Grid.Font.Size;
iRange.Font.Name :=Grid.Font.Name;
end
else
begin
irange.Font.Size :=FFontSize;
irange.Font.Name :=FFontName;
end; //edit by ljq 2001/03/09
iRange.Value :=Grid.Columns[j].Field.AsString ;
irange:=iRange.Next ;
end;
end;
DataSet.next;
Row:=Row+1;
end;
Screen.Cursor :=crDefault ;
DataSet.EnableControls;
irange:=FApp.Range['A1','K'+intToStr(Row-1)];
FApp.Set_Visible(0,True);
CreateToolBar(False); //屏蔽Excel的系统菜单,采用自定义菜单实现
end else
begin
ShowMessage('调用Excel2000或Excel97失败,请确认是否安装!'+#13#13+' 如果未安装,请先安装office');
Screen.Cursor :=crDefault ;
end;
except
ShowMessage('调用Excel出错!');
fApp._Release;
Screen.Cursor :=crDefault ;
exit;
end;
end;
tikkypeng
2001-09-16
打赏
举报
回复
循环~~根据数据库记录数量循环给Excel附值~~
怎么用VB把TXT格式的
数据
文件
导入
EXCEL
表中
如何使用VB将TXT格式的
数据
文件
导入
到
Excel
表中是
一个
实用且常见的编程需求。本文将详细介绍这一过程中的关键步骤和技术要点。 ### 一、基础知识简介 #### 1.1 VBScript (Visual Basic Scripting Edition) ...
导入
导出
文件
2. 导出:导出
文件
则是将应用或
数据
库中的
数据
导出到
一个
文件
中,以便于保存、分享或在其他
程序
中使用。导出过程通常会生成标准格式的
文件
,如CSV、XML或JSON,以便于跨平台兼容。 二、常见的
文件
格式 1. CSV...
极速
导入
工具
在IT行业中,"极速
导入
工具"通常指的是能够高效、快速地将大量
数据
导入
到
数据
库、应用
程序
或其他
数据
存储系统中的软件工具。这样的工具对于处理大
数据
集、优化
数据
迁移过程或者进行批量
数据
更新至关重要。以下是关于...
npoi 2.2.1
- **
数据
导入
导出**:对于Web应用或企业级系统,NPOI可以方便地将
数据
库
数据
导入
Excel
进行分析,或将用户填写的
Excel
表单
数据
导出到
数据
库。 通过学习NPOI,开发人员可以利用其功能来增强他们的应用
程序
,提高办公...
Python库 | pyOpenRPA-1.1.11.tar.gz
- **
数据
处理**:可以读取和写入
文件
,进行
数据
清洗和转换,支持CSV、
Excel
等常见格式。 - **API集成**:与外部系统进行交互,如Web API或
数据
库,实现自动化流程的扩展。 - **多任务处理**:可以同时处理多个任务,...
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章