求助：VB窗体嵌入Excel后，Excel无法编辑。

[风~雪夜归人]

这个很弱弱的问题，我用VB6和API函数SetParent将Excel窗体嵌入VB窗体后，Excel窗体单元格无法编辑，而且一部分菜单如打印等点击后也没有反应。使用的代码如下：

Public excelApp As Excel.Application
Public lHwnd as long 
Private Sub Command1_Click()
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set excelApp = New Excel.Application
excelApp.Visible = True
Set newbook = excelApp.Workbooks.Add

lHwnd = excelApp.hwnd

SetParent lHwnd, Me.hwnd
SetWindowPos lHwnd, 0, Form1.ScaleLeft, Form1.ScaleTop, Form1.ScaleWidth - 50, Form1.ScaleHeight - 50, 0

newsheet = excelApp.Worksheets("sheet1")
excelApp.UserControl = True
  
End Sub

API函数的声明放在模块Model1中，

model1:
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
 
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

请大家指教下

[风~雪夜归人]

自己顶

[DevinXie]

帮顶...