Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


24166 / 76732 ←次へ | 前へ→

【57917】Re:保存設定について。
お礼  ステッピー  - 08/9/21(日) 0:05 -

引用なし
パスワード
   ▼りん さん:
>ステッピー さん、こんばんわ。
>
>とりあえず、こっちだけ。
>
>>結果としてはオフィスソフトの「名前をつけて保存」をした場合の
>>保存場所の指定とファイル名の決定をするウインドウを立ち上げ
>>たいという事なのですが。
>(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

3 hits

【57911】保存設定について。 ステッピー 08/9/20(土) 0:13 質問
【57913】Re:保存設定について。 りん 08/9/20(土) 3:21 発言
【57917】Re:保存設定について。 ステッピー 08/9/21(日) 0:05 お礼

24166 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free