回答編集履歴
2
誤字の修正
test
CHANGED
@@ -56,7 +56,7 @@
|
|
56
56
|
|
57
57
|
.TextFilePlatform = 932
|
58
58
|
|
59
|
-
.TextFileParseType = xlDelimited
|
59
|
+
.TextFileParseType = xlDelimited
|
60
60
|
|
61
61
|
.TextFileTextQualifier = xlTextQualifierDoubleQuote
|
62
62
|
|
1
書式の改善
test
CHANGED
@@ -4,9 +4,11 @@
|
|
4
4
|
|
5
5
|
|
6
6
|
|
7
|
+
```
|
8
|
+
|
7
9
|
Sub import_CSV()
|
8
10
|
|
9
|
-
'Excelにcsvを取り込
|
11
|
+
'Excelにcsvを取り込むとき用のひな形
|
10
12
|
|
11
13
|
Dim data_path As Variant
|
12
14
|
|
@@ -66,7 +68,7 @@
|
|
66
68
|
|
67
69
|
.TextFileColumnDataTypes = Array(1, 9, 9, 2, 9, 1) '列ごとの取り込み形式
|
68
70
|
|
69
|
-
' .TextFileColumnDataTypes = Array(1, 1, 1,
|
71
|
+
' .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
|
70
72
|
|
71
73
|
|
72
74
|
|
@@ -104,9 +106,9 @@
|
|
104
106
|
|
105
107
|
End Sub
|
106
108
|
|
109
|
+
```
|
107
110
|
|
108
|
-
|
109
|
-
test.csv-------------------------------
|
111
|
+
test.csv-------------------------------
|
110
112
|
|
111
113
|
item1,item2,item3,item4,item5,item6
|
112
114
|
|