[[20200506170710]] 『VBA ダイアログ 保存』(ゆう) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『VBA ダイアログ 保存』(ゆう)

名前を付けて保存する際に、ダイアログを表示させたいです。

やりたいことは、今日の日付のあとにサンプルという名前でダイアグを表示させたいです。
Format(Date, "YYMMDDサンプル") & ".xlsm"

GetSaveAsFilenameの使い方がよく分かりません。

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

< 使用 Excel:unknown、使用 OS:unknown >


 >今日の日付のあとにサンプルという名前でダイアグを表示させたいです。 

 Sub Test()
    Dim fname As String

    fname = Application.GetSaveAsFilename(InitialFileName:=Format(Date, "YYMMDD") & _
            "サンプル", FileFilter:="Excel マクロ有効ブック(*.xlsm),*.xlsm")

    If fname <> "False" Then
        ActiveWorkbook.SaveAs Filename:=fname
    End If
 End Sub

(ピンク) 2020/05/06(水) 18:10


ピンクさん

いつもありがとうございます。

本当に感謝です。
(ゆう) 2020/05/06(水) 19:01


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.