- ベストアンサー
エクセルVBA ブックを閉じるときに・・・
エクセルVBAで、ブックを閉じるときに、 「変更を保存しますか？」ダイアログを出さずに閉じたいのです。 保存はしたくないので、そのまま単純に保存しないで閉じてくれればいいのですが・・・ そんな事は出来ますでしょうか？
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- Excel VBA ブックが閉じれない
Excel2016を使用してVBAを使用しています。 VBA初心者ですが、よろしくお願いします。 質問内容は以下になります。 EXCEL起動と同時にUserFormを表示させ、UserForm上のコマンドボタンから ダイアログボックスを表示し、他ブックを開く処理なのですが、 他ブックを開くまでは問題ないのですが、他ブックが閉じれない状態になります。 Private Sub Workbook_Open() UserForm1.Show End Sub Private Sub UserForm_Initialize() 各種処理 End Sub Private Sub CommandButton1_Click() Dim OpenFileName As String SetCurrentDirectory (Worksheets(1).Cells(11, 3)) OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") Workbooks.Open OpenFileName End Sub UserFormを閉じると開いたブックも閉じることが可能です。 タスクマネージャーから強制的に終了しようとすると、以下メッセージが出ます。 ”開いているダイアログボックスがあるため、Microsoft Excel を終了できません。[OK]をクリックしてから、Microsoft Excelに切り替えてダイアログを閉じて下さい。" UserFormを閉じないで他ブックを閉じるには、どうすれば宜しいでしょうか。 申し訳ございませんがご教授下さい、よろしくお願いいたします。
- 締切済み
- Excel（エクセル）
- エクセルのブックはVBAでオブジェクトと言うことは
VBAでアクセスではフォームの事をオブジェクトと言いますが エクセルのブックはVBAでオブジェクトと言うことはありますか？
- ベストアンサー
- Visual Basic
- EXCEL VBAでファイルを保存しないで閉じたい
EXCEL VBAでファイルを保存しないで閉じたい EXCEL VBAでコードを書いています。ワーク用EXCELが必要で、新規ブックを作成しています。 新規ブックで処理をさせた後に自動でブックを閉じたいと思っています。 そこで, WB.QUIT WB.CLOSE True と書いたのですが、新規ブックは閉じずにそのまま残っている状態です。 これを保存しないまま閉じるにはどのような処理が必要でしょうか？
- ベストアンサー
- その他MS Office製品
- エクセル2003VBA 新規ブックを作成、保存の時に
いつも勉強させていただいております。 今回、VBAで以下の事をできるのかな？と思い質問させていただきました。 まず、VBAで以下の動作を作成しました。 Aファイル、データーベースCSVファイル Bファイル、VBA記述ファイル １）Bファイルから、Aファイルを開いて、検索、条件に合うデーター を配列で抽出。 2)新規ブックを追加 3)新規ブックに抽出したデーターを書き出し と言うVBAを作成しました。 で、質問なのですが、新規ブックは保存するか、しないかがその時々に よって任意でするため、VBAで保存の所までは作成していないのですが 、保存する場合、ファイル名に規則性を持たせたいため、ファイル保存 をしたときに表示させる初期ファイル名をBファイルのVBAから変更 させる事はできるのでしょうか？ 新規ブックを保存するとき、初期ファイル名は「Book1.xls」となって いると思うのですが、この値を変更することってできますでしょうか？ もし可能であれば、ヒントや参考になるHPなど教えていただけないで しょうか。
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAでブックの保存
ExcelのVBAでブックを追加し保存を行っています。 その際、保存は、どこに行うのがよいのですか bookですか。sheetですか。 両方で、SaveAsができまが、使い分けがあるのでしょうか。 どのように使い分けするのでしょうか。 Workbooks.Add ActiveSheet.Name = "サンプル" ActiveSheet.SaveAs OutFileName ActiveWorkbook.SaveAs OutFileName ActiveWorkbook.Close
- 締切済み
- その他MS Office製品
- エクセルVBAでブック間のコピーをしたい。
エクセルVBAでブック間のコピーをしたい。 エクセルのVBA初心者です。 複数のブックが開いている時（ブックA,B,C...)に、今選択しているブックAのあるセルを、直前に選んでいたブックBやC（そのつど変わります）にコピーする方法は有りますでしょうか？ どなたか教えて下さい。
- ベストアンサー
- その他MS Office製品
- VBAでエクセル終了
エクセル2000です。 VBAで「閉じる」ボタンを作りました。 Sub closeボタン() myYN = MsgBox("終了しますか？", vbYesNo + vbQuestion, "終了確認") If myYN = vbNo Then Exit Sub ThisWorkbook.Close End Sub ところが作動させると「いいえ」を選ぶとすんなり終了してくれますが、「はい」にすると「変更を保存しますか？」を何故か続けて２回も聞いてきます。 ２回目も「はい」にすると今度はブック保存のダイアログが出てきて、ブック名が「:」（半角コロン）になってます。 変だなあ、と思い上記のマクロを別ブックを新たに作って標準モジュールに張ってみると正常に作動します。 もとのブックに何かあって、こんな現象が起きているのでしょうか？ とっても困ってます。
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAコードを他のBookへ展開
OS:Win2000 Excel2000 ExcelでモジュールシートとThisWorkBookにVBAコードを作成しました。 このVBAを他の１６個のExcelブックへ展開するのですが、 何か変更があった場合、１６個のbookを修正しなければなりません。 管理が煩雑になるので、避けたいのですが何か良い方法はありますでしょうか？ １６個のExcelブックは同じフォルダーで管理され、 Lan又はHttp(Web)で複数人が照会、変更を行います。
- ベストアンサー
- オフィス系ソフト
- エクセルのVBAで新しくブックを開いた上でさらに…
エクセルのVBAで新しくブックを開いた上でそのブックにVBAを埋め込む事はできますか？ 分かりにくいと思うので具体的にかきます。 今、ブック１にコマンドボタンAがあり、このボタンAを押す事により 以下の２つを実現したいです。 (1)あたらしくブック２を開きます。 (2)更にこのブック２のシートにはコマンドボタンBができており (3)このボタンBの機能としてこのボタンBを押すと ブック２のセルA１に数字１が入ります ブック２が開いた後で自分で、コマンドボタンBのマクロをブック２のモジュール内に書くのは簡単ですが、ブック１のコマンドボタンAを押したときに自動的にブック２のマクロを書き込みたいのです。 今、ボタンAを押すことで(1)と(2)まではできるのですが (3)のやり方がわかりません。 そもそもこういった事はできないのでしょうか？ ご存知の人がいたら教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA で困っています。
Excel VBA で困っています。 下記のプログラムで、「名前を付けて保存」→「キャンセル」 を選択した場合のエラーは回避できたのですが、 「名前を付けて保存」→「保存」→「同じ名前のファイルが既に ありますが置き換えますか？」→「いいえ（またはキャンセル）」 の時にエラーが出てしまいます。 どう直したら良いでしょうか。 よろしくお願いいたします。 Public Sub SaveBook() Dim myBook As Variant '「名前を付けて保存」ダイアログ myBook = Application.GetSaveAsFilename("test.xls", _ "Excelファイル,*.xls", , "Excelブックを保存") 'キャンセル時の処理 If StrConv(myBook, vbUpperCase) = "FALSE" Then Exit Sub 'ブックの保存 ActiveWorkbook.SaveAs Filename:=myBook End Sub
- ベストアンサー
- Visual Basic
- FMVWG2U37TのBIOSのバージョンUP方法について説明します。
- Windows 11の場合、デバイスマネージャーのファームウェア設定からBIOSの更新が可能です。
- しかし、操作してもBIOSのバージョンが更新されない場合があります。
お礼
初歩的な質問で失礼いたしました・・・；； 大分悩んだんですけど、答えが見つかりませんでした;; ありがとうございました