回答編集履歴
1
コード修正
test
CHANGED
|
@@ -16,9 +16,11 @@
|
|
|
16
16
|
|
|
17
17
|
+ Do While bookfile <> ""
|
|
18
18
|
|
|
19
|
-
+ Set wb = Workbooks.Open("C:\Users\08260\Desktop\試し\" & foldername & "\" & bookfile)
|
|
19
|
+
+ Set wb = Workbooks.Open("C:\Users\08260\Desktop\試し\" & foldername & "\" & bookfile)
|
|
20
20
|
|
|
21
|
+
- counter = Worksheets.Count
|
|
22
|
+
|
|
21
|
-
counter = wb.Worksheets.Count
|
|
23
|
+
+ counter = wb.Worksheets.Count
|
|
22
24
|
|
|
23
25
|
For i = 1 To counter
|
|
24
26
|
|