回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -10,7 +10,7 @@
|
|
|
10
10
|
Dim pic As Integer
|
|
11
11
|
|
|
12
12
|
Dim fromWB As Workbook 'コピー元ブック
|
|
13
|
-
Set fromWB= Workbooks.Open
|
|
13
|
+
Set fromWB= Workbooks.Open(Filename:="C\" & VVYear & "年度 新入社員データ.xlsx", ReadOnly:=True)
|
|
14
14
|
|
|
15
15
|
Dim toWB As Workbook 'コピー先ブック
|
|
16
16
|
Set toWB = Workbooks("Profile List Maker.xlsm")
|