能否实现将几个数据表的数据导到一个EXCEL数据表的对应几个sheet中?
解决方案 »
- 求助 delphi结合SQL的问题
- 有GIS地图数据如何自己绘图??
- dephi 怎样每隔十秒让电脑自动按回车键的程序怎么写
- 请问如何让wise卸载时不删除所安装的一个目录及下面的文件?
- 使用QuickRep来打印DBGRID的问题。在线等啊。。
- 关于 clientdataset applyupdate,哪位仁兄帮忙一下.
- 如何从一字符串中取出其中一个字符?
- 为什么Outlook:=CreateOleObject(‘Outlook. application')运行就提示无效字符?
- 求助!一道面试程序题!
- 请问一下各位朋友,在win2000下设置打印机自定义纸张和在98下设置有什么不同?
- 请大家给点意见,十分感谢!
- 我用Delphi 和它自带的数据库进行编程,如何使它在没有装delphi软件的是运行
全面控制 Excel
首先创建 Excel 对象,使用ComObj:
var ExcelID: Variant;
ExcelID := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口:
ExcelID.Visible := True;
2) 更改 Excel 标题栏:
ExcelID.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿:
ExcelID.WorkBooks.Add;
4) 打开已存在的工作簿:
ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表:
ExcelID.WorkSheets[2].Activate;
或
ExcelID.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值:
ExcelID.Cells[1,4].Value := '第一行第四列';