关于Excel工作表的问题?(0分)

  • 主题发起人 主题发起人 caoliu
  • 开始时间 开始时间
C

caoliu

Unregistered / Unconfirmed
GUEST, unregistred user!
一个excel book有三个工作表(sheet1,sheet2,sheet3),sheet2,sheet3可以存在,也可不存在;
现在怎么判断sheet2或sheet3是否存在?
如存在,那么:
MsExceL.WorkSheets[2].Activate;
 
没说清楚嘛,是在DELPHI中,还是在VBA中,还是在哪啊。。。
 
唉!看你又没分又没诚意的。连字都不想多打几个。
自己去看看关于EXCEL的贴子吧,太多的相关例子了,看完以后你就会变高手了。
这个问题,再贴一贴吧
procedure TForm1.Button1Click(Sender: TObject);
var
MsExcel: Variant;
I : Integer;
begin
MsExcel := CreateOleObject( 'Excel.Application' );
MsExcel.Visible := True;
if MsExcel.WorkBooks.Count > 1 then
MsExcel.WorkBooks[MsExcel.WorkBooks.Count].Activate
else
MsExcel.WorkBooks.Add;
if MsExcel.ActiveWorkBook.Sheets.Count > 1 then //你要的在这两行,如果Sheets数大于1的话
MsExcel.ActiveWorkBook.Sheets[2].Activate;//Sheets[2]激活
end;
 
我还有个问题,这下有分!sorry
 
后退
顶部