用分號而不是 VBS 中的逗號保存 a.csv 文件

Question

我需要通過 vbs 文件將 excel 文件列表轉換為分號 csv 文件，因為我使用的程序僅導入以分號作為分隔符的 vbs 文件，我在 vbs 中編寫了這個小文件，但它設法將其導出為帶有逗號的 csv ，不是分號。

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Users\loren\Desktop\eFolder" 'folder where my Excel files are saved

Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
    csv_format = 6
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    src_file = objStartFolder & "\" & objFile.Name 'Input files
    dest_file = objStartFolder & "\OUTPUT\" & objFile.Name & ".csv" 'Output files
    
    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
Next

Answer 1

我通過將 Local 參數的參數設置為 True 來保存文件來解決它。 感謝@VBasic2008 的回復

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Users\loren\Desktop\eFolder"

Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
    csv_format = 6
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    src_file = objStartFolder & "\" & objFile.Name
    dest_file = objStartFolder & "\OUTPUT\" & objFile.Name & ".csv"
    
    Dim oExcel
    Set oExcel = CreateObject("Excel.Application")
    
    Dim oBook
    Set oBook = oExcel.Workbooks.Open(src_file)
    
    oBook.SaveAs dest_file, csv_format, , , , , , , , , , True
    
    oBook.Close False
    oExcel.Quit
    
Next