質問編集履歴
1
説明文追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
```VBA
|
|
30
30
|
|
|
31
|
-
Set wb = Workbooks.Open(Filename:="C:\Users\
|
|
31
|
+
Set wb = Workbooks.Open(Filename:="C:\Users\＊＊＊＊\OneDrive\デスクトップ\試し\" & folder_number & "\" & book_number & ".xls") 'ブックオープン
|
|
32
32
|
|
|
33
33
|
counter = wb.Worksheets.Count
|
|
34
34
|
|
|
@@ -58,7 +58,7 @@
|
|
|
58
58
|
|
|
59
59
|
book_number = Left(book_number, 2)
|
|
60
60
|
|
|
61
|
-
Set wb = Workbooks.Open(Filename:="C:\Users\
|
|
61
|
+
Set wb = Workbooks.Open(Filename:="C:\Users\＊＊＊＊\OneDrive\デスクトップ\試し\" & book_number & "\" & "部品.xls") 'ブックオープン
|
|
62
62
|
|
|
63
63
|
counter = wb.Worksheets.Count
|
|
64
64
|
|