如何使用Workbooks.OpenXML处理Excelpopup窗口

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

以下是我的代码：

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

但是当代码运行时，Excel会popup一个选项来询问如何打开这个文件。 对不起，我没有足够的声望发布图像。 这个popup窗口会问你是否打开XML为“作为一个XML表”（我想，但我不想popup），“作为一个只读工作簿”，“使用XML源任务窗格”。

我如何避免这个popup窗口？

Answer 1

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

尝试这个 ：）

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