質問編集履歴
2
誤字修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -12,9 +12,6 @@
|
|
12
12
|
3. numを半角へ変換
|
13
13
|
4. サブフォルダ名とファイル名の()内の値をnumの値に置換
|
14
14
|
|
15
|
-
したいのですが...作成したコードでF5実行すると、【資料】000000000(111)氏名.xlsxサブフォルダの1件目の値がnumへ入ったままの状態のため、エラーになります。
|
16
|
-
|
17
|
-
サブフォルダ名を置換した場合、サブフォルダ名と対象のブック名が不一致になるので
|
18
15
|
|
19
16
|
```ここに言語を入力
|
20
17
|
Sub 置換作業()
|
1
コードの誤字を修正
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
ファイル名・フォルダ名の変更
|
1
|
+
ファイル名・フォルダ名の一部をセルの値へ変更したい。
|
test
CHANGED
@@ -1,5 +1,6 @@
|
|
1
1
|
お世話になります。
|
2
2
|
エラーが解消できず行き詰っているためご教示お願いいたします。
|
3
|
+
下記コード実行時、「ファイル名を変更して保存」のSaveAsの部分で実行時エラー:オートメーションエラー となります。
|
3
4
|
|
4
5
|
実現したい動作
|
5
6
|
|
@@ -12,6 +13,8 @@
|
|
12
13
|
4. サブフォルダ名とファイル名の()内の値をnumの値に置換
|
13
14
|
|
14
15
|
したいのですが...作成したコードでF5実行すると、【資料】000000000(111)氏名.xlsxサブフォルダの1件目の値がnumへ入ったままの状態のため、エラーになります。
|
16
|
+
|
17
|
+
サブフォルダ名を置換した場合、サブフォルダ名と対象のブック名が不一致になるので
|
15
18
|
|
16
19
|
```ここに言語を入力
|
17
20
|
Sub 置換作業()
|
@@ -71,7 +74,7 @@
|
|
71
74
|
Jump:
|
72
75
|
|
73
76
|
‘ファイル名を変更して保存
|
74
|
-
New_wb = New
|
77
|
+
New_wb = New_fol & “【資料】” & FileName_1 & num & FileName_2 & “.xlsx”
|
75
78
|
wb.SaveAs New_wb
|
76
79
|
wb.Close False
|
77
80
|
|