使用Workbooks.OpenXML时如何处理Excel弹窗

Question

我正在尝试使用 vbs 通过 Excel 打开 XML。

下面是我的代码：

Set myxl = createobject("excel.application")
myxl.DisplayAlerts = False
myxl.Application.Visible = true
myxl.Workbooks.OpenXML "SampleXML.XML",1,xlXmlLoadImportToList

但是当代码运行时，Excel会弹出一个选项询问如何打开这个文件。抱歉，我没有足够的声誉来 post 图片。这个弹窗会问你是否打开 XML as "As an XML table"（我想要，但我不想要弹窗），"As a read-only workbook", "Use the XML Source task pane".

如何避免弹出窗口？

Answer 1

问题是xlXmlLoadImportToList。它是一个 Excel 常量而不是 VBScript 常量。它有一个值 2。您可以在 Excel 的 Immediate window 中检查，如下所示。

试试这个:)

Const xlXmlLoadImportToList = 2
Set myxl = createobject("excel.application")
myxl.DisplayAlerts = False
myxl.Application.Visible = true
myxl.Workbooks.OpenXML "C:\Test.XML",1,xlXmlLoadImportToList

使用Workbooks.OpenXML时如何处理Excel弹窗

How to deal with Excel popup when using Workbooks.OpenXML

vbscript

excel

vba