保存Excelワークシートヌルとセミコロン区切り

Question

として私はこのようなC＃でExcel.Worksheetを輸出しています：

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

それはほとんどOK動作しますが、私は二つのことを強制する必要があります。

を

• 「フィールドセパレータ」はセミコロン（;）でなければなりません。
• "text separator"は常にnullにする必要があります。私は二重引用符を取得（「」）

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ソリューションがあなたにとって全く役に立たない場合、私はお詫び申し上げます！