回答編集履歴

1

コード修正

2019/04/13 06:44

投稿

Y.H.
Y.H.

スコア7914

test CHANGED
@@ -6,9 +6,9 @@
6
6
 
7
7
  ```
8
8
 
9
- Set objWb = objExcel.Workbooks.Open(FileName:=varXls, ReadOnly:=False, _
9
+ ' Set objWb = objExcel.Workbooks.Open(FileName:=varXls, ReadOnly:=False, _
10
10
 
11
- Password:=PASSWORD_STRING)
11
+ ' Password:=PASSWORD_STRING)
12
12
 
13
13
 
14
14
 
@@ -18,14 +18,14 @@
18
18
 
19
19
 
20
20
 
21
- objWb.Save
21
+ ' objWb.Save
22
22
 
23
- objWb.Close
23
+ ' objWb.Close
24
24
 
25
- Set objWb = Nothing
25
+ ' Set objWb = Nothing
26
26
 
27
- objExcel.Quit
27
+ ' objExcel.Quit
28
28
 
29
- Set objExcel = Nothing
29
+ ' Set objExcel = Nothing
30
30
 
31
31
  ```