ClosedXMLでExcel生成をする際の「セルの書式設定」について。

Question

###前提・実現したいこと
ClosedXMLでエクセルファイルの生成を行い、CSVでデータを読み込んでいます。

###発生している問題・エラーメッセージ
セルの型を通貨型に設定したのですが、「1234」と入力された場合、
「1,234」ではなく「1234」のまま、表示されてしまします。
ダブルクリックの後、エンターを押下すると通貨型「1,234」に変換されます。

エクセルホームからセルの書式設定を確認すると、通貨型になっています。
###該当のソースコード

sheet.Range("A1:AA11").Style.NumberFormat.SetFormat("#,##0")

            Dim CSV As New System.Collections.ArrayList()
            Dim CSVData As New FileIO.TextFieldParser("C: \CSV.csv", System.Text.Encoding.GetEncoding(932))
            CSVData.TextFieldType = FileIO.FieldType.Delimited
            CSVData.Delimiters = New String() {","}
            CSVData.HasFieldsEnclosedInQuotes = True
            CSVData.TrimWhiteSpace = True
            While Not CSVData.EndOfData
                Dim fields As String() = CSVData.ReadFields()
                CSV.Add(fields)
            End While
            sheet.Range("A1").Value = CSV
            CSVData.Close()

A1からA11の範囲を通貨型で表しています。
###補足情報(言語/FW/ツール等のバージョンなど)
・ClosedXML 0.76.0
https://closedxml.codeplex.com/releases/view/197852
・VS 2015
・VBで開発を行っております。C＃での知識でもご教授頂ければ幸いです。

Answer 1

追記ばかりじゃ、ソースにインデントされないようなので、別回答として
ry_さんのソースでは、
CSV（ArrayList）に追加していっているので、
縦にしか並んでないと思います。

ClosedXMLにて、縦横の範囲で値をセットするには、
ジャグ配列（配列の配列または、配列のList）にする必要があるようですので、
以下のようにしたら、吐き出しました。

        Dim CSV As New System.Collections.ArrayList()
        Dim CSVData As New FileIO.TextFieldParser("C:\Temp\CSV.csv", System.Text.Encoding.GetEncoding(932))
        CSVData.TextFieldType = FileIO.FieldType.Delimited
        CSVData.Delimiters = New String() {","}
        CSVData.HasFieldsEnclosedInQuotes = True
        CSVData.TrimWhiteSpace = True

        Dim outData As ArrayList
        While Not CSVData.EndOfData
            Dim fields As String() = CSVData.ReadFields()

            outData = New ArrayList
            For Each field In fields
                If IsNumeric(field) Then
                    outData.Add(Decimal.Parse(field))
                Else
                    outData.Add(field)
                End If
            Next
            CSV.Add(outData.ToArray())

        End While
        CSVData.Close()

        Dim book As New ClosedXML.Excel.XLWorkbook(ClosedXML.Excel.XLEventTracking.Disabled)
        Dim sheet As ClosedXML.Excel.IXLWorksheet = book.Worksheets.Add("Sheet1")
        sheet.Range("A1").Value = CSV
        book.SaveAs("C:\Temp\XLSXSample.xlsx")

配列を使わない方法です。

        Dim CSVData As New FileIO.TextFieldParser("C:\Temp\CSV.csv", System.Text.Encoding.GetEncoding(932))
        CSVData.TextFieldType = FileIO.FieldType.Delimited
        CSVData.Delimiters = New String() {","}
        CSVData.HasFieldsEnclosedInQuotes = True
        CSVData.TrimWhiteSpace = True

        Dim book As New ClosedXML.Excel.XLWorkbook(ClosedXML.Excel.XLEventTracking.Disabled)
        Dim sheet As ClosedXML.Excel.IXLWorksheet = book.Worksheets.Add("Sheet1")

        Dim rowIndex As Integer = 0
        While Not CSVData.EndOfData
            rowIndex = rowIndex + 1

            Dim fields As String() = CSVData.ReadFields()
            Dim colIndex As Integer = 0
            For Each field In fields
                colIndex = colIndex + 1
                If IsNumeric(field) Then
                    sheet.Cell(rowIndex, colIndex).Value = Decimal.Parse(field)
                Else
                    sheet.Cell(rowIndex, colIndex).Value = field
                End If
            Next
        End While
        CSVData.Close()

        book.SaveAs("C:\Temp\XLSXSample2.xlsx")

データすくないので、まったく処理速度の差はありませんでした。
１００行程度に変えても速度変わりないです。

Comments

[OMO]

KIYOSHIさん
ありがとうございました。
通貨型での出力をすることができました。
とても助かりました。本当にありがとうございます。

Answer 2

セルにデータを書き込む部分はどのようになってますでしょうか？
"1234"をstringで書き込んでませんか？

Comments

[OMO]

すみません、その通りでした。

[OMO]

すみません、stringで書き込んでいました。
何もかもが初心者で、質問等が的外れかもしれませんが、どうぞよろしくお願い致します。
```
Dim CSV As New System.Collections.ArrayList()
Dim CSVData As New FileIO.TextFieldParser _
("C:\CSV.csv", System.Text.Encoding.GetEncoding(932))
CSVData.TextFieldType = FileIO.FieldType.Delimited
CSVData.Delimiters = New String() {","}
CSVData.HasFieldsEnclosedInQuotes = True
CSVData.TrimWhiteSpace = True

Dim outData As Collection
While Not CSVData.EndOfData
Dim fields As String() = CSVData.ReadFields()

outData = New Collection
For Each field In fields
If IsNumeric(field) Then
outData.Add(field.Cast(Of Integer))
End If
Next
CSV.Add(fields)

End While
.Range("A1").Value = CSV
CSVData.Close()
```
CSVの入出力を上記のコードに変更しましたが、うまくいきません…。
何か良い方法はないでしょうか・・・。

[KIYOSHI]

Object型の配列に一度収めてから、
Range("A1").Value = CSV
で出力されていますが、
Objectを経由しているからかもしれません。
配列を作らずに出力させてみたらいかがでしょう。
時間もあまり変わらないと思われます。

[KIYOSHI]

すみません。
コード見たら、CSVには、文字しかいれてませんね。
```VB.NET
For Each field In fields
If IsNumeric(field) Then
　　 outData.Add(field.Cast(Of Integer))
Else
　　 outData.Add(field)
End If
Next
CSV.Add(outData)
```
で行けるのではないでしょうか？

[OMO]

エラーが発生してしまいました・・・。
```エラー内容
型 'System.Reflection.TargetParameterCountException' のハンドルされていない例外が mscorlib.dll で発生しました

追加情報:パラメーター カウントが一致しません。
```
```XLCell.cs
★の部分が黄色くなってます
var propertyInfo = m.GetType().GetProperties();
foreach (var info in propertyInfo)
{
if ((info as IEnumerable) == null)
★ SetValue(info.GetValue(m, null), ro, co);★
co++;
}
```
すみません。よろしくお願い致します。

[KIYOSHI]

このエラーはどのようなソースにしたら、
エラーとなったのでしょうか？
XLCell.csは、ClosedXMLの内部ソースでしょうか？

前にコメントしてます。
配列に入れないで出力は試されましたか？

[OMO]

エラーは私のコメントのコードのFor Each...Nextの部分を
KIYOSHIさんの教えてくださったコードに変更致しました。
結果、上記のエラーが発生しました。
XLCell.csはClosedXMLの内部ソースです。

「配列に入れないで出力」ですが、どのように行えば良いかわからず、
上記コードを試しました。すみません。

また、下記のように修正したところ、指定したセルから縦にすべてのデータが
出力されました。型はinteger型で出力されていると思われ、
CSVの「1234」を「1,234」で出力することはできました。

```VB.NET
While Not CSVData.EndOfData
Dim FIELDS As Object() = CSVData.ReadFields()

For Each FIELD In FIELDS
If IsNumeric(FIELD) Then
FIELD = (New Int32() {FIELD})
End If
CSV.Add(FIELD) '横で読んだのが縦に入る全部
Next
'CSV1.Add(FIELD) '最後の列だけ入る
End While
sheet.Range("D1").Value = CSV
' sheet.Range("D3").Value = CSV1
CSVData.Close()
```
ただ、先程も述べましたように、CSVのデータが縦に一列に入ってしまいます。
これは出力の方法が悪いのでしょうか。
```CSVデータ
1234,1111,2222
3333,4444,5555
6666,7777,8888
```
```Excel出力結果
1,234
1,111
2,222
3,333
4,444
5,555
6,666
7,777
8,888
```