質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

3回答

217閲覧

VBA ファイル保存について

Yoshikun_0945

総合スコア224

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2018/03/21 07:37

編集2018/03/21 08:56

#ファイル保存について
VBAにてファイルを保存する際に、『〇〇.4~・・・.xlsm』というファイル名で、保存したいのですが、どのように記述すればよろしいでしょうか?
〇〇は、変数の値【数値】を全角に変換したいです。

##ファイル名の例
18.4~・・・
19.4~・・・
20.4~・・・
という形でファイル名を指定して保存したいです。
※上記のように18、19、20の部分は変数を利用したいです。

##上書き保存の際に使用しているコード

Workbooks("18.4~出勤管理表.xlsm").Save

を使用していますが、

Workbooks("〇〇.4~出勤管理表.xlsm").Save

にしたいです。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

torisan

2018/03/21 07:56

現在のコードを記載して下さい。
guest

回答3

0

自己解決

fn = 18 Workbooks(StrConv(CStr(fn), vbWide) + ".4~出勤管理表.xlsm").Save

という記述にしたら成功いたしました。
ありがとうございました。

投稿2018/03/21 09:43

Yoshikun_0945

総合スコア224

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

なので、

Workbooks("18.4~出勤管理表.xlsm").SaveAs Filename:="〇〇.4~出勤管理表.xlsm"

みたいな。

投稿2018/03/21 09:02

退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

投稿2018/03/21 09:03

Zuishin

総合スコア28660

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問