打开excel并打开文件

tyjmn

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
    Dim oApp As Object
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
Exit_Command0_Click:
    Exit Sub
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
   
End Sub
运行Excel同时打开c:\123.xls文件，代码如何修改,谢谢

liwen

在你的代码中加入：
    oApp.Workbooks.Open ("C:\123.xls")

如果你只是要打开c:\123.xls文件，可直接用
    Workbooks.Open Filename:="C:\123.xls"
或：    Workbooks.Open "C:\123.xls"

tyjmn

谢谢.