回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -10,7 +10,7 @@
|
|
|
10
10
|
With CN
|
|
11
11
|
.Provider = "Microsoft.ACE.OLEDB.12.0"
|
|
12
12
|
.Properties("Extended Properties") = "Text;HDR=NO"
|
|
13
|
-
.ConnectionString = "C:\
|
|
13
|
+
.ConnectionString = "C:\TEST\" 'ファイルのあるフォルダ
|
|
14
14
|
.Open
|
|
15
15
|
End With
|
|
16
16
|
|