[[20190610130345]]　『Book保存名の変更』（asdf）　ページの最後に飛ぶ

『Book保存名の変更』（asdf）

エクセルマクロにて、決まった位置のセルの値を既存の保存名に付け加え、保存別ファイルとして保存する方法。

ActiveWorkbook.SaveAs "\\保存先\" & Workbooks("Test").Worksheets("sheet1").Range("A500").Value

これにどう加えればよいかご教授いただければと思います。

＜使用 Excel：Excel2010、使用 OS：unknown ＞

 元々のファイル名にセルの値を追加するのでしょうか。
ActiveWorkbook.SaveAs "\\保存先\" & Workbooks("Test").Worksheets("sheet1").Range("A500").Value & ThisWorkbook.Name
（みやほりん） 2019/06/10(月) 14:48

みやほりん様の解釈で合っています！
ありがとうございます。

さらにお聞きしたいのですが、"_"を追加して区切ることは可能なのでしょうか？

(セル値)(ファイル名)　→　(セル値)_(ファイル名)
（asdf） 2019/06/10(月) 15:07

みやほりん様
元々のワークブック名に_をつける形で解決しました！

ご教授ありがとうございました！！
（asdf） 2019/06/10(月) 15:13

度々申し訳ありません。

元々のファイル名にセルの値を追加する方法で下記のやり方でやってみたところ、

(ファイル名前).xls(セル値)となってしまい、

(ファイル名前)(セル値).xlsとしたいのですが。。

ActiveWorkbook.SaveAs "\\保存先\"& ThisWorkbook.Name & Workbooks("Test").Worksheets("sheet1").Range("A500").Value

ご教授のほど、よろしくお願いいたします。

（asdf） 2019/06/10(月) 16:52

 違いを確認してから、工夫して使用

 MsgBox ThisWorkbook.Name
 MsgBox CreateObject("Scripting.FileSystemObject").Getbasename(ThisWorkbook.Name)
 MsgBox CreateObject("Scripting.FileSystemObject").GetExtensionName(ThisWorkbook.Name)

（BJ） 2019/06/10(月) 17:44

BJ様

 MsgBox ThisWorkbook.Name　
→ bookすべての名前

 MsgBox CreateObject("Scripting.FileSystemObject").Getbasename(ThisWorkbook.Name)
→ 拡張子を除いた名前

 MsgBox CreateObject("Scripting.FileSystemObject").GetExtensionName(ThisWorkbook.Name)
→ 拡張子のみの名前

ですね！

CreateObject("Scripting.FileSystemObject").Getbasename(ThisWorkbook.Name)
を上手く使用するというこでしょうか？

（asdf） 2019/06/10(月) 18:13

BJ様

CreateObject関数を使用し、無事に望んだ形になりました！
助言ありがとうございました！

（asdf） 2019/06/10(月) 18:49

 ついでで、↓も載せちゃったけど、
 MsgBox CreateObject("Scripting.FileSystemObject").GetExtensionName(ThisWorkbook.Name)

 1度、名前を付けて保存をマクロ記録して、
 「FileFormat:=○○○○」
 部分を端折らない方がいいと思います。
 そうすれば、ついでで載せたものは必要なくなると思います。
（BJ） 2019/06/10(月) 19:11

コメント返信：

[ 一覧(最新更新順) ]

[[20190610130345]] 『Book保存名の変更』（asdf） ページの最後に飛ぶ

[[20190610130345]]　『Book保存名の変更』（asdf）　ページの最後に飛ぶ