Сохранить Лист Excel в CSV с нулевым и точкой с запятой в качестве разделителя

Question

Я экспортирование Excel.Worksheet в C# как это:

myWorksheet.SaveAs(myPath, Excel.XlFileFormat.xlCSV); 

это работает почти нормально, но мне нужно, чтобы заставить две вещи:

• «Полевой разделитель» должен быть точкой с запятой (;). Я получаю запятую (,)
• «Текстовый разделитель» всегда должен быть нулевым. Я получаю двойные кавычки («»)

The documentation совершенно бесполезно (что ад «xlTextWindows:. Определяет тип формата текста» должен означать?)

Любая идея?

Answer 1

Спасибо, ребята, но я искал что-то немного менее неуклюжие.

Во всяком случае, так как я был всего лишь один шаг от закрытия проекта, я собрал безвкусный, но рабочий раствор так:

static public void WorksheetToCSV(Excel.Worksheet origine, string CSVoutPath, string fieldSeparator, string textSeparator) 
    { 
     Excel.Range rngCurrentRow; 
     string lineaDaScrivere; 
     TextWriter csv = new StreamWriter(CSVoutPath); 


     for (int i = 1; i <= origine.UsedRange.Rows.Count; i++) 
     { 
      rngCurrentRow = origine.UsedRange.get_Range("A" + i, "A" + i).EntireRow; 
      lineaDaScrivere=""; 

      foreach (Excel.Range cella in rngCurrentRow.Columns) 
      { 
       try 
       { 
        lineaDaScrivere = lineaDaScrivere + textSeparator + cella.Value.ToString() + textSeparator + fieldSeparator; 
       } 
       catch (NullReferenceException ex) 
       { 
        break; 
       } 
      } 
      lineaDaScrivere=lineaDaScrivere.Substring(0, (lineaDaScrivere.Length - fieldSeparator.Length)); 

      csv.WriteLine(lineaDaScrivere); 
     } 

     csv.Close(); 
    } 

Есть лучшее решение, но это работает, как ожидалось для меня.

Answer 2

Решение VBA (не C#), чтобы заменить запятые с запятой является:

Sub CreateCSV() 

Dim rCell As Range 
Dim rRow As Range 
Dim sOutput As String 
Dim sFname As String, lFnum As Long 

'Open a text file to write 
sFname = "C:\MyCsv.csv" 
lFnum = FreeFile 

Open sFname For Output As lFnum 
'Loop through the rows' 
    For Each rRow In ActiveSheet.UsedRange.Rows 
    'Loop through the cells in the rows' 
    For Each rCell In rRow.Cells 
     sOutput = sOutput & rCell.Value & ";" 
    Next rCell 
    'remove the last comma' 
    sOutput = Left(sOutput, Len(sOutput) - 1) 

    'write to the file and reinitialize the variables' 
    Print #lFnum, sOutput 
    sOutput = "" 
Next rRow 

'Close the file' 
Close lFnum 

End Sub 

source протестирована и работает. Теперь, я не уверен, какой разделитель текста вы говорите о том, что он "", но я не сталкивался с этим. Если вы пойдете по пути VBA, дайте мне знать, если это все еще происходит, и мы изменим код. Если это решение VBA вам совершенно бесполезно, я извиняюсь!