社区
Delphi
帖子详情
如何控制EXCEL的另存目录???
netneighbor
2003-08-21 03:40:00
我在程序中调用EXCEL,要实现用户在点击保存的时候是另存新目录(比如可以实设定我的文档什么的),而不是存在我事先画好的模板上?
...全文
34
6
打赏
收藏
如何控制EXCEL的另存目录???
我在程序中调用EXCEL,要实现用户在点击保存的时候是另存新目录(比如可以实设定我的文档什么的),而不是存在我事先画好的模板上?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
laisxy
2003-08-22
打赏
举报
回复
不好意思,打错字了。
请问如何设定每个单元格的数据格式(类型)呢?
laisxy
2003-08-22
打赏
举报
回复
请问如果设定每个单元格的数据格式(类型)呢?
stonetear
2003-08-22
打赏
举报
回复
msoFileDialogSaveAs需要自己定义吗?
怎么在编译的时候,认不出来呢?
玉泽天成
2003-08-22
打赏
举报
回复
你可以这样写:
ExcelApplication.FileDialog(msoFileDialogSaveAs).InitialFileName :=
'c:\temp\my*.xls';
netneighbor
2003-08-22
打赏
举报
回复
IORILI(眼镜@_@)
你理解错了我的意思了,我是想用户在EXCEL中点击保存的时候,控制一下保存目录,具体的说应该是在excel中作控制。
IORILI
2003-08-21
打赏
举报
回复
procedure Tcpya_app.ToolButton1Click(Sender: TObject);
var
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
i, j: integer;
begin
try
ExcelApplication1 := TExcelApplication.Create(Application);
ExcelWorksheet1 := TExcelWorksheet.Create(Application);
ExcelWorkbook1 := TExcelWorkbook.Create(Application);
ExcelApplication1.Connect;
except
Application.Messagebox('Excel 没有安装!','Hello', MB_ICONERROR + mb_Ok);
Abort;
end;
try
ExcelApplication1.Workbooks.Add(EmptyParam, 0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
with excelworksheet1 do
begin
cells.Item[1,1]:='机型名称:';
cells.Item[2,1]:='整机号:';
excelworksheet1.range[excelworksheet1.cells.Item[1, 1],excelworksheet1.cells.Item[2,1]].Font.ColorIndex := 5;
cells.Item[1,2]:= dblookupcombobox1.text;
cells.Item[2,2]:= dbedit1.Text;
for j := 0 to datamodule2.spyf.Fields.Count - 1 do
begin
ExcelWorksheet1.Cells.item[3, j + 1] := datamodule2.spyf.Fields[j].DisplayLabel;
ExcelWorksheet1.Cells.item[3, j + 1].font.size := '10';
end;
excelworksheet1.range[excelworksheet1.cells.Item[3, 1],excelworksheet1.cells.Item[3,j+1]].Font.ColorIndex := 5;
for i := 4 to datamodule2.spyf.RecordCount + 3 do
begin
for j := 0 to datamodule2.spyf.Fields.Count - 1 do
begin
ExcelWorksheet1.Cells.item[i, j + 1] :=
datamodule2.spyf.Fields[j].Asstring;
ExcelWorksheet1.cells.item[i, j + 1].font.size := '10';
end;
datamodule2.spyf.Next;
end;
ExcelWorksheet1.Columns.AutoFit;
ExcelWorksheet1.Cells.item[1, 2] :=dblookupcombobox1.Text;
ExcelWorksheet1.Cells.Item[1, 2].font.size := '14';
Excelworksheet1.SaveAs(concat(FRootPath,'机型信息.xls')); end;//可以写成savedialog1.filename,就可以了
Application.MessageBox(pchar('数据成功导出'),'hello',mb_ok);
finally
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Free;
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
end;
end;
delphi对
excel
的
控制
操作
delphi对
excel
的
控制
操作,给想用
excel
作为前台界面的操作数据提供一个参考
输出
excel
文件 写明指定后缀文件的文件名和修改时间
本人原创的,用于版本
控制
。从本机中选择一个文件夹,遍历该文件夹的子文件和子文件夹(以及下层结构),将指定后缀的文件的文件名、路径和最后修改日期以
excel
文件形式输出。 经多人验证可用,如下载后出现问题请留言。
Python操作
Excel
(openpyxl版)
课程简介: openpyxl模块是一个读写
Excel
2010及以上版本文档的Python库,openpyxl是一个比较综合的工具,能够同时读取和修改
Excel
文档。 那么为什么用Python与
Excel
交互呢?原因看下面的图 本课程的主要内容: ...
vbs操作
excel
全集
vbs操作
excel
全集 vbs
控制
EXCEL
ASP+模板生成Word、
Excel
灵活多变的办法
由于工作的需要,我需要为客户做一个在线生成
Excel
及Word报表程序,参考了网上很多办法,大多数都是采用
Excel
.Application(http://www.blueidea.com/tech/program/2006/3547.asp)组件来生成,发现容易出错,而且对于大多数和我一样的菜鸟来说,比较麻烦,考虑到前些天用ASP+模板+adodb.stream生成静态页面的办法,经过多次尝试,终于掌握了一种用ASP+模板生成
Excel
和word的新的办法,先分享如下: 用模板生成
Excel
、Word最大优点: Word、
Excel
文档样式易于
控制
和调整,以往用
Excel
.Application来生成
Excel
、Word,需要写很多代码来
控制
排版的样式,用模版几乎不受任何限制,只需要打开word或
Excel
,编辑文档,选择"文件->
另存
为web页",即可方便的做好模板 ,用office生成的模板要比直接在DW中做好模板更加符合office偏好,生成后文件样式可与原word、
Excel
格式99%一样,因此建议大家用office(office97~office2003)直接来生成模板框架。
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章