質問編集履歴
3
解決
test
CHANGED
File without changes
|
test
CHANGED
@@ -171,3 +171,17 @@
|
|
171
171
|
上記リネーム処理を呼び出す条件を間違えていた時には、上記のリネーム処理が動いてしまっていることを確認しているので、何か原因があるのだろうとは思うのですが、よろしくお願いします。
|
172
172
|
|
173
173
|
また、リネーム処理を呼び出せていることは、確認済みです。
|
174
|
+
|
175
|
+
|
176
|
+
|
177
|
+
|
178
|
+
|
179
|
+
お二方のご指摘の通り、
|
180
|
+
|
181
|
+
リネーム処理の前でCSVファイルを開いたまま、Closeしていない変数がありました。
|
182
|
+
|
183
|
+
リネーム処理を呼び出す前にCloseメソッドで閉じることで動作確認できました。
|
184
|
+
|
185
|
+
迅速な回答ありがとうございました。
|
186
|
+
|
187
|
+
ベストアンサーは時間の早かったほうということで、ご了承ください。
|
2
ソースの追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -88,6 +88,70 @@
|
|
88
88
|
|
89
89
|
```
|
90
90
|
|
91
|
+
追記
|
92
|
+
|
93
|
+
ディレクトリからファイルを拾って、設定ファイルを元にSQL文を作成。
|
94
|
+
|
95
|
+
SQLを実行し、ファイル単位でコミット、ロールバックを行う。
|
96
|
+
|
97
|
+
CSVファイルを他でクローズするようにとのことだったので、編集かけてみましたが、
|
98
|
+
|
99
|
+
エラーは変わりませんでした。編集にミスがあればお願いします。
|
100
|
+
|
101
|
+
|
102
|
+
|
103
|
+
```
|
104
|
+
|
105
|
+
If END_CODE = 0 Then
|
106
|
+
|
107
|
+
If lngMatchFlag = 1 Then
|
108
|
+
|
109
|
+
'--------------------------------------------------------'
|
110
|
+
|
111
|
+
'INSERT成功処理
|
112
|
+
|
113
|
+
'--------------------------------------------------------'
|
114
|
+
|
115
|
+
strFilePath = objDataFile.Path ← 追加
|
116
|
+
|
117
|
+
|
118
|
+
|
119
|
+
'オブジェクトの破棄
|
120
|
+
|
121
|
+
Set objDataFile = Nothing ← 追加
|
122
|
+
|
123
|
+
Call OkInsert(strFilePath)
|
124
|
+
|
125
|
+
End If
|
126
|
+
|
127
|
+
Else
|
128
|
+
|
129
|
+
If lngMatchFlag = 1 Then
|
130
|
+
|
131
|
+
'--------------------------------------------------------'
|
132
|
+
|
133
|
+
'INSERT失敗処理
|
134
|
+
|
135
|
+
'--------------------------------------------------------'
|
136
|
+
|
137
|
+
strFilePath = objDataFile.Path ← 追加
|
138
|
+
|
139
|
+
|
140
|
+
|
141
|
+
'オブジェクトの破棄
|
142
|
+
|
143
|
+
Set objDataFile = Nothing ← 追加
|
144
|
+
|
145
|
+
|
146
|
+
|
147
|
+
Call NgInsert(strFilePath)
|
148
|
+
|
149
|
+
End If
|
150
|
+
|
151
|
+
End If
|
152
|
+
|
153
|
+
```
|
154
|
+
|
91
155
|
|
92
156
|
|
93
157
|
### 試したこと
|
1
情報不足
test
CHANGED
File without changes
|
test
CHANGED
@@ -50,8 +50,6 @@
|
|
50
50
|
|
51
51
|
|
52
52
|
|
53
|
-
|
54
|
-
|
55
53
|
|
56
54
|
|
57
55
|
strFileName = Mid(strDataFilePath, InStrRev(strDataFilePath,"\") + 1)
|
@@ -74,7 +72,7 @@
|
|
74
72
|
|
75
73
|
|
76
74
|
|
77
|
-
objRenameFile.Name = resetFileName
|
75
|
+
objRenameFile.Name = resetFileName ←ここでエラーが発生しています。
|
78
76
|
|
79
77
|
|
80
78
|
|
@@ -86,10 +84,6 @@
|
|
86
84
|
|
87
85
|
|
88
86
|
|
89
|
-
'On Error GoTo 0
|
90
|
-
|
91
|
-
|
92
|
-
|
93
87
|
End Sub
|
94
88
|
|
95
89
|
```
|
@@ -98,14 +92,18 @@
|
|
98
92
|
|
99
93
|
### 試したこと
|
100
94
|
|
101
|
-
|
102
|
-
|
103
|
-
|
95
|
+
対象のCSVファイルのプロパティの読み取り専用を解除。
|
104
96
|
|
105
97
|
|
106
98
|
|
107
99
|
### 補足情報(FW/ツールのバージョンなど)
|
108
100
|
|
101
|
+
OS:Windows7
|
102
|
+
|
103
|
+
DB:OracleExpressEdition
|
109
104
|
|
110
105
|
|
106
|
+
|
107
|
+
上記リネーム処理を呼び出す条件を間違えていた時には、上記のリネーム処理が動いてしまっていることを確認しているので、何か原因があるのだろうとは思うのですが、よろしくお願いします。
|
108
|
+
|
111
|
-
|
109
|
+
また、リネーム処理を呼び出せていることは、確認済みです。
|