急用，谁能把下面的delphi代码翻译成bcb代码?

delphi代码  
  var    
  Cur_WorkBook,Cur_WorkSheet,Cur_Cell,   v:variant;    
  begin    
  OleContainer1.CreateObjectFromFile('C:\test1.xls',   False);    
  OleContainer1.doVerb(ovShow);//显示文档    
  Cur_WorkBook:=OleContainer1.OleObject.Application.WorkBooks.Item[1];    
  Cur_WorkSheet:=Cur_WorkBook.WorkSheets[1];    
  ShowMessage(Cur_WorkSheet.Cells[1,1]);    
  Cur_Cell:=OleContainer1.OleObject.Application.ActiveCell;//为ActiveCell    
  end;    
   
   
  我用以下代码编译时出错  
  Variant   ob,ap,wb,wk;  
  OleContainer1->CreateObjectFromFile('C:\test1.xls',   False);    
  OleContainer1->doVerb(ovShow);  
  ob=OleContainer1->OleObject;  
  ap=ob.OlePropertyGet("Application");  
  wb=ap.OlePropertyGet("WorkBooks",1);//就在这一行编译出错  
  ...  
  ...  
  另外谁知道当olecontainer中的文档激活后，怎么让它不显示快捷工具栏？ 问题点数：100、回复次数：3Top

1 楼cker（〖烟波浩淼三千里、人鬼殊途五百年〗）回复于 2002-02-23 22:04:24 得分 100

#include   "utilcls.h"  
  #define     PG     OlePropertyGet  
  #define     PS     OlePropertySet  
  #define     FN     OleFunction  
  #define     PR     OleProcedure  
   
  void   __fastcall   TForm1::Button1Click(TObject   *Sender)  
  {  
  Variant   ob,ap,wb,wk;  
   
  OleContainer1->CreateObjectFromFile("C:\\test1.xls",   False);  
  OleContainer1->DoVerb(ovShow);  
   
  ob=OleContainer1->OleObject;  
  ap=ob.PG("Application");  
  ap.PG("CommandBars","Standard").PS("Visible",false);  
  ap.PG("CommandBars","Formatting").PS("Visible",false);  
   
  wb=ap.OlePropertyGet("WorkBooks",1);  
   
  }  
  呵呵，消除CommandBar的办法好像不是最好啊...Top

2 楼wangxd（东东）回复于 2002-02-24 18:56:40 得分 0

wb=ap.OlePropertyGet("WorkBooks",1);//这行编译出错啊，你试试看Top

3 楼cker（〖烟波浩淼三千里、人鬼殊途五百年〗）回复于 2002-02-24 21:53:42 得分 0

咦,我明明编译通过的啊?  
  一定要  
  #include   "utilcls.h"   啊...Top

4 楼wangxd（东东）回复于 2002-03-03 11:18:58 得分 0

thanks。确实要加上#include   "utilcls.h"    
  还有就是文档激活后，怎么让它只读？Top

相关问题

• 代码
• 编译
• 文档
• ps
• cell
• application
• olecontainer
• olepropertyget
• createobjectfromfile
• ovshow

• 帖主：wangxd
• cker

• CSDN Blog
• 技术文档
• 代码下载
• 第二书店
• 读书频道