使用VBA将IQy文件转换为XLSX

Question

我目前编写了一个Pyhon脚本，该脚本使用“导出到Excel”按钮从SharePoint Online提取元数据。数据保存时，它另存为IQy文件（互联网查询文件），我需要将其另存为XLSX。我要循环浏览并保存大约30个文件。

可以使用excel打开这些IQy文件，然后可以使用saveas将其保存为XLSX。有没有办法使它自动化？我在另一个论坛上找到了一些代码，但我不完全理解。

ThisWorkbook.Sheets.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Date, "mm.dd.yyyy") & " " & "Position Report Ver.2.xlsx", FileFormat:=51
ActiveWorkbook.Close

我不了解的行是ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Date, "mm.dd.yyyy") & " " & "Position Report Ver.2.xlsx", FileFormat:=51

是否可以对此行进行解释？还是有其他方法使用saveas将这些文件转换为XLSX？我也愿意使用其他任何语言。

Answer 1

这似乎很清楚。它正在调用SaveAs将工作簿保存到特定路径，使用FileFormat参数将其保存为XLSX文件which is type 51。