はじめまして、Excel VBAにて困っていますので教えてください。
・以下の構造でExcelを起動しております。
1.VB6で作成したアプリケーションよりExcelで使用するためのデータ抽出を
行います。
2.抽出終了後、上記アプリケーションよりExcelを起動し、VBAマクロ
機能を使用し、自動印刷(複数帳票あり)を行います。(上記アプリケーションは待機状態)
3.印刷終了後、上記アプリケーションに戻ります。
・自動マクロ機能なので、処理終了後に上記3.に戻るのですが、リソース不足に
より(印刷時にリソースが消費されます)ハングアップ状態になる時があります。
そこで、リソース不足を解消したいと思っているのですが、ExcelVBAでリソース
不足を解消する方法がありましたら、教えていただきたいのですが。
・私としては、印刷の時に、次の印刷時に前回の印刷が終了するまでマクロを待機
させたいと思っております。
よろしくお願いします。
No.6ベストアンサー
- 回答日時:
たぶん、印刷スプール中にリソースを消費していると思う。
PrintOut後に印刷スプール終了を待つのはどうでしょう?
と言いつつも、Wordだと簡単だけどExcelの場合は簡単は方法は思い浮かばない。
参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=103563
todo36さん。ありがとうございました。
参考URLのサンプルを参考に実行したら、リソース不足がかなり解消されました。
出力先がレーザープリンターの為、実感がわきませんでしたが、自宅に持ち帰り、インクジェットプリンタに出力すると、リソース不足が解消されているのがわかり
ました。
No.5
- 回答日時:
>確かにブックのOPEN・CLOSEを数回行っています。
ブックのオープンクローズはOKです。
NGなのはエクセル本体の起動、終了を複数回行った場合です。
それと、画面の描画もメモリを消費しますので、コードをちょっとだけ変更させてみました。
これでもダメですか?
Public Sub XLSM0050_PRINT_SEC()
Dim W_FILE As String
Dim PV_X As Variant
On Error GoTo ERROR_TRAP
Application.StatusBar = True
Application.StatusBar = "EXCEL添付文書出力中"
Application.ScreenUpdating = False
Open PB_TXTPATH & "INPM0250.TXT" For Input As #1
While Not EOF(1)
W_FILE = ""
Input #1, W_FILE
If W_FILE <> "" Then
Workbooks.Open Filename:="" & W_FILE & ""
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close
End If
Wend
Close #1
Application.ScreenUpdating = True
PGMEND:
Exit Sub
ERROR_TRAP:
Application.ScreenUpdating = True
PV_X = ABEND_SEC("1", "XLSM0010", "XLSM0050_PRINT_SEC", "")
GoTo PGMEND
End Sub
この回答への補足
TAGOSAKU7さん。ありがとうございます。
少しだけ改善されましたが、根本的には解決には至りませんでした。
どうも印刷スプール時にリソースを消費しているみたいなので、こちらの方で
解決策があれば教えてください。
No.4
- 回答日時:
マシンスペックは問題ないかと思います。
恐らくあなたの書いているコードに問題があるとしか言えません。
メモリのバグは発見しにくいものなのであなたのコードをよく眺めてごらん
というしか出来ません。
頑張ってください。
この回答への補足
zerosixさん。ありがとうございます。
どうも印刷スプール時にリソースを消費しているみたいなので、こちらの方で
解決策があれば教えてください。
No.3
- 回答日時:
あとー
一つ質問なのですが、これはzerosixさんの発言の延長ですが、Excelを何度も起動してませんか?
OK処理
エクセル起動
ブック1オープン
ブック1クローズ
ブック2オープン
ブック2クローズ
ブック3オープン
ブック3クローズ
エクセル終了(ここで開放)
NG処理
エクセル起動
ブック1オープン
ブック1クローズ
エクセル終了
エクセル起動
ブック2オープン
ブック2クローズ
エクセル終了
エクセル起動
ブック3オープン
ブック3クローズ
エクセル終了(ここで開放)
こんなことにはなってないですよね?
この回答への補足
TAGOSAKU7さん。ご指摘ありがとうございます。
確かにブックのOPEN・CLOSEを数回行っています。
コードは以下のようにしております。
Public Sub XLSM0050_PRINT_SEC()
Dim W_FILE As String
Dim PV_X As Variant
On Error GoTo ERROR_TRAP
Application.StatusBar = True
Application.StatusBar = "EXCEL添付文書出力中"
Open PB_TXTPATH & "INPM0250.TXT" For Input As #1
While Not EOF(1)
W_FILE = ""
Input #1, W_FILE
If W_FILE <> "" Then
Workbooks.Open FileName:="" & W_FILE & ""
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close
End If
Wend
Close #1
Exit Sub
ERROR_TRAP:
PV_X = ABEND_SEC("1", "XLSM0010", "XLSM0050_PRINT_SEC", "")
End Sub
試しに、印刷コード(ActiveWindow.SelectedSheets.PrintOut Copies:=1)
をコメントアウトして実行すると、リソース不足にはなりませんでした(残50%)
試しに、印刷コード(ActiveWindow.SelectedSheets.PrintOut Copies:=1)
をコメントアウトせずに実行すると、リソース不足にはなりませんでしたが、
リソース残が30%をきってしまいました。
No.2
- 回答日時:
きちんと変数を使用してますか?
オブジェクトやコントロールからの参照を何度も行ってませんか?
例えば
if Form1.Text1.Text = "1" then
elseif Form1.Text1.Text = "2" then
end if
というような処理を行ってませんか?
オブジェクト参照の回数が多いほど、負荷がかかります。
それと セルへの値をセットを一つのセルごとに行うと付加がかかります。
範囲選択をして、まとめて値をセットするようにしましょう。
コードを見てみないと、主にどこで不可がかかっているかがわかりません。。。
No.1
- 回答日時:
マシンスペックが書かれていませんので推測ですが、
プログラムでできることとしては、
オブジェクトをsetすると、きちんと開放してあげたりしている
のでしょうか?
set HogeObj = CreateObject("aaa")
set HogeObj = nothing
と言う感じで、オブジェクトの開放をエラー時でも行って
いるのでしょうか?
この回答への補足
マシンスペックを記述していませんでしたので、記述します。
OS :WINDOWS98
CPU:Pentium2 233MHZ
メモリ:64MB
機種:FMV6233D9
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(パソコン・スマホ・電化製品) Webページ印刷時にヘッダー・フッターをつけたい 1 2022/04/25 21:35
- PDF EXCEL ページを指定してPDF出力するVBAを教えてください。 2 2023/02/09 10:27
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
Excelのマクロについて教えてく...
-
エクセルVBAで書式と値の貼付け...
-
ワイルドカード「*」を使うとう...
-
エクセルVBAが途中で止まります
-
【VBA】全シートの計算式を全て...
-
ACCESSVBA からExcelの他ブック...
-
シートをコピーする下記記述で...
-
別ブックをダイアログボックス...
-
VBA 別ブックからコピペしたい...
-
VBSでExcelのオープン確認
-
Excel にて、 リストボックスの...
-
VBAの参照先のファイル名をセル...
-
【Excel VBA】書き込み先ブック...
-
エクセルのマクロを使ってメー...
-
【ExcelVBA】インデックスが有...
-
Excelファイルを開くとき、読み...
-
拡張メタファイルにて貼り付け
-
ユーザーフォームの切り替えに...
-
VBAで別ブックのシートを指定し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
(マクロ)データをAブックからB...
-
VBS Bookを閉じるコード
-
VBA 別ブックからコピペしたい...
-
VBA 複数のエクセルから一つの...
-
VBA シート名が一致した場合の...
-
【ExcelVBA】インデックスが有...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
【VBA】全シートの計算式を全て...
-
複数のエクセルブックをひとつ...
-
VBA 実行時エラー 2147024893
-
ExcelのVBAです。フォルダ内の...
おすすめ情報