teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

5

タグの追加

2017/01/26 07:15

投稿

OMO
OMO

スコア10

title CHANGED
File without changes
body CHANGED
File without changes

4

コード修正

2017/01/26 07:15

投稿

OMO
OMO

スコア10

title CHANGED
File without changes
body CHANGED
@@ -15,7 +15,7 @@
15
15
 
16
16
  ```ここに言語を入力
17
17
  Dim CSV As New System.Collections.ArrayList()
18
- Dim CSVData As New FileIO.TextFieldParser("C:CSV.csv", System.Text.Encoding.GetEncoding(932))
18
+ Dim CSVData As New FileIO.TextFieldParser("C: \CSV.csv", System.Text.Encoding.GetEncoding(932))
19
19
  CSVData.TextFieldType = FileIO.FieldType.Delimited
20
20
  CSVData.Delimiters = New String() {","}
21
21
  CSVData.HasFieldsEnclosedInQuotes = True

3

コード修正

2016/08/25 00:35

投稿

OMO
OMO

スコア10

title CHANGED
File without changes
body CHANGED
@@ -15,7 +15,7 @@
15
15
 
16
16
  ```ここに言語を入力
17
17
  Dim CSV As New System.Collections.ArrayList()
18
- Dim CSVData As New FileIO.TextFieldParser("C: \提出用帳票\CSVデータ\月次報告書CSV.csv", System.Text.Encoding.GetEncoding(932))
18
+ Dim CSVData As New FileIO.TextFieldParser("C:CSV.csv", System.Text.Encoding.GetEncoding(932))
19
19
  CSVData.TextFieldType = FileIO.FieldType.Delimited
20
20
  CSVData.Delimiters = New String() {","}
21
21
  CSVData.HasFieldsEnclosedInQuotes = True

2

CSVの入出力コードを追加しました。

2016/08/24 09:08

投稿

OMO
OMO

スコア10

title CHANGED
File without changes
body CHANGED
@@ -12,6 +12,21 @@
12
12
  ```ここに言語を入力
13
13
  sheet.Range("A1:AA11").Style.NumberFormat.SetFormat("#,##0")
14
14
  ```
15
+
16
+ ```ここに言語を入力
17
+ Dim CSV As New System.Collections.ArrayList()
18
+ Dim CSVData As New FileIO.TextFieldParser("C: \提出用帳票\CSVデータ\月次報告書CSV.csv", System.Text.Encoding.GetEncoding(932))
19
+ CSVData.TextFieldType = FileIO.FieldType.Delimited
20
+ CSVData.Delimiters = New String() {","}
21
+ CSVData.HasFieldsEnclosedInQuotes = True
22
+ CSVData.TrimWhiteSpace = True
23
+ While Not CSVData.EndOfData
24
+ Dim fields As String() = CSVData.ReadFields()
25
+ CSV.Add(fields)
26
+ End While
27
+ sheet.Range("A1").Value = CSV
28
+ CSVData.Close()
29
+ ```
15
30
  A1からA11の範囲を通貨型で表しています。
16
31
  ###補足情報(言語/FW/ツール等のバージョンなど)
17
32
  ・ClosedXML 0.76.0

1

初心者です。

2016/08/24 03:48

投稿

OMO
OMO

スコア10

title CHANGED
File without changes
body CHANGED
File without changes