我现在想打开一个excel,然后取出excel第一行第一列数据。看不到,也不出错。为什么啊?
以下是代码,请大家检查!
var
i,j:integer;
begin
opendialog1.InitialDir:=ExtractFileDir(paramstr(0));//文件的打存放初始路径
opendialog1.Execute;
showmessage('打开完毕');
Try
ExcelApplication1.Connect;//EXCEL应用程序
showmessage('连接完毕');
Except
MessageDlg('Excel may not be installed',mtError, [mbOk], 0);
Abort;
End;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel Application';
try
excelapplication1.Workbooks.Open(opendialog1.FileName,
null,null,null,null,null,null,null,null,null,null,null,null,0);//打开指定的EXCEL 文件
showmessage('打开指定的完毕');
except
begin
ExcelApplication1.Disconnect;//出现异常情况时关闭
ExcelApplication1.Quit;
showmessage('请选择EXCEL电子表格!');
exit;
end;
showmessage(ExcelWorksheet1.Cells.Item[1,1]);最后一个showmessage没有显示。请大家快进来看。我在线。
以下是代码,请大家检查!
var
i,j:integer;
begin
opendialog1.InitialDir:=ExtractFileDir(paramstr(0));//文件的打存放初始路径
opendialog1.Execute;
showmessage('打开完毕');
Try
ExcelApplication1.Connect;//EXCEL应用程序
showmessage('连接完毕');
Except
MessageDlg('Excel may not be installed',mtError, [mbOk], 0);
Abort;
End;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel Application';
try
excelapplication1.Workbooks.Open(opendialog1.FileName,
null,null,null,null,null,null,null,null,null,null,null,null,0);//打开指定的EXCEL 文件
showmessage('打开指定的完毕');
except
begin
ExcelApplication1.Disconnect;//出现异常情况时关闭
ExcelApplication1.Quit;
showmessage('请选择EXCEL电子表格!');
exit;
end;
showmessage(ExcelWorksheet1.Cells.Item[1,1]);最后一个showmessage没有显示。请大家快进来看。我在线。
解决方案 »
- 求助下面sql语句转为Delphi怎么写?
- 求助Delphi7用FastRrport那个版本好
- 新手 怎么解决cannot find implementation of method ()
- 只请jie115(守望红木) 进来,以表答谢!!
- 急!怎样才能把十进制转为36进制???在线等待..
- 各位大侠,救命呀!关于设计软件的登陆界面的一个问题??
- 呵呵!第五个三角了,散分给大家。顺便说一下自己的经典格言!
- 关于使用TADOConnection的事务功能的问题
- adoTable1.TableName = adoQuery1.?
- 谁能给COM一个准确的定义
- csdn上的 兄弟门啊,给小弟解释下这个东西啊!!!
- <由于是新手,所以会有很多问题要请教的>关闭程序的问题!
begin v:=createoleobject('excel.application');
v.visible:=true;
v.workbooks.add(extractfilepath(ParamStr(0))+'aaa.xls');
s:=v.workbooks[1].worksheets[1];