使用VBA将IQy文件转换为XLSX

时间:2018-08-21 14:54:45

标签: excel vba excel-vba

我目前编写了一个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?我也愿意使用其他任何语言。

1 个答案:

答案 0 :(得分:1)

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