在ACCESS中用VBA写要怎么打开一个EXCEL文件

其实操作很简单，

先利用ACCESS窗体，插入一个按钮，利用向导，选择“应用程序”EXCEL。这样ACCESS已经基本上帮你生成了大部分代码。你只要加一句就行了。

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Workbooks.Open fileName:="C:\test.xls"     '只加这一句就行了。改成你所指定的文件名即可。
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
   

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
   
End Sub