将.xls转换为.csv

Question

我需要将Excel电子表格转换为csv文件。我想自主做，而不是打开它并手动保存。因为我正在尝试将其合并到批处理文件中，所以我也不想安装任何东西。我正在使用Excel 2007。

我在整个网站和其他网站上搜索过，但还是找不到完整的解决方案。我在这里从另一个问题找到了这个vbs代码，所以感谢任何让我开始的人。

if WScript.Arguments.Count < 2 Then
WScript.Echo "Please specify the source and the destination files. Usage: ExcelToCsv <xls/xlsx source file> <csv destination file>"
Wscript.Quit
End If

csv_format = 6

Set objFSO = CreateObject("Scripting.FileSystemObject")

src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))

Dim oExcel
Set oExcel = CreateObject("Excel.Application")

Dim oBook
set oBook = oExcel.WorkBooks.Open(src_file)

oBook.SaveAs dest_file, csv_format

oBook.Close False
oExcel.Quit

我遇到的问题是在oExcel.WorkBooks.Open（src_file）上。我不断收到“无法获取工作簿的Open属性”错误代码800A03EC的错误。

对该错误的研究会导致人们在其服务器上遇到代码问题，并且人们建议的修复程序无效。这不在服务器上，我试图在本地文件上运行它的客户端。我用不同的excel文件尝试了脚本，它运行得很好。与此问题的区别似乎是当我打开它时，我从Office文件验证中获得安全警报。

关于如何在通过脚本打开时跳过Office文件验证警告的任何想法？