締切済み

ＥＸＣＥＬのマクロをタスクスケジュールで実行

2009/02/19 19:55

WindowsXPのタスクスケジュールでEXCELのマクロを実行しています。動くのですが一番最後にEXCELを保存して終了をしたいのですが ActiveWorkbook.close SaveChanges:=true を一行追加しても終了してくれません。どうしたらよろしいですか。

MASHI_CHAN
お礼率40% (6/15)

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

みんなの回答

n-jun
ベストアンサー率33% (959/2873)

2009/02/19 21:39 回答No.1

Application.Quitの誤解 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_060.html こちらを一読されてみては如何でしょうか。

関連するQ&A

エクセル　マクロで自動実行と終了について

エクセルで作ったマクロを自動実行・自動保存・自動終了したいので、下記のような記述のマクロをつくり、Windowsのタスク処理で1回/日実行させようとしています。 ----<ここから>------------------------------------ Sub Auto_Open() 　　 : 　　: 　　Workbooks("ekuseru.xls").Close SaveChanges:=True End Sub ----<ここまで>------------------------------------ 質問その１　マクロを編集したい場合はどうすればいいのでしょう？　そのBookを開くとマクロが動き出し、保存した上で終了してしまいます。　マクロ無効でBookを開くと「ツール」⇒「マクロ」⇒「マクロ」で「編集」はクリッ　クできないようになってます。質問その２　マクロが終了するとき、Bookは閉じますがエクセル自体は閉じません。　（意味通じますか？）　エクセル自体を閉じるにはマクロの記述はどうすればいいのでしょう？以上、よろしくお願いします。
マクロ実行後エクセルを閉じたい

２つの別々のファイルを開いて片方からもう片方にコピーして保存して終了する。（両方とも閉じる）というマクロを作ったのですがコピー終了後に実行したマクロ付きのエクセルも閉じてデスクトップ上には何も開いていない状態にしたいのですがworkbookのところに下記の命令を記述してもうまくいきません。 Application.Run "ＸＸＸＸＸＸ" ThisWorkbook.Save ThisWorkbook.Saved = True If Workbooks.Count <= 1 Then Application.Quit ThisWorkbook.Close False マクロ付きのエクセルも一旦は閉じるのですがその後に別の白紙のブックが開いてしまうのです。続けて他のマクロをスケジュールで実行したいのですが実行時に「既にエクセルが開いています」みたいな警告が表示され実行できません。エクセルを完全に閉じるようにするにはどうしたらいいのでしょうか？
エクセルのマクロで保存して終了が出来ない

　あるエクセルファイルにて、VBAで Sub 保存して終了() ActiveWorkbook.Save ActiveWorkbook.close End Sub 　というマクロを作成したのですが、1回目は正常に動いたのですが次からは、そのマクロを動かしても画面が一瞬点滅するだけで、上書き保存も終了もしません。　それで、ファイルを別の名前をつけて保存してその、別の名前で保存したファイルで、また上のマクロを動かすと1回目は正常に動くのですが、やはり次に開くと動かなくなります。　因みに他のマクロは正常に動作し、この保存して終了させるマクロだけが変なのです。　マクロの書き方を変えて以下のようにしてもだめでした。 Workbooks("ナントカ.xls").Close savechanges:=True 　やはり、何回書き方を変えても保存して終了させることだけが出来ません。普通にマクロを使用せず手動ですることは出来るのですが…。　分かりにくい説明ですみませんが、よろしくお願いします。
Windowsのタスク機能からExcelを開きマクロを実行しようと思っても、Excelがアクティブにならず、マクロが実行されない。

仕事で、指定の時間にExcelで作ったマクロを実行し、帳票を作らなくてはなりません。 PCの前にいない時間に、自動的に実行される必要があります。マクロはExcelを開くと同時に実行されるよう、「Auto_Open」を使いました。あとは自動にこのExcelが開けばいいので、こちらで検索したところ、タスク機能を使うとExcelを指定の時間に開くことができると知り、試してみました。 http://oshiete1.goo.ne.jp/qa4146028.html しかし、Excelは開くのですが、アクティブの状態にはならず、マクロが実行されません。タスク機能ではExcelを開いてマクロを実行することはできないのでしょうか？タスク機能は、ウィザードに従って設定してます。プロパティからは特に設定していません。どなたか教えてください。宜しくお願いします。
開いているエクセルを上書き保存するマクロがしりたいのですが

開いているエクセルを上書き保存するマクロがしりたいのですが単純に　ActiveWorkbook.Save ActiveWorkbook.Close では　ウィンドウだけ閉じてエクセルの画面は残ってしまいます　どうしたら　全て閉じるのか知りたいのですが、よろしくお願いします。
エクセルファイルを閉じる方法

VBでExelファイルを新規作成し、名前をつけて保存するんですが、 objxls.Application.Visible = False として非表示で実行すると、保存した後でも「Bookxx」というExcelファイルが開かれっぱなしになっています。「Bookxx」が作られない（ちゃんと閉じる）ようにするにはどうすればいいでしょうか。 Excelファイルの閉じ方は objExcel.ActiveWorkbook.Close SaveChanges:=True, FileName:=App.Path & "\bookPaste.xls" でやっています。
Ｅｘｃｅｌのマクロの命令文を教えてください

ＥＸＣＥＬ２００２です。仮にAAA.XLSを開いて書込をしその内容をマクロでWTTOTAL.XLSに転記し又AAA.XLSに戻ります。ここまでの進行は何とかマクロが作れました。その後AAA.XLSより終了マクロを下記のように作りました。 Sub SHUURYOU() Windows("WTTOTAL.XLS").Close SAVECHANGES:=True ActiveWorkbook.Save Application.Quit End Sub この場合うまく働いてくれますが時にAAA.XLSだけで作業が終わることがあります。するとWTTOTAL.XLSが開いていないのでエラーになります。WTTOTAL.XLSが開いていてもＣＬＯＳＥの時でもかのマクロを働かすにはどのような命令文を何処に付け加えればいいのでしょうか。よろしくお願いします。
【Excel365マクロ】csv保存

xlsmファイルからcsvファイルを作成する際、現状は以下のマクロで作成しています。 Sub csv保存() '同じフォルダ内に作成日時を追加してcsvファイル保存 ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "●●_" & Format(Now(), "yyyymmdd-hhmmss") & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False MsgBox ("「" & ActiveWorkbook.Name & "」　保存完了") _ & Chr(13) & "" & Chr(13) & "OKをクリックするとこのExcelファイルが強制終了します" '保存せずにExcelファイルを閉じる ActiveWorkbook.Close SaveChanges:=False End Sub 特定の名前(●●)をxlsmと同じファイル名(拡張子無し)にするマクロをご教示ください。
ExcelのマクロでCSVファイルを開くと遅いのですが

ExcelのマクロでCSVファイルを開くと遅いのですが速く開く方法はありますか？普通にファイル－開くに比べてかなり遅いです。下記のVBAで記述してあります。 Workbooks.Open Filename:=fname ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV, _ CreateBackup:=False ActiveWorkbook.Close savechanges:=False
エクセルで保存時に自動実行させるマクロ？

エクセル９７です。起動時のAuto_Openや終了時のAuto_Closeのように、ファイルに保存をかけた時に自動的にマクロを実行させるにはどうしたらよいのでしょうか？フォームなどのマクロボタンで保存させるのではなく、通常に保存する場合です。よろしくお願いします。
Excelマクロの自動実行で新規ブックを保存せずに表示したい

以下のようなマクロを作成しました。これを、TEST.xls として保存し、サーバに登録しました。これをwebサイトで <a href="TEST.xls">実行する</a> のようにしてダウンロードし実行しても、strNEWBKNM が表示されずに終了してしまいます。 auto_open をやめて、ダウンロード後に「ツール」→「マクロ」でマクロを実行すると strNEWBKNM が表示された状態で終了するのですが、 auto_open でも strNEWBKNM が表示された状態で終わらせたいです。（保存はしたくありません。あくまで表示で終わらせたいです）どのようにしたらよいか、お分かりになる方がいらっしゃいましたら教えてください。よろしくお願いします。 Sub auto_open() Dim strWKBKNM As String 'このブック名 Dim strNEWBKNM As String '新しいブック名 strWKBKNM = ThisWorkbook.Name '*** このブックの名前を設定 Workbooks.Add '*** 新しいブックを追加 strNEWBKNM = ActiveWorkbook.Name '*** 新しいブックの名前を設定 Sheets("Sheet1").Activate Range("A1") = "aaaaaa" Workbooks(strNEWBKNM).Activate Workbooks(strWKBKNM).Close SaveChanges:=False End Sub
EXECLの変更を保存せずにブック強制的に閉じる方法を

困り果てています VISTAとXPでマクロで EXECLの変更を保存せずにブック強制的に閉じる方法を教えていただきたいのですがテストをしてみたマクロは下記のようなものですがですがうまく動作しませんシートの中にスピンボタンがありセルの中の数字を変えると変更を保存しますか？　となります。 Sub Auto_Close() ThisWorkbook.Saved = True End Sub Sub 例1434() 　　ActiveWorkbook.Saved = True ActiveWorkbook.Close End Sub Sub 13() ThisWorkbook.Close SaveChanges:=False End Sub Sub CloseBook() Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True End Sub Sub CloseBook2() ActiveWorkbook.Close savechanges:=False End Sub いずれもだめでした　良い方法をお教えください。
EXECLの変更を保存せずにブック強制的に閉じる方法を

困り果てています VISTAとXPでマクロで EXECLの変更を保存せずにブック強制的に閉じる方法を教えていただきたいのですがテストをしてみたマクロは下記のようなものですがですがうまく動作しませんシートの中にスピンボタンがありセルの中の数字を変えると変更を保存しますか？　となります。 Sub Auto_Close() ThisWorkbook.Saved = True End Sub Sub 例1434() 　　ActiveWorkbook.Saved = True ActiveWorkbook.Close End Sub Sub 13() ThisWorkbook.Close SaveChanges:=False End Sub Sub CloseBook() Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True End Sub Sub CloseBook2() ActiveWorkbook.Close savechanges:=False End Sub いずれもだめでした　良い方法をお教えください。
複数ブックの最後のブックだけ処理できない

開いている複数ブックに対して「簡単な処理を行い、保存して閉じる」というマクロを走らせたいのですが、最後のブックのみ処理できずにマクロが終了してしまいます。例えば、3ブック開いていたら3ブック目が、 4ブック開いていたら4ブックめが、処理できずに開いたままの状態です。 Dim Wb As Workbook For Each Wb In Workbooks 簡単な処理内容 ActiveWorkbook.Close SaveChanges:=True Next どのように改善すれば良いのでしょうか？
UWSCからエクセルのマクロを実行

最近UWSCというソフトを使うようになりました。で、エクセルからSHELLをつかってUWSCを立ち上げ実行し、UWSCの最後に再度エクセルの指定したマクロを実行したいと思っています。エクセルファイル名= AAA.xls Excel = GETACTIVEOLEOBJ("Excel.Application" ,エクセルファイル名) ---- 中略 ---- Excel.Visible = True ACW(GETID("MICROSOFT EXCEL - " + エクセルファイル名　,"XLMAIN"),-4,-4,1288,1002,0) CTRLWIN(GETID("MICROSOFT EXCEL"), MAX) msgbox("完了しました。") Excel.Application.Run エクセルファイル名 & "!Macro1" といったようなスクリプトを組んだのですが、なにもないままUWSCが終了してしまいます。 UWSCから指定のエクセルマクロを実行する方法を教えてください。
タスクスケジュールについて

Windows2000を使用しています。ｂａｔファイルで作成した処理をタスクスケジュールで定時に実行していますが、何時に終了したか確認したい場合は、どこかで確認ができますか？正常に終了したかの判断はどこかをみればわかりますか？
保存したくない（エクセル2003）

標準モジュールで Sub test() ActiveWorkbook.Close SaveChanges:=False End Sub これを実行する前に、セルに値を入力を入力してコードを実行すると SaveChanges:=False を入れてるのに、「変更を保存しますか？」と聞かれます。 SaveChanges:=False は意味がないのでしょうか？ Application.Quit にしても同じく聞かれました。
Excel 終了マクロ

Excel で終了マクロを作ってみましたが、途中で次のメッセージが出てしまいます。「実行時エラー'424' オブジェクトが必要です」どう直したらよいか、教えて下さい。よろしくお願いします。 Sub Macro1() With ActiveWorkbook If MsgBox("終了します") = vbOK Then Set dbsTemp = Nothing ActiveWorkbooks.Close End If End With End Sub
Excelマクロで、WORDを閉じるには。

Excel2000のマクロ内で、Word2000を起動してファイルを開き、それを別名保存した後Wordを閉じてExcelに戻る…という処理を行いたいのですが、Wordを閉じる所がうまく出来ません。 [現在のマクロ]------------------------------ Set wd = CreateObject("word.Application") wd.Visible = True wd.documents.Open Filename:= _ "C:\aaa.doc" wd.ActiveDocument.SaveAs Filename:= _ "C:\test\bbb.doc" wd.Close SaveChanges:=False -------------------------------------------- これで実行すると、開いたファイル(aaa.doc)は閉じるのですが、別名保存したファイル(bbb.doc)が閉じません。両方のファイルおよびWORDアプリケーションを閉じたければどう記述すればよいのでしょうか？どなたか教えてください。
Excelマクロで終了

Excel2007 でマクロで教えて下さい。今、ExMac1(book) と言うマクロから、ExMac2(book)のサブルーチンを起動しています。呼ばれたExMac2の最後で、ExMac2を終了する命令を記述すると、全てのマクロが終了してしまいExMac1に制御が戻ってきません。これは仕様かと思い、呼び出されたExMac2からExMac1を終了させてExMac2の続きをと思いましたが、やはり全てのマクロが終了していまいます。ちょっと分かりずらい説明で申し訳ありませんが、どうにかして指定したbookマクロだけを終了させたいのですが、ご教授ください。　呼び出す側　ExMac1 : Application.Run "'ExMac2.xlsm'!main_Click" : end 　呼び出される側　ExMac2 sub main_Click : Workbooks("'ExMac1.xlsm'").Close SaveChanges:=False ....(1) msgbox "続き" ....(2) : end 　(1)が実行されると、全てのマクロが終了され(2)が　実行されません。

ＥＸＣＥＬのマクロをタスクスケジュールで実行

みんなの回答

関連するQ&A

エクセル　マクロで自動実行と終了について

マクロ実行後エクセルを閉じたい

エクセルのマクロで保存して終了が出来ない

Windowsのタスク機能からExcelを開きマクロを実行しようと思っても、Excelがアクティブにならず、マクロが実行されない。

開いているエクセルを上書き保存するマクロがしりたいのですが

エクセルファイルを閉じる方法

Ｅｘｃｅｌのマクロの命令文を教えてください

【Excel365マクロ】csv保存

ExcelのマクロでCSVファイルを開くと遅いのですが

エクセルで保存時に自動実行させるマクロ？

Excelマクロの自動実行で新規ブックを保存せずに表示したい

EXECLの変更を保存せずにブック強制的に閉じる方法を

EXECLの変更を保存せずにブック強制的に閉じる方法を

複数ブックの最後のブックだけ処理できない

UWSCからエクセルのマクロを実行

タスクスケジュールについて

保存したくない（エクセル2003）

Excel 終了マクロ

Excelマクロで、WORDを閉じるには。

Excelマクロで終了

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

ＥＸＣＥＬのマクロをタスクスケジュールで実行

みんなの回答

関連するQ&A

エクセル マクロで自動実行と終了について

マクロ実行後エクセルを閉じたい

エクセルのマクロで保存して終了が出来ない

Windowsのタスク機能からExcelを開きマクロを実行しようと思っても、Excelがアクティブにならず、マクロが実行されない。

開いているエクセルを上書き保存するマクロがしりたいのですが

エクセルファイルを閉じる方法

Ｅｘｃｅｌのマクロの命令文を教えてください

【Excel365マクロ】csv保存

ExcelのマクロでCSVファイルを開くと遅いのですが

エクセルで保存時に自動実行させるマクロ？

Excelマクロの自動実行で新規ブックを保存せずに表示したい

EXECLの変更を保存せずにブック強制的に閉じる方法を

EXECLの変更を保存せずにブック強制的に閉じる方法を

複数ブックの最後のブックだけ処理できない

UWSCからエクセルのマクロを実行

タスクスケジュールについて

保存したくない（エクセル2003）

Excel 終了マクロ

Excelマクロで、WORDを閉じるには。

Excelマクロで終了

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　マクロで自動実行と終了について

カテゴリ
一覧

専門家に質問してみよう
専門家登録