回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -7,8 +7,9 @@
|
|
|
7
7
|
+ bookfile = Dir("C:\Users\08260\Desktop\試し\" & foldername & "*.xls*") 'ブック名を取得
|
|
8
8
|
- Do While file <> ""
|
|
9
9
|
+ Do While bookfile <> ""
|
|
10
|
-
+ Set wb = Workbooks.Open("C:\Users\08260\Desktop\試し\" & foldername & "\" & bookfile)
|
|
10
|
+
+ Set wb = Workbooks.Open("C:\Users\08260\Desktop\試し\" & foldername & "\" & bookfile)
|
|
11
|
+
- counter = Worksheets.Count
|
|
11
|
-
counter = wb.Worksheets.Count
|
|
12
|
+
+ counter = wb.Worksheets.Count
|
|
12
13
|
For i = 1 To counter
|
|
13
14
|
sheetname = wb.Sheets(i).Name
|
|
14
15
|
|