起動中のBookでファイル名が Data.xlsのものを閉じたいと思いますが、
上書き確認メッセージを出さないように
oExcel.DisplayAlerts = False
を設定すると
エラーになります。
CreateObject で作成した場合は、DisplayAlerts が使えるようですが、
すでに起動済みのBookを確認なしで上書き保存するにはどうしたらいい
のでしょうか?
Sub UnloadFile()
Dim myBook2 As Workbook
Dim myBook1 As Workbook
For Each myBook2 In Workbooks
If myBook2.Name = "Data.xls" Then
Set myBook1 = myBook2
myBook1.SaveAs myBook1.FullName
myBook1.Close
End If
Next myBook2
Set myBook1 = Nothing
End Sub
No.6
- 回答日時:
補足しておきます。
>何も編集を加えない場合も、myBook1.Closeの時点で保存しますか?と聞いてきます。
真に何も変更が加わっていない場合は、保存確認のメッセージは表示されないはずです。
それにも関わらず、メッセージが表示されるのは、なんらかの変更が加わったためでしょう。
例えば、TODAY関数などブックを開いた時点で再計算を行う関数が使われている場合、人の手による直接の変更がなくとも、EXCELは「変更あり」とします。
No.5
- 回答日時:
>この場合は Application.DisplayAlerts = False でいいということになるのでしょうか?
保存しない場合があるのであれば、その通りです。
ブックを閉じるCloseメソッドの直前に
Application.DisplayAlerts = False
を入れ、閉じたあとに、
Application.DisplayAlerts = True
として元に戻してやります。
No.4
- 回答日時:
#1です。
補足しておきます。> oExcel.DisplayAlerts = False
この文法は間違っています。DisplayAlerts プロパティーは Application オブジェクトのプロパティーですから、ワークシートに対して設定するものではありません。
> If myBook2.Name = "Data.xls" Then
この行でブックを特定する時点で「上書き保存」であることが特定できるのですから、SaveAs メソッドを使う必要がありませんし、ファイル名を指定する必要もありません。オリジナルコードを尊重し、Save メソッドが適当だと思います。
また、「上書き保存」の場合は DisplayAlerts プロパティーを操作する必要もないと思います。(アラートが表示されないので)
したがって、#1の回答となっています。
この回答への補足
ご回答ありがとうございます。
保存しないで myBook1.Close だけしたいときはどうするのでしょうか?
何も編集を加えない場合も、myBook1.Closeの時点で保存しますか?と聞いてきます。
この場合は Application.DisplayAlerts = False でいいということになるのでしょうか?
No.3
- 回答日時:
通常は、こういうコードでよいわけですが、
'---------------------------
Dim myBook2 As Workbook
For Each myBook2 In Workbooks
If myBook2.Name = "Data.xls" Then
Application.DisplayAlerts = False
myBook2.Save 'As myBook2.FullName 'でも可能
myBook2.Close
Application.DisplayAlerts = True
End If
Next myBook2
'---------------------------
>CreateObject で作成した場合は、DisplayAlerts が使えるようですが、
>すでに起動済みのBookを確認なしで上書き保存するにはどうしたらいい
>のでしょうか?
CreateObject という話が出てくることは、Excelからではないのですか?
外部のVBAやVBから、という意味でしょうか?
もし、そうなら、この方法は違いますね。
エラーは、どのようなメッセージでしょうか?
この回答への補足
#1,#2,#3さんの方法でOKでした。ありがとうございました。
>エラーは、どのようなメッセージでしょうか?
エラーでなくて確認メッセージですね。
勘違いでした。
myBook1.DisplayAlerts = False ってやると
実行時エラー 438
このオブジェクトは、このプロパティーまたはメソッドをサポートしていません。
となりますね。
No.1
- 回答日時:
こんにちは。
やりたいことは、上書き保存ですよね?
myBook1.SaveAs myBook1.FullName
を
myBook1.Save
に変更してみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
EXCELマクロで上書きメッセージ無しで保存する方法
その他(プログラミング・Web制作)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
VBAで、強制保存してブックを閉じるには?
Visual Basic(VBA)
-
5
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
6
エクセルの指定したシートにエクスポート
その他(データベース)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
accessからエクセルにエクスポートしたファイルを開きたい。
Excel(エクセル)
-
9
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
10
AccessからExcelのシートを削除
Excel(エクセル)
-
11
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Wordの差し込み印刷でSql文を変...
-
ワード文書を保存するとPDF...
-
DVDで、ワードの文書は保存でき...
-
wordで1ページだけを保存したい時
-
RTF形式でのパスワード設定
-
リッチテキスト形式ってどのよ...
-
紛失したUSBの文章を復元し...
-
openofficeのソフトからWord/Ex...
-
Word保存時にズーム倍率をリセ...
-
差し込みで設定した書式が保存...
-
帳簿の保存期間(給与台帳等)
-
内部統制 文書の保存期間は?
-
PDF文書の保存禁止設定方法を教...
-
一太郎の保存
-
WORDで文書作成中に再起動…保存...
-
ワードでアンドゥができなくな...
-
HDDに対外秘文書保存禁止 の業...
-
助けて!Wordが保存できません。
-
テキスト形式で仕様書を管理したい
-
PDFを1ページ目から表示させた...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
wordで1ページだけを保存したい時
-
Wordの差し込み印刷でSql文を変...
-
ワード文書を保存するとPDF...
-
openofficeのソフトからWord/Ex...
-
DVDで、ワードの文書は保存でき...
-
Word「自動バックアップ」、「...
-
EXCELにて変更していないのに毎...
-
wordを立ち上げると前の文章が...
-
紛失したUSBの文章を復元し...
-
差し込みで設定した書式が保存...
-
WORD2013で.docxで保存すると図...
-
wordで保存した文書に「editdat...
-
RTF形式でのパスワード設定
-
ワードで勝手に保存されちゃう...
-
一太郎で作成した作品をdocx...
-
パブリッシャーデータをjpg変換...
-
デスクトップ上に文書を保存したい
-
自動保存の解除
-
Word保存時にズーム倍率をリセ...
-
Excel VBAで確認なしで上書き保存
おすすめ情報