|
▼りん さん:
>ステッピー さん、こんばんわ。
>
>とりあえず、こっちだけ。
>
>>結果としてはオフィスソフトの「名前をつけて保存」をした場合の
>>保存場所の指定とファイル名の決定をするウインドウを立ち上げ
>>たいという事なのですが。
>(Application.)GetSaveAsFilename で、ファイル名を取得するだけのウィンドウがでます(保存は別コマンドです)。
>詳細な使い方はヘルプをごらんください。
りんさん、こんばんは。
お答え頂いた内容を基に無事、ファイル保存する事ができました。
対応の早さにびっくりしております。未熟者には本当にためになる
所だと実感しております。
以下、検証済みの記述です。
同様にお悩みの方のためになればと、載せておきます。
Private Sub 保存_click()
Dim fname As String
fname = Application.GetSaveAsFilename( _
InitialFileName:="利用者名.xls", _
Title:="利用者情報の保存先")
If fname <> "False" Then
ActiveWorkbook.SaveAs Filename:=fname
End If
End Sub
|
|