Dim oe As New Excel.Application
Dim ow As Workbook
Dim os As Worksheet
Set ow = oe.Workbooks.Add
Set os = ow.Worksheets(1)
oe.Visible = True
2、取消excel窗體的標題欄、菜單欄、工具欄;
For Each bar In Application.CommandBars
If Not bar.BuiltIn And Not bar.Visible Then bar.Delete
Next
Application.CommandBars("Worksheet Menu Bar").Position = msoBarFloating
Application.CommandBars("Worksheet Menu Bar").Left = -Application.CommandBars("Worksheet Menu Bar").Width + 1
Application.CommandBars("Worksheet Menu Bar").Top = -Application.CommandBars("Worksheet Menu Bar").Height + 1
3、將excel窗體設置為某窗體的"子窗體",調整大小並放在合適位置
Dim IStyle As Long
IStyle = GetWindowLong(hwnd, GWL_STYLE)
IStyle = IStyle And Not WS_CAPTION And Not WS_EX_APPWINDOW
SetWindowLong hwnd, GWL_STYLE, IStyle
ShowWindow hwnd, SW_SHOW
DrawMenuBar hwnd
SetParent hwnd, Form1.hwnd