从VBA代码运行excel文件后返回Access表单

Sub RunExcelAndReturnAccessForm()
    ' 打开Excel文件
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Dim xlWorkbook As Object
    Set xlWorkbook = xlApp.Workbooks.Open("C:\Path\To\Your\Excel\File.xlsx")
    
    ' 运行Excel文件中的宏
    xlApp.Run "YourMacroName"
    
    ' 返回Access表单
    Dim accessApp As Object
    Set accessApp = CreateObject("Access.Application")
    accessApp.Visible = True
    accessApp.OpenCurrentDatabase "C:\Path\To\Your\Access\Database.accdb"
    accessApp.DoCmd.OpenForm "YourFormName"
    
    ' 清理对象
    Set xlWorkbook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
    Set accessApp = Nothing
End Sub