社区
Delphi
帖子详情
delphi生成excel表的一個問題
sirliner
2003-08-19 04:43:08
因為excel中默認只有三個工作表,要如何新增一個工作表.我用
wksheet4:=wkbook.Sheets.Add(wksheet2,wksheet3,1,xlWorksheet,lcid) as _worksheet;
總是出錯.
還有如何設置某個單元格和某列的寬度.
以前用vb很好實現,可是在delphi中真的不知該如何實現.又找不到幫助文檔.
...全文
21
9
打赏
收藏
delphi生成excel表的一個問題
因為excel中默認只有三個工作表,要如何新增一個工作表.我用 wksheet4:=wkbook.Sheets.Add(wksheet2,wksheet3,1,xlWorksheet,lcid) as _worksheet; 總是出錯. 還有如何設置某個單元格和某列的寬度. 以前用vb很好實現,可是在delphi中真的不知該如何實現.又找不到幫助文檔.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
internetcsdn
2003-08-23
打赏
举报
回复
var ExcelApp: olevariant;
begin//1
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.Visible := True;
ExcelApp.WorkBooks.Add;
ExcelApp.ActiveSheet.Columns[1].ColumnWidth :=4;
end;//1
在DELPHI6下通过
sirliner
2003-08-22
打赏
举报
回复
新增一个工作表可以用:
wksheet4:=wkbook.Sheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,lcid) as _worksheet;
只是加到活动工作表之前,加到其他位置就不知用什么参数了.
设置列宽可以用;
wksheet.Range[wksheet.Cells.Item[4,13],wksheet.Cells.Item[n-1,13]].ColumnWidth :=18;
没有在vb中直接调用VBA 的方便,参数也更灵活.
不知哪位知道在delphi中应该如何设置参数.
sirliner
2003-08-22
打赏
举报
回复
我也看过资料说可以那样设宽度,
可是Columns[1]总是出错.
internetcsdn
2003-08-22
打赏
举报
回复
设置宽度:
设第一列为4:
ExcelApp.ActiveSheet.Columns[1].ColumnWidth :=4;
MMisLady
2003-08-22
打赏
举报
回复
改变字段字体等可如下
Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[1,1]].Font.Name:='宋体' ;
Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[1,1]].Font.Size:=16 ;
Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[1,1]].Font.Bold:=True ;
Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[1,ColCount]].MergeCells :=True;
Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[1,ColCount]].HorizontalAlignment :=xlCenter;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,ColCount]].Font.Name:='宋体' ;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,ColCount]].Font.Size:=11 ;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[AdoQry.RecordCount+2 ,ColCount]].Font.Bold:=True ;
Sheet.Range[Sheet.Cells[3,1],Sheet.Cells[AdoQry.RecordCount+2,ColCount]].Font.Name:='宋体' ;
Sheet.Range[Sheet.Cells[3,1],Sheet.Cells[AdoQry.RecordCount+2,ColCount]].Font.Size:=9 ;
Sheet.Range[Sheet.Cells[3,1],Sheet.Cells[AdoQry.RecordCount+2,ColCount]].Font.Bold:=False ;
Sheet.Columns.AutoFit ;
ufocyf
2003-08-21
打赏
举报
回复
请说出来 共享!
waysoft
2003-08-20
打赏
举报
回复
以前我用过,很简单的,但具体的忘了。
类似的问题,先记录宏,再仔细看看,就解决了。
sirliner
2003-08-20
打赏
举报
回复
没有人回复,还好我自己解决了.可能方法不是很好,将就了.
internetcsdn
2003-08-20
打赏
举报
回复
mark
Delphi
生成
Excel
表
的简单实现.rar
Delphi
生成
Excel
表
的简单实现,貌似类似的源码有很多,这个觉得过于简单了,调用的是
Excel
.Application,需要
生成
一个新的CreateOleObject对象,下面来看看代码: begin
Excel
ID:=CreateOleObject('
Excel
....
delphi
XE10.3 读取
excel
内容,
生成
折线图,并另存文件
delphi
XE10.3 读取
excel
内容,
生成
折线图,并另存文件,调用word自带api
delphi
导出
Excel
实例
delphi
导出
Excel
实例 实例
Delphi
新建、
生成
Excel
源码实例.rar
Delphi
新建、
生成
Excel
源码实例,演示了
Excel
启动和关闭、
Excel
与数据库相关操作、
Excel
工作簿多种操作演示等。比如新建
EXCEL
,读取
Excel
内容,向
Excel
中写入内容,打印
Excel
表
格等功能,这些都是很实用的
excel
操作...
Delphi
基于
Excel
组件的图
表
生成
实例.rar
Delphi
基于
Excel
组件的图
表
生成
实例,
Excel
chart,点击按钮就会打开
Excel
表
格绘制出图
表
。
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章