兄弟们，这个帮忙看看？ 怎么把Access数据表转换成Excel数据格式，请大家详细讲讲，我一点头绪都没有？ 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 先从access表中读出数据，再写入excel中吧 怎样写到Excel？请说细说一下啊 procedure TForm1.FormCreate(Sender: TObject);beginShorttimeFormat:='hh:nn:ss';end; http://expert.csdn.net/Expert/topic/1112/1112498.xml?temp=.877453 上面的贴错了，呵呵用sql server的导入和导出工具可以 看看下面的吧，里面讲的非常清楚：http://expert.csdn.net/Expert/topic/1112/1112498.xml?temp=.877453 1. Access有导入功能，导入Excel表即可2. 你将宏的过程名设为：Auto_Open，打开Excel表即可自动执行宏 如何在Delphi中操作Excel（作者：穆永 2001年02月16日 14:55） 在数据库应用软件的开发过程中，经常需要把数据转换成Excel文件,让用户作进一步的数据处理。而Delphi是开发数据库应用系统的常用工具，那么，如何在Delphi中操作Excel呢? 我们知道,在Microsoft Office软件中有一种内嵌的编程语言VBA,它是一种宏语言，利用它,你可以编写出功能强大的代码,如打开文件、修改数据、保存数据和设置字体等。另一方面,Microsoft Office软件中的宏能以VBA代码的形式记录下你的操作过程。因此借助宏操作,可以很轻松地实现某一功能,并把这些代码稍作修改嵌入到你的软件中。但是VBA也存在一个缺点,它必须有Microsoft Office作平台,在哪里编写,必须在哪里执行。例如在Excel下编写的一段VBA代码,则它只有在Excel下才能运行。因此,笔者的方法就是把VBA代码嵌入到Delphi中,从而实现用Delphi操作Excel。 下面,我们以Delphi程序为例,说明这种调用方法： Unit excel; interface uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj; //ComObj是操作OLE对象的函数集 type TForm1 =class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var eclApp,WorkBook:Variant; //声明为OLE Automation 对象 xlsFileName:string;begin xlsFileName:='ex.xls'; try //创建OLE对象Excel Application与 WorkBook eclApp:=CreateOleObject('Excel.Application'); WorkBook:=CreateOleobject('Excel.Sheet'); except ShowMessage('您的机器里未安装Microsoft Excel。'); Exit; end; try ShowMessage('下面演示:新建一个XLS文件,并写入数据,最后关闭它。'); workBook:=eclApp.workBooks.Add; eclApp.Cells(1 , 1):='字符型'; eclApp.Cells(2 , 1):='Excel文件'; eclApp.Cells(1 , 2):='Money型'; eclApp.Cells(2 , 2):=10.01; eclApp.Cells(1 , 3):='日期型';eclApp.Cells(2 , 3):=Date; WorkBook.saveas(xlsFileName); WorkBook.close; ShowMessage('下面演示:打开刚创建的XLS文件,并修改其中的内容,然后,由用户决定是否保存。'); WorkBook:=eclApp.workBooks.Open(xlsFileName); eclApp.Cells(2 , 1):='Excel文件类型'; if MessageDlg(xlsFileName+'文件已被修改,是否保存?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then WorkBook.save else workBook.Saved := True; //放弃修改 WorkBook.Close; eclApp.Quit; //退出Excel Application //释放VARIANT变量 eclApp:=Unassigned; except ShowMessage('不能正确操作Excel文件。可能是该文件已被其他程序打开,或系统错误。'); WorkBook.close; eclApp.Quit; //释放VARIANT变量 eclApp:=Unassigned; end; end; end. 经过上述操作过程后,我们就可以很放心地将数据库中的数据转换成Excel文件了。 写的很详细了：）还有看看Delphi自带的例子啊！ 监控系统进程 申請数据库斑竹职务 希望大家支持 求助：用Indy的TIdSMTP发送HTML格式的邮件，并且带附件。。。。 我是个菜鸟,现在有一个棘手的问题,希望大家帮我一下 indy控件使用问题 求求各位帮我解决吧（关于WH_CBT钩子的问题） 如何统计以查询好的结果？ 开放－－短信群发软件源代码！！！ 再次分享10努力半小时学会套装教程三套装[山东蓝鸟贵薪]篇 delphi中richeview的TRVOfficeConverter使用，保存word出错？？？ 高分求购！！！哪位知道《delphi编程技巧（网络和数据库篇）》这本书的电子文档的下落。急需！！！！ 关于'panel'的问题
begin
ShorttimeFormat:='hh:nn:ss';
end;
用sql server的导入和导出工具可以
http://expert.csdn.net/Expert/topic/1112/1112498.xml?temp=.877453
2. 你将宏的过程名设为：Auto_Open，打开Excel表即可自动执行宏
（作者：穆永 2001年02月16日 14:55） 在数据库应用软件的开发过程中，经常需要把数据转换成Excel文件,让用户作进一步的数据处理。而Delphi是开发数据库应用系统的常用工具，那么，如何在Delphi中操作Excel呢? 我们知道,在Microsoft Office软件中有一种内嵌的编程语言VBA,它是一种宏语言，利用它,你可以编写出功能强大的代码,如打开文件、修改数据、保存数据和设置字体等。另一方面,Microsoft Office软件中的宏能以VBA代码的形式记录下你的操作过程。因此借助宏操作,可以很轻松地实现某一功能,并把这些代码稍作修改嵌入到你的软件中。但是VBA也存在一个缺点,它必须有Microsoft Office作平台,在哪里编写,必须在哪里执行。例如在Excel下编写的一段VBA代码,则它只有在Excel下才能运行。因此,笔者的方法就是把VBA代码嵌入到Delphi中,从而实现用Delphi操作Excel。 下面,我们以Delphi程序为例,说明这种调用方法： Unit excel; interface uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj; //ComObj是操作OLE对象的函数集 type TForm1 =class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var eclApp,WorkBook:Variant; //声明为OLE Automation 对象 xlsFileName:string;begin xlsFileName:='ex.xls'; try //创建OLE对象Excel Application与 WorkBook eclApp:=CreateOleObject('Excel.Application'); WorkBook:=CreateOleobject('Excel.Sheet'); except ShowMessage('您的机器里未安装Microsoft Excel。'); Exit; end; try ShowMessage('下面演示:新建一个XLS文件,并写入数据,最后关闭它。'); workBook:=eclApp.workBooks.Add; eclApp.Cells(1 , 1):='字符型'; eclApp.Cells(2 , 1):='Excel文件'; eclApp.Cells(1 , 2):='Money型'; eclApp.Cells(2 , 2):=10.01; eclApp.Cells(1 , 3):='日期型';eclApp.Cells(2 , 3):=Date; WorkBook.saveas(xlsFileName); WorkBook.close; ShowMessage('下面演示:打开刚创建的XLS文件,并修改其中的内容,然后,由用户决定是否保存。'); WorkBook:=eclApp.workBooks.Open(xlsFileName); eclApp.Cells(2 , 1):='Excel文件类型'; if MessageDlg(xlsFileName+'文件已被修改,是否保存?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then WorkBook.save else workBook.Saved := True; //放弃修改 WorkBook.Close; eclApp.Quit; //退出Excel Application //释放VARIANT变量 eclApp:=Unassigned; except ShowMessage('不能正确操作Excel文件。可能是该文件已被其他程序打开,或系统错误。'); WorkBook.close; eclApp.Quit; //释放VARIANT变量 eclApp:=Unassigned; end; end; end. 经过上述操作过程后,我们就可以很放心地将数据库中的数据转换成Excel文件了。