Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63670 / 76738

←次へ　｜　前へ→


	【17663】Re:名前をつけて保存ダイアログボックスを表...

かみちゃん - 04/9/4(土) 14:49 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>実行したら保存しなかった。どこか保存できないようなコードがありますか？
>今保存してもファイル名が出てこない。Excelファイルだけなく全てのファイルも
>見つからない。

GetSaveAsFilename メソッドのヘルプ情報を再度ご確認ください。
「ダイアログボックスで指定したファイルは、実際には保存されません。」と書かれています。
このため、これだけのコードでは、保存はされません。

保存するためには、SaveAs メソッドを使います。
詳しくは、これもヘルプ情報に使用例とともに載っているので確認していただきたいのですが、具体的には、
　If パス <> False Then
　　MsgBox "保存するファイル：" & パス
　　ActiveWorkbook.SaveAs Filename:=パス
　End If
とすると、アクティブなブックを保存します。

それと、ご自身でお気づきのようですが、
> If パス <> False Then　　　　　　　　　　　
>　 Msgbox "保存するファイル：" & fileSaveName
> End If
では、メッセージボックスには「保存するファイル：」としか表示されません。
If パス <> False Then　　　　　　　　　　　
　Msgbox "保存するファイル：" & パス
End If
としないといけませんね。すみませんでした。

0 hits

▼

【17651】名前をつけて保存ダイアログボックスを表... さる 04/9/4(土) 1:37