首先引用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
代码:
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
MSDN目录下
\sample\vb98\olecont
call ShellExecute(NULL,"open","c:\test.xls",vbnullstring,vbnullstring,5)