如何通过Excel VBA宏编程点击按钮打开导入XML对话框

实现代码 #

你可以直接调用Office内置命令实现，不需要模拟点击控件，以下两种方案都可以实现和手动点击导入XML按钮完全一致的效果，直接插入到你标注的代码位置即可。

• 方案1（最稳定，全版本兼容）

Application.CommandBars.ExecuteMso "XmlImport"

该方法直接触发功能区「导入XML」按钮绑定的原生命令，不需要额外处理权限、功能区显隐等兼容问题，支持Excel 2007及以上所有版本。

• 方案2（需要自定义文件筛选逻辑时使用）
  如果需要提前获取用户选择的XML文件路径做前置校验，可以用以下代码：

Dim selectFile As Variant
selectFile = Application.GetOpenFilename("XML文件(*.xml),*.xml", , "导入XML")
If selectFile = False Then Exit Sub ' 用户点击取消直接退出
' 执行导入操作
ActiveWorkbook.XmlImport URL:=selectFile, ImportMap:=Nothing, Overwrite:=True

完整代码示例 #

Option Explicit

Sub Button1_Click()
    ' ... All my existing macro code
    
    ' ---------- programmatically click the Import button (from Developer) here ------------
    ' 直接插入上面选的方案代码即可，示例用方案1
    Application.CommandBars.ExecuteMso "XmlImport"
End Sub

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