質問編集履歴
3
誤記修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -152,7 +152,7 @@
|
|
152
152
|
|
153
153
|
End If
|
154
154
|
|
155
|
-
strSQL = "insert into table1
|
155
|
+
strSQL = "insert into table1(COL1, COL2, COL3, COL4, COL5, COL6, COL7, COL8, COL9, COL10, COL11, COL12, COL13, COL14, COL15, COL16, COL17, COL18, COL19, COL20, COL21, COL22, COL23, COL24, COL25, COL26, COL27, COL28, COL29, COL30, COL31, COL32, COL33, COL34, COL35, COL36, COL37, COL38, COL39, COL40, COL41, COL42, COL43, COL44, COL45, COL46, COL47, COL48, COL49, COL50, COL51, COL52, COL53, COL54, COL55, COL56, COL57, COL58, COL59, COL60, COL61, COL62, COL63, COL64, COL65, COL66, COL67, COL68, COL69, COL70, COL71, COL72, COL73, COL74, COL75, COL76, COL77, COL78, COL79, COL80, COL81, COL82, COL83, COL84, COL85, COL86, COL87, COL88, COL89, COL90, COL91, COL92, COL93, COL94, COL95, COL96, COL97, COL98, COL99, COL100, COL101, COL102, COL103, COL104, COL105, COL106, COL107, COL108, COL109, COL110, COL111, COL112, COL113)values(" & _
|
156
156
|
|
157
157
|
Trim(sh.Cells(lngRow, 1).Value) & ", '" & Trim(sh.Cells(lngRow, 2).Value) & "', " & Trim(sh.Cells(lngRow, 3).Value) & ", '" & Trim(sh.Cells(lngRow, 4).Value) & "', '" & Trim(sh.Cells(lngRow, 5).Value) & "', '" & Trim(sh.Cells(lngRow, 6).Value) & "', '" & Trim(sh.Cells(lngRow, 7).Value) & "', '" & Trim(sh.Cells(lngRow, 8).Value) & "', '" & Trim(sh.Cells(lngRow, 9).Value) & "', '" & Trim(sh.Cells(lngRow, 10).Value) & "', '" & _
|
158
158
|
|
2
誤記修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -152,7 +152,7 @@
|
|
152
152
|
|
153
153
|
End If
|
154
154
|
|
155
|
-
strSQL = "COL1, COL2, COL3, COL4, COL5, COL6, COL7, COL8, COL9, COL10, COL11, COL12, COL13, COL14, COL15, COL16, COL17, COL18, COL19, COL20, COL21, COL22, COL23, COL24, COL25, COL26, COL27, COL28, COL29, COL30, COL31, COL32, COL33, COL34, COL35, COL36, COL37, COL38, COL39, COL40, COL41, COL42, COL43, COL44, COL45, COL46, COL47, COL48, COL49, COL50, COL51, COL52, COL53, COL54, COL55, COL56, COL57, COL58, COL59, COL60, COL61, COL62, COL63, COL64, COL65, COL66, COL67, COL68, COL69, COL70, COL71, COL72, COL73, COL74, COL75, COL76, COL77, COL78, COL79, COL80, COL81, COL82, COL83, COL84, COL85, COL86, COL87, COL88, COL89, COL90, COL91, COL92, COL93, COL94, COL95, COL96, COL97, COL98, COL99, COL100, COL101, COL102, COL103, COL104, COL105, COL106, COL107, COL108, COL109, COL110, COL111, COL112, COL113)values(" & _
|
155
|
+
strSQL = "insert into table1 ("COL1, COL2, COL3, COL4, COL5, COL6, COL7, COL8, COL9, COL10, COL11, COL12, COL13, COL14, COL15, COL16, COL17, COL18, COL19, COL20, COL21, COL22, COL23, COL24, COL25, COL26, COL27, COL28, COL29, COL30, COL31, COL32, COL33, COL34, COL35, COL36, COL37, COL38, COL39, COL40, COL41, COL42, COL43, COL44, COL45, COL46, COL47, COL48, COL49, COL50, COL51, COL52, COL53, COL54, COL55, COL56, COL57, COL58, COL59, COL60, COL61, COL62, COL63, COL64, COL65, COL66, COL67, COL68, COL69, COL70, COL71, COL72, COL73, COL74, COL75, COL76, COL77, COL78, COL79, COL80, COL81, COL82, COL83, COL84, COL85, COL86, COL87, COL88, COL89, COL90, COL91, COL92, COL93, COL94, COL95, COL96, COL97, COL98, COL99, COL100, COL101, COL102, COL103, COL104, COL105, COL106, COL107, COL108, COL109, COL110, COL111, COL112, COL113)values(" & _
|
156
156
|
|
157
157
|
Trim(sh.Cells(lngRow, 1).Value) & ", '" & Trim(sh.Cells(lngRow, 2).Value) & "', " & Trim(sh.Cells(lngRow, 3).Value) & ", '" & Trim(sh.Cells(lngRow, 4).Value) & "', '" & Trim(sh.Cells(lngRow, 5).Value) & "', '" & Trim(sh.Cells(lngRow, 6).Value) & "', '" & Trim(sh.Cells(lngRow, 7).Value) & "', '" & Trim(sh.Cells(lngRow, 8).Value) & "', '" & Trim(sh.Cells(lngRow, 9).Value) & "', '" & Trim(sh.Cells(lngRow, 10).Value) & "', '" & _
|
158
158
|
|
1
誤記修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -92,11 +92,11 @@
|
|
92
92
|
|
93
93
|
.TextFileConsecutiveDelimiter = False
|
94
94
|
|
95
|
-
.TextFileTabDelimiter =
|
95
|
+
.TextFileTabDelimiter = False
|
96
96
|
|
97
97
|
.TextFileSemicolonDelimiter = False
|
98
98
|
|
99
|
-
.TextFileCommaDelimiter =
|
99
|
+
.TextFileCommaDelimiter = True
|
100
100
|
|
101
101
|
.TextFileSpaceDelimiter = False
|
102
102
|
|