Excel爲什麼用「，」而不是「;」保存csv （使用PowerShell）

Question

我使用PowerShell的通過OLE自動化到Excel保存爲CSV：

$Sheet.SaveAs($FileName + ".csv", 6) 

爲什麼Excel保存CSV用 「」 與OLE自動化和使用 「;」手動做什麼？

區域設置分隔符是「;」

更新：終於在其他論壇上，似乎這是一個真正的難題，沒有真正的解決方案，因爲它看起來像一個錯誤。

Answer 1

當您保存從Excel CSV你有這些選項（與區域設置分隔符 - > 「」）

Option Explicit 

Public Sub SaveCSV() 
    With ActiveWorkbook 

     .SaveAs Filename:="C:\x.csv", FileFormat:=xlCSV   ' 6: -> "," 
     .SaveAs Filename:="C:\x.csv", FileFormat:=xlCSVMSDOS '24: -> "," 

     .SaveAs Filename:="C:\x.csv", FileFormat:=xlCSVWindows '23: -> ";" 
     .SaveAs Filename:="C:\x.csv", FileFormat:=xlCSVMac  '22: -> ";" 

    End With 
End Sub 

在你的PowerShell腳本你使用（的FileFormat）

---

。

沒有可以更改Excel中的分隔符的另一個因素 - TextToColumns：

Public Sub testDelim() 
    setDelim "@" 
End Sub 

Public Sub setDelim(ByVal delim As String) 
    Application.DisplayAlerts = False 
    If 1 Then '-------------------------------------------------- Change delimiter 
     Range("A1") = "A" & delim & "1" 
     Range("A1").TextToColumns Destination:=Range("A1"), _ 
            DataType:=xlDelimited, _ 
            TextQualifier:=xlDoubleQuote, _ 
            ConsecutiveDelimiter:=False, _ 
            Tab:=False, _ 
            Semicolon:=False, _ 
            Comma:=False, _ 
            Space:=False, _ 
            Other:=True, _ 
            OtherChar:=delim 
     Range("A1:B1") = vbNullString 
    Else '------------------------------------------------------ Reset delimiter 
     Range("A1") = "x" 
     Range("A1").TextToColumns Destination:=Range("A1"), _ 
            DataType:=xlDelimited, _ 
            TextQualifier:=xlDoubleQuote, _ 
            ConsecutiveDelimiter:=False, _ 
            Tab:=False, _ 
            Semicolon:=False, _ 
            Comma:=False, _ 
            Space:=False, _ 
            Other:=False, _ 
            OtherChar:="" 
     Range("A1") = vbNullString 
    End If 
    Application.DisplayAlerts = True 
End Sub