[提问]关于Microsoft Excel打开的问题!(100分)

  • 主题发起人 主题发起人 记忆0109
  • 开始时间 开始时间

记忆0109

Unregistered / Unconfirmed
GUEST, unregistred user!
我用ShellExecute(0, 'open', Excel_File_Name, nil, nil, SW_SHOW);函数打开一个<br>Excel文件,但打开后出现的是Excel默认的表格!<br>我希望实现ShellExecute()函数打开的效果,并且能控制打开的是我规定的表格。
 
ShellExecute(0, 'open', , Excel_File_Name, nil, nil, SW_SHOW);<br>没问题,检查一下, Excel_File_Name是否存在
 
抱歉,可能是我没说明白。<br>同一个Excel文件下有多张工作表"Sheet1,Sheet2,Sheet3",<br>默认情况下打开一个Excel文件展现的是Sheet1工作表。<br>我希望实现ShellExecute()函数打开的效果,<br>并且能控制打开的是指定的工作表"Sheet2"或"sheet3"。
 
用delphi的控件Excelapplication 等,在server页上。
 
var EAV,EWV: Variant;<br>being<br>&nbsp; EAV:=CreateOleObject( 'Excel.Application');<br>&nbsp; EWV:=EAV.workbooks.open('C:/Excel/Demo.xls');<br>&nbsp; EWV.worksheets[2].Activate; &nbsp;//设置第二个工作表为活动工作表<br>end;
 
to dcba:<br>&nbsp; 你的方法试过,但不行。winXP的任务管理器下的“进程”里有,<br>但“应用程序”里没有。<br><br>to dafuwengqing:<br>&nbsp; 能说的详细些吗?
 
ShellExecute不能实现你的要求:<br>excelapplication1.Connect;<br>excelapplication1.Caption:='123';<br>excelapplication1.Visible[0]:=true;<br>excelapplication1.Workbooks.Add('excelfile',0);<br>excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);<br>excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);<br>excelworksheet2.ConnectTo(excelworkbook1.Worksheets[2] as _worksheet);<br>excelworksheet3.ConnectTo(excelworkbook1.Worksheets[3] as _worksheet);<br>excelworksheet2.Activate;
 
同意楼上的
 
抱歉,我忘了一句话,现在应该没问题,我是过了<br>var EAV,EWV: Variant;<br>being<br>&nbsp; EAV:=CreateOleObject( 'Excel.Application');<br>&nbsp; EAV.Visible:=true;<br>&nbsp; EWV:=EAV.workbooks.open('C:/Excel/Demo.xls');<br>&nbsp; EWV.worksheets[2].Activate; &nbsp;//设置第二个工作表为活动工作表<br>end;
 
同意楼上的。<br>use comobj
 
能否给点分?:)
 
后退
顶部