关于SetParent，急！！！！！！

代码如下：  
          sFile   =   App.Path   +   "\myfile.xls"  
          Set   XL   =   CreateObject("excel.application")  
          XL.Workbooks.Open   FileName:=sFile  
          XL.Visible   =   True  
          frmMDI.Show  
          Dim   sTitle   As   String  
          sTitle   =   "Microsoft   Excel   -   myfile.xls"  
           
          xlHwnd   =   FindWindow(vbNullString,   sTitle)  
          Dim   l   As   Long  
          l   =   SetParent(xlHwnd,   frmMDI.hwnd)  
   
  生成Excel实例、打开文件、找到句柄都没有问题，但是用SetParent把Excel放到我的MDI窗体中以后Excel变得不可编辑了（菜单和工具栏可用，但是所有单元格都无法选定和编辑），如何解决？ 问题点数：50、回复次数：2Top

1 楼rainstormmaster（暴风雨 v2.0）回复于 2005-12-03 21:39:50 得分 50

//生成Excel实例、打开文件、找到句柄都没有问题，但是用SetParent把Excel放到我的MDI窗体中以后Excel变得不可编辑了（菜单和工具栏可用，但是所有单元格都无法选定和编辑），如何解决？  
   
  用SDI有问题吗Top

2 楼happy_sea（开心海(数据读取中，请稍候......)）回复于 2005-12-03 21:52:53 得分 0

问题已解决，最终代码如下：  
          Form2.Show  
          Set   XL   =   CreateObject("excel.application")  
          XL.Visible   =   True  
          xlHwnd   =   FindWindow("XLMAIN",   XL.Caption)  
          l   =   SetParent(xlHwnd,   Form2.hwnd)  
          XL.Workbooks.Open   FileName:=sFile  
  Top

相关问题

• excel
• 解决
• setparent
• xlhwnd
• xl
• stitle
• sfile
• 编辑
• 问题

• 帖主：happy_sea
• rainstormmaster

• Visual Basic类图书
• Visual Basic类源码下载