回答編集履歴
2
誤字の修正
answer
CHANGED
|
@@ -27,7 +27,7 @@
|
|
|
27
27
|
Set qt = target_ws.QueryTables.Add(Connection:="TEXT;" & data_path, Destination:=r)
|
|
28
28
|
With qt
|
|
29
29
|
.TextFilePlatform = 932
|
|
30
|
-
.TextFileParseType = xlDelimited
|
|
30
|
+
.TextFileParseType = xlDelimited
|
|
31
31
|
.TextFileTextQualifier = xlTextQualifierDoubleQuote
|
|
32
32
|
.TextFileTabDelimiter = False
|
|
33
33
|
.TextFileCommaDelimiter = True
|
1
書式の改善
answer
CHANGED
|
@@ -1,8 +1,9 @@
|
|
|
1
1
|
自分用に以前作成した、CSV取り込みのひな形と、テスト用のCSVデータをお示しします。
|
|
2
2
|
これですぐに解決とはいかないと思いますが、参考にしてみてください。
|
|
3
3
|
|
|
4
|
+
```
|
|
4
5
|
Sub import_CSV()
|
|
5
|
-
'Excelにcsvを取り込
|
|
6
|
+
'Excelにcsvを取り込むとき用のひな形
|
|
6
7
|
Dim data_path As Variant
|
|
7
8
|
Dim qt As QueryTable
|
|
8
9
|
Dim target_ws As Worksheet
|
|
@@ -32,7 +33,7 @@
|
|
|
32
33
|
.TextFileCommaDelimiter = True
|
|
33
34
|
|
|
34
35
|
.TextFileColumnDataTypes = Array(1, 9, 9, 2, 9, 1) '列ごとの取り込み形式
|
|
35
|
-
' .TextFileColumnDataTypes = Array(1, 1, 1,
|
|
36
|
+
' .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
|
|
36
37
|
|
|
37
38
|
'' xlGeneralFormat 1 一般形式
|
|
38
39
|
'' xlTextFormat 2 テキスト形式
|
|
@@ -51,8 +52,8 @@
|
|
|
51
52
|
qt.Delete
|
|
52
53
|
Set qt = Nothing
|
|
53
54
|
End Sub
|
|
54
|
-
|
|
55
|
+
```
|
|
55
|
-
test.csv-------------------------------
|
|
56
|
+
test.csv-------------------------------
|
|
56
57
|
item1,item2,item3,item4,item5,item6
|
|
57
58
|
1,1,1,01,1,北海道
|
|
58
59
|
2,2,2,02,2,青森県
|