access 中的VBA实现打开一个<em>excel</em>并调用exce...-excel

你试试如下代码：

ACCESS中：

Sub xx()
    Dim xlApp as Object, wb As Object
    On Error Resume NExt
    Set xlApp = GetObject(,"Excel.Application")
    If Not xlApp Is Nothing Then
        Set Wb = xlApp.WorkBooks("a.xls")
        If Err.Number = 9 Then Set Wb = xlApp.WorkBooks.Open("D:\a.xls")   
    Else
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        Set Wb = xlApp.WorkBooks.Open("D:\a.xls") 
    End if     
End Sub

a.Xls工作簿中636f70797a686964616f339：

Private Sub WOrkbook_OPen()
    Call Sheet1.pp
End Sub

Sheet1工作表中 ：

Public Sub pp()
    Msgbox "Hello!!"
End Sub

用excel VBA通过ADO和SQL操作Access数据库，所谓操作数据库就是查询、删除、添加数据，你可以用添加数据方法将excel表数据添加到Access数据库。

你这个使用太高端了。。如果是SQL我还能告诉你怎么去调用。。ACCESS是微软旗下的简易数据库处理软件。。这样的功能貌似不支持。。一般都是在SQL数据库里面弄好了提取成ACCESS。。