質問編集履歴

2

誤字修正

2022/02/15 11:14

投稿

haru4
haru4

score11

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

コードの誤字を修正

2022/02/07 00:49

投稿

haru4
haru4

score11

test CHANGED
@@ -1 +1 @@
1
- ファイル名・フォルダ名の変更時のエラーにつSaveAs 実行時エラー:オートメーションエラー
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 fol & “【資料】” & FileName_1 & num & FileName_2 & “.xlsx”
77
+ New_wb = New_fol & “【資料】” & FileName_1 & num & FileName_2 & “.xlsx”
75
78
  wb.SaveAs New_wb
76
79
  wb.Close False
77
80