Excel无需显示开发工具选项卡即可通过宏调用导入XML功能的方案

原有代码依赖开发工具选项卡显示的核心原因是SendKeys触发的快捷键仅在对应选项卡可见时生效，以下两种方案完全不受开发工具选项卡开启状态影响：

方案1：调用内置命令（极简替换原有逻辑） #

直接执行Excel内置的XML导入命令，效果和点击开发工具选项卡的导入按钮完全一致，代码仅需一行：

Sub Button2_Click()
    ' 内置XML导入命令，不受功能区显示配置影响
    Application.CommandBars.ExecuteMso "XmlImport"
End Sub

原理说明：ExecuteMso方法用于调用Office内置功能区命令，参数XmlImport是导入XML功能的官方固定ID，无论对应选项卡是否开启，命令都可正常触发。

方案2：自定义导入流程（可控性更高） #

如果需要对导入逻辑做自定义限制（比如固定导入位置、绑定预设XML映射、导入结果提示等），可直接调用Excel原生XML导入对象实现：

Sub Button2_Click()
    Dim xmlFilePath As Variant
    ' 弹出文件选择框，仅筛选XML格式文件
    xmlFilePath = Application.GetOpenFilename(FileFilter:="XML文件 (*.xml), *.xml", Title:="选择需要导入的XML文件")
    ' 用户点击取消则直接退出
    If xmlFilePath = False Then Exit Sub
    
    Dim importRes As XlXmlImportResult
    ' 执行导入，可根据你的需求调整参数：Overwrite指定是否覆盖原有数据，Destination指定导入起始单元格
    importRes = ActiveWorkbook.XmlImport(FileName:=xmlFilePath, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("A1"))
    
    ' 可选：增加导入结果提示
    If importRes = xlXmlImportSuccess Then
        MsgBox "XML数据导入完成", vbInformation
    Else
        MsgBox "导入失败，请检查XML文件格式是否匹配预设映射", vbExclamation
    End If
End Sub

以上两种方案均不需要修改用户的Excel功能区配置，仅需用户正常开启宏权限即可运行。

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