如何用<em>VBA</em>实现打开指定EXCEL文件并执行其中的某个宏

首先，工程－引用microsoftExcel11.0)bjectLibrary然后复代码如下：DimxlAppAsObjectDimxlBookAsObjectSetxlApp=CreateObject("Excel.Application")SetxlBook=xlApp.Workbooks.AddWithxlAppxlApp.Visible=False.Rows(1).Font.Bold=True'设置第一行为粗体.Cells(10,10).Value＝"姓名".Application.Visible=TrueEndWithSetxlApp=NothingSetxlBook=Nothing如想了解其他操作excel的代码制，可以在excel中，点击菜单的工具—百度—宏——录制新宏。然后你手动对excel操作，操作完成后停止录制。再点击工具——宏——visualbasic编辑器，找到刚才录制的宏，就可以看到刚才对excel所做的操作对应的vb代码了。

可以用
workbooks.open "d:\d.xls"
application.run "d.xls!macro"
来打开某文件并运行宏
你这个使用太高端了。。如果是SQL我还能告诉你怎么去调用。。ACCESS是微软旗下的简易数据库处理软件。。这样的功能貌似不支持。。一般都是在SQL数据库里面弄好了提取成ACCESS。。

你试试e799bee5baa6e59b9ee7ad94339如下代码：

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工作簿中：

Private Sub WOrkbook_OPen()
    Call Sheet1.pp
End Sub

Sheet1工作表中 ：

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