| |
▼りん さん：
>ステッピー さん、こんばんわ。
>
>とりあえず、こっちだけ。
>
>>結果としてはオフィスソフトの「名前をつけて保存」をした場合の
>>保存場所の指定とファイル名の決定をするウインドウを立ち上げ
>>たいという事なのですが。
>(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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 08/9/20(土) 3:21 -
