回答編集履歴

2

誤字の修正

2017/05/21 05:05

投稿

tusru
tusru

スコア43

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

書式の改善

2017/05/21 05:05

投稿

tusru
tusru

スコア43

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, 2, 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