質問編集履歴
2
初心者アイコンの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -46,6 +46,7 @@
|
|
|
46
46
|
End Sub
|
|
47
47
|
```
|
|
48
48
|
|
|
49
|
+
|
|
49
50
|
②Set 変数 = Nothingのタイミング
|
|
50
51
|
End sub直前にメモリ解放を必要性はあるのでしょうか？
|
|
51
52
|
まず自身のメモリ解放についての認識ですが、誤りがある場合ご指摘をお願いします。
|
1
コードの修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,8 +11,8 @@
|
|
|
11
11
|
Dim ws_sheet1 As Worksheet
|
|
12
12
|
Dim str_name As String
|
|
13
13
|
Dim str_kaisya As String
|
|
14
|
-
Dim cn As Object
|
|
14
|
+
Dim cn As Object 'ADO接続に使用する変数
|
|
15
|
-
Dim rs As Object
|
|
15
|
+
Dim rs As Object 'ADO接続に使用する変数
|
|
16
16
|
|
|
17
17
|
On Error GoTo myError
|
|
18
18
|
|
|
@@ -21,7 +21,10 @@
|
|
|
21
21
|
Set str_name = ws_sheet1.Range("A1").Value
|
|
22
22
|
Set str_kaisya = "TEST会社"
|
|
23
23
|
|
|
24
|
-
'ADO接続箇所は省略します
|
|
24
|
+
'ADO接続・処理箇所は省略します
|
|
25
|
+
rs.Open '省略...
|
|
26
|
+
cn.Open '省略...
|
|
27
|
+
|
|
25
28
|
rs.Close
|
|
26
29
|
cn.Close
|
|
27
30
|
|