社区
Delphi
帖子详情
打开EXCEL文件,超简单的问题!立即加分。
qzg
2003-08-03 03:43:41
我现在想在DELPHI当中运用命令直接打开EXCEL文件如何实现,
是EXCEL直接运行起来打开文件的那种。
请贴出一个小例子,谢谢!
...全文
31
3
打赏
收藏
打开EXCEL文件,超简单的问题!立即加分。
我现在想在DELPHI当中运用命令直接打开EXCEL文件如何实现, 是EXCEL直接运行起来打开文件的那种。 请贴出一个小例子,谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
李_军
2003-08-03
打赏
举报
回复
procedure TfrmSG.Button1Click(Sender: TObject); //uses Excel2000 , ComObj
var
pc_i:integer;
xlapp,sheet: variant;
WBK: OleVariant;
begin
xlapp := createoleobject('excel.application');
xlapp.visible := True; //Excel是否可见
if Trim(Edit1.Text)='' then
begin
Application.MessageBox('文件名不能为空','警告',MB_OK);
Exit;
end;
WBK := xlapp.workbooks.Open(Edit1.Text);
sheet := xlapp.workbooks[1].worksheets['sheet1'];
sheet.Cells.SpecialCells(XlCellTypeLastCell,EmptyParam).Activate;
//showmessage(IntToStr(xlapp.ActiveCell.Row));
//showmessage(IntToStr(xlapp.ActiveCell.Column));
//excelworksheet2.UsedRange[1].Rows.Count));
//excelworksheet2.UsedRange[1].Columns.Count));
pc_i:=1;
Edit2.Text := sheet.cells[pc_i,1]; //写入的话用 sheet.cells[pc_i,1] := Edit2.Tex;
WBK.Close(SaveChanges := True);
xlapp.Quit;
end;
wdsimon
2003-08-03
打赏
举报
回复
修正:
类似问题自己搜索一下,太多答案了。
procedure TForm1.Button2Click(Sender: TObject);
var
excelapp:variant;
begin
try
excelapp:=CreateOleObject('Excel.application');
excelapp.workbooks.open('c:\book1.xls');
excelapp.worksheets[1].activate;
excelapp.visible:=true;
finally
exit;
end;
end;
注意,在uses包含ComObj
wdsimon
2003-08-03
打赏
举报
回复
procedure TForm1.Button2Click(Sender: TObject);
var
excelapp:variant;
类似问题自己搜索一下,太多答案了。
begin
try
excelapp:=CreateOleObject('Excel.application');
excelapp.workbooks.open('c:\book1.xls');
excelapp.worksheets[1].activate;
excelapp.visible:=true;
finally
exit;
end;
end;
注意,在uses包含ComObj。
EXCEL
中所有函数的使用
EXCEL
中所有函数的使用 来源: 周虹的日志 http://blog.renren.com/share/311273732/3704260772
EXCEL
中所有函数的使用 1.求和函数SUM 语法:SUM(number1,number2,...)。 ...
VBA for
Excel
(一)
VBA for
Excel
(一) 说明:本人非科班,主要是工作中接触过VBA,用过一些,朋友想学,就打算以最简的方式写一系列教程,也做个备忘吧。希望路人能从中受益,也希望能有前辈路过指点。 文章目录VBA for
Excel
(一)...
外企面试官最爱提的十个
问题
外企面试官最爱提的十个
问题
1.请介绍一下你自己。 这是外企常问的
问题
。一般人回答这个
问题
过于平常,只说姓名、年龄、爱好、工作经验,这些在简历上都有,其实,外企最希望知道的是求职者能否胜任工作,包括...
大数据大纲&大数据生态圈所涉及的技术
自己会写
简单
的MapReduce程序,运行出现
问题
,知道在哪里查看日志; 会写
简单
的SELECT、WHERE、GROUP BY等SQL语句; Hive SQL转换成MapReduce的大致流程; Hive中常见的语句:创建表、删除表、往表中加载数据、分区、将...
Windows系统及应用技巧二十六篇
目录:一:详细的xp修复控制台命令和用法二:常见
文件
扩展名和它们的说明三:GHOST怎么用?四:如何防范恶意网站五:win2000/xp忘记密码的方法六:WindowsXP自带小工具七:windows中有关网络的几命令八:了解你的...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章