首先引用Microsoft Excel Object Library
代码:
Dim xApp As New Excel.Application
Private Sub Command1_Click()
    xApp.Visible = True
    xApp.Workbooks.Open "c:\Excel9.xls"
End SubPrivate Sub Command2_Click()
    xApp.Quit
    Set xApp = Nothing
End Sub

解决方案 »

  1.   

    在vb画面中嵌入一个excel的activex控件
      

  2.   

    OLE迁入详细请参考
    MSDN目录下
    \sample\vb98\olecont
      

  3.   

    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long--------------------------------------------------------------
    call ShellExecute(NULL,"open","c:\test.xls",vbnullstring,vbnullstring,5)