【资料名称】：VBA范例

【资料作者】：somebody

【资料日期】：2012

【资料语言】：中文

【资料格式】：DOC

【资料目录和简介】：

方法一:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long Private Declare Sub Sleep Lib "kernel32" ( _ ByVal dwMilliseconds As Long) Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Const WS_SYSMENU As Long = &H80000 Private Const GWL_STYLE As Long = -16 Dim xlapp As Object Dim MyBook As Object Private Sub Form_Initialize() On Error Resume Next Set xlapp = GetObject(, "Excel.Application") If Err <> 0 Then Set xlapp = CreateObject("Excel.Application") End If xlapp.Application.Visible = True Err.Clear XLHWnd = FindWindow("XLMAIN", xlapp.Caption) SetWindowLong XLHWnd, GWL_STYLE, _ GetWindowLong(XLHWnd, GWL_STYLE) And Not WS_SYSMENU xlapp.WindowState = xlMaximized Set MyBook = xlapp.Workbooks.Add SetParent XLHWnd, Me.hwnd End Sub Private Sub Form_Unload(Cancel As Integer) xlapp.Quit Set xlapp = Nothing Sleep 5000 End Sub