ここから本文です

こんにちは。只今勉強中のエクセルVBA初心者です。 エクセルでマクロを含んだブ...

sak********さん

2018/12/1910:44:15

こんにちは。只今勉強中のエクセルVBA初心者です。

エクセルでマクロを含んだブックを名前を付けて任意のフォルダに保存するため、見ようまねで下記にしてみました。

Sub 名前を付けて保存()
Dim FileName As Variant
FileName = _
Application.GetSaveAsFilename( _
InitialFileName:=ThisWorkbook.Name _
, FileFilter:="Excel マクロ有効ブック(*.xlsm),*.xlsm" _
, FilterIndex:=1 _
, Title:="名前を付けて保存" _
)
If FileName <> False Then
Application.DisplayAlerts = False
ThisWorkbook.SaveAs FileName:=FileName, FileFormat:=xlNormal
Application.DisplayAlerts = True
End If
End Sub


次に保存先のフォルダをあらかじめ指定しておく事も考えていますが、悩んでいます。
どの様に変更すれば良いでしょうか。
申し訳ございませんが教えて頂けないでしょうか。
よろしくお願い致します。

閲覧数:
35
回答数:
2
お礼:
500枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2018/12/1910:50:19

どういうフォルダーを指定したいのですか?
マクロ搭載のブックと同じフォルダーなら

InitialFileName:=ThisWorkbook.Name



InitialFileName:=ThisWorkbook.FullName

  • 質問者

    sak********さん

    2018/12/1910:57:37

    traさま
    ご回答ありがとうございます。
    デスクトップに作った任意のフォルダを保存先とする事を考えております。
    よろしくお願いします。

  • その他の返信(3件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2018/12/19 11:48:17

早急なご回答を頂き、
また、わかりやすい内容であったため、
問題も早く解決し非常に助かりました。

本当にありがとうございました。

ベストアンサー以外の回答

1〜1件/1件中

mon********さん

2018/12/1911:27:26

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる