質問編集履歴
1
説明文追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -13,7 +13,7 @@
|
|
|
13
13
|
|
|
14
14
|
|
|
15
15
|
```VBA
|
|
16
|
-
Set wb = Workbooks.Open(Filename:="C:\Users\
|
|
16
|
+
Set wb = Workbooks.Open(Filename:="C:\Users\＊＊＊＊\OneDrive\デスクトップ\試し\" & folder_number & "\" & book_number & ".xls") 'ブックオープン
|
|
17
17
|
counter = wb.Worksheets.Count
|
|
18
18
|
|
|
19
19
|
For i = 1 To counter
|
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
Else 'パーツ案件の検索
|
|
30
30
|
book_number = Left(book_number, 2)
|
|
31
|
-
Set wb = Workbooks.Open(Filename:="C:\Users\
|
|
31
|
+
Set wb = Workbooks.Open(Filename:="C:\Users\＊＊＊＊\OneDrive\デスクトップ\試し\" & book_number & "\" & "部品.xls") 'ブックオープン
|
|
32
32
|
counter = wb.Worksheets.Count
|
|
33
33
|
For i = 1 To counter
|
|
34
34
|
sheetname = wb.Sheets(i).Name
|