迁移至Azure虚拟桌面后，Access VBA调用Excel VBA启动卡顿

以下是针对该问题的排查和解决方案：

• 检查Excel实例的交互权限
  Azure VD环境中，后台创建的Excel实例可能因缺少桌面交互权限，触发隐藏的安全提示（如启用宏弹窗）导致停滞。可在代码中添加以下配置（仅在可信环境中使用）：

  Set xl = CreateObject("Excel.Application")
  xl.DisplayAlerts = False
  xl.AutomationSecurity = msoAutomationSecurityLow ' 降低自动化安全级别
  xl.Workbooks.Open ("\\LOCATION\TO\NETWORK\SHARE\Data_Freshness.xlsm")
  

  同时检查Azure VD的组策略，确认未限制Office应用的自动化交互权限。

• 改用本地缓存路径打开文件
  网络共享路径在Azure VD中可能存在延迟或权限问题，建议先将文件复制到本地临时目录再操作：

  Public Sub DFImportData()
      Dim localPath As String
      localPath = Environ("TEMP") & "\Data_Freshness.xlsm"
      FileCopy "\\LOCATION\TO\NETWORK\SHARE\Data_Freshness.xlsm", localPath
      
      Dim xl As Object, wb As Object
      Set xl = CreateObject("Excel.Application")
      Set wb = xl.Workbooks.Open(localPath)
      xl.Visible = True
      xl.Run wb.Name & "!Main"
      wb.Save
      wb.Close
      xl.Quit
      
      Kill localPath ' 清理本地临时文件
      Set wb = Nothing
      Set xl = Nothing
  End Sub
  

• 显式指定工作簿对象，避免依赖ActiveWorkbook
  依赖ActiveWorkbook在多实例环境下易出问题，改为直接引用目标工作簿：

  Dim wb As Object
  Set xl = CreateObject("Excel.Application")
  Set wb = xl.Workbooks.Open("\\LOCATION\TO\NETWORK\SHARE\Data_Freshness.xlsm")
  xl.Visible = True
  xl.Run wb.Name & "!Main" ' 明确指定工作簿中的宏
  wb.Save
  wb.Close
  xl.Quit
  

• 排查宏中的交互逻辑
  手动运行正常但自动化调用卡顿，大概率是宏中存在依赖用户交互的代码（如InputBox、MsgBox）。检查Main宏，将交互逻辑改为非自动化适配模式：

  ' Excel宏Main中的示例修改
  Sub Main()
      ' 业务逻辑...
      
      ' 替换交互提示为日志输出
      If Application.AutomationSecurity = msoAutomationSecurityLow Then
          Open Environ("TEMP") & "\Macro_Log.txt" For Append As #1
          Print #1, "宏执行完成：" & Now()
          Close #1
      Else
          MsgBox "执行完成"
      End If
  End Sub
  

• 检查Office版本兼容性
  确认Azure VD中Access与Excel版本一致，安装Office最新补丁，避免跨版本自动化或未修复的兼容性bug。

内容的提问来源于stack exchange，提问作者SomethingSmithe