VBScript从csv中删除空行

Question

我是VBScripts的新手，并尝试使用我在SO上找到的脚本。该脚本将XLSX文件转换为CSV。这很好用，但是CSV行空了，这让我有些头疼。

if WScript.Arguments.Count < 2 Then
    WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv"
    Wscript.Quit
End If
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
oBook.SaveAs WScript.Arguments.Item(1), 6
oBook.Close False
oExcel.Quit

如何在保存为CSV之前修改上述脚本以删除空行？

我读过这样做但它似乎不起作用并引发运行时错误

oBook.UsedRange