用SetParent 嵌入Excel表后，Excel表不能编辑

[hwcqboy]

我有一个应用需要在应用程序中打开EXCEL，于是用用SetParent 嵌入Excel表，可EXCEL表没有办法编辑，请各路大神支支招
Public Sub Open(fileName As String, editAble As Boolean)
Try
If mParentOfficeEdit.InvokeRequired Then
mParentOfficeEdit.Invoke(New Dele_Open(AddressOf Open), New Object() {fileName, editAble})
Else

mEditAble = editAble
Dim fi As System.IO.FileInfo = New System.IO.FileInfo(fileName)
mCaption = fi.Name + " " + DateTime.Now.Ticks.ToString()
deactivateevents = True
OpenFileName = fileName

'初始化Word程序
InitExcel()

'先关闭文件
CloseDoc()

mAppHwnd = FindWindow("XLMAIN", mCaption)

If mAppHwnd > 0 Then
SetParent(mAppHwnd, mParentOfficeEdit.Handle.ToInt32())

Try
If mExcelApp Is Nothing Then
Throw New WordInstanceException()
End If
If mExcelApp.Workbooks Is Nothing Then
Throw New DocumentInstanceException()
End If
If Not mExcelApp Is Nothing AndAlso Not mExcelApp.Workbooks Is Nothing Then

mWorkbook = mExcelApp.Workbooks.Open(fileName, 0, False)
mExcelApp.Visible = True


Dim mySheet As Microsoft.Office.Interop.Excel.Worksheet = CType(mWorkbook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
Dim localrange As Microsoft.Office.Interop.Excel.Range = CType(mySheet.Cells(1, 1), Microsoft.Office.Interop.Excel.Range)
localrange.Activate()

End If
If mWorkbook Is Nothing Then
Throw New ValidDocumentException()
End If
Catch
End Try

'把Word显示到界面
ShowExcelToUi()
OnResize()
SetExcelActive()

deactivateevents = False
End If
End If

Catch ex As Exception
Close()

DisplaySystemMessage("", ex, SystemMessageEnum.ErrMessage) '处理错误
End Try
End Sub

[it_gz_xi]

楼主以前记得有现成的操作Excel的组件，可以上网找下看看

[hwcqboy]

各位大侠们帮支支招吧

[dangyj]

你可以用OLE或者直接用第三方组件来操作excel，比如NPOI，spire.xls，aspose等这些都挺好用的，还不依赖office组件。

[清晨曦月]

楼上有道理，最开始用ole,之后用npoi，现在用spire，反正各有各的艹蛋吧。