質問編集履歴
1
ソースの修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -33,7 +33,7 @@
|
|
|
33
33
|
'----- シートを検索
|
|
34
34
|
For lngSheetIndex = 1 To wbAcq.Worksheets.Count
|
|
35
35
|
'----- 「更新」シートを検索
|
|
36
|
-
If wbAcq.Worksheets(lngSheetIndex).Name = "
|
|
36
|
+
If wbAcq.Worksheets(lngSheetIndex).Name = "更新" Then
|
|
37
37
|
'----- 「更新」シートを変数へ登録
|
|
38
38
|
|
|
39
39
|
Set wsAcq = wbAcq.Worksheets(lngSheetIndex)
|