HSPTV!掲示板

エクセルにデータ入力し印刷するのを作っていますが、プレビュー画面にしたまま
"Close"コマンドかけると「#error30 ... 無効な名前がパラメータに指定されている」
、となります。エクセルとの連動についてほとんど無知なのでどなたか教えてください。
以下はサンプルです。

	xlsname = "book1.xls"
	xlsfname = dir_cur +"\\"+ xlsname
	newcom xlApp, "Excel.Application"
	xlApp("Visible") = 1 		; Excelウィンドウ表示
	xlApp("DisplayAlerts") = 0 		; 警告メッセージを表示させない
	xlBooks = xlApp("Workbooks") 	; Workbooks コレクション取得
	xlBooks->"Open" xlsfname 		; 指定ファイルを開く
	xlBook = xlBooks("Add")		; book取得
	xlSheet = xlBook("Worksheets","sheet1") ; Sheet取得

	xlRange = xlSheet("Range","B3") : xlRange("Value") = "Sample data1"
	xlRange = xlSheet("Range","B4") : xlRange("Value") = "Sample data2"
	;以下、セルへデータ入力続く

	dialog "エクセル印刷操作終了待ち",0
	xlBooks->"Close";プレビュー画面にしたまま"Close"かけるとここで#error30
	xlApp->"Quit"
	delcom xlApp
	delcom xlRange
	delcom xlSheet
	delcom xlBook
	delcom xlBooks
	stop

プレビュー画面自体を終了させる方法があるのだと思いますが探しきれませんでした。
よろしくお願いします。

エラーの原因は印刷プレビュー画面中はCOM連動可能な機能から外れているので、
その状態でCOM操作を行うことによってエラーが出るのだと思います。

この場合、ExcelのCOM復帰はHSPではできないので、onerrorの割り込みでやり直す的なものを使うしかないと思います。

backdropさん　アドバイスありがとうございました。
早速onerrorでサブルーティン処理し、あわよくば処理復帰させようとしましたが
どうも結局、強制終了しか手がないようです。（ユーザーには申し訳ないのですが...）
しかも"end"で終了時に下記のRuntime errが出てしまいます。
---------------------------
Microsoft Visual C++ Runtime Library
---------------------------
Runtime Error!

This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.
最後がこの表示ではかっこうが悪いので、なんとか出さずに
終了させられる方法を探ってみます。
もし何か方法をご存知でしたお教え願います。
ありがとうございました。
（未練がましく、まだ未解決のフラッグにしておきます）

ちなみにRuntime Error!というのは見ての通りVC++ランタイムが返すエラー。
つまり、VC++プログラムに対して不正なコマンドを送信した時に帰ってきたと思われます。

強制終了がかっこ悪いなら、残念ながらこの問題は避けられないでしょう。

Exselでのそういう技術はVBAの方がはかどると思うんだけどな
余裕があるならこっちも勉強するのが吉

>Exselでのそういう技術はVBAの方がはかどると思うんだけどな
「Excel」です。念のため言っておきますがHSPでやりたいから質問してるんだと思います。
そもそもVBAはマクロなので遠隔操作ではありません。

Excel2007でテストして見ました。
下記のようにプレビュー画面をマクロで表示させてみましたが
印刷プレビュー画面はモーダルとなっているので、手動で閉じるかSendKey命令等
でキーを送って閉じない限り、xlBooks->"Close"は実行されないと思うのですが・・・
手動で閉じてもエラーなく正常に終了しました。

	xlSheet->"PrintPreview" ;提示されている上記Scriptに追加
	
	dialog "エクセル印刷操作終了待ち",0
	xlBooks->"Close";プレビュー画面にしたまま"Close"かけるとここで#error30

>>Exselでのそういう技術はVBAの方がはかどると思うんだけどな
>「Excel」です。念のため言っておきますがHSPでやりたいから質問してるんだと思います。
>そもそもVBAはマクロなので遠隔操作ではありません。
HSPでやりたいのはそうですが、COM操作したいときはVBAが結構役立ちます。
勉強するのはいいと思いますよ。
ExcelCOMの情報収集なんてVBAで調べるのが一番良いし。

皆様、いろいろアドバイスやご意見ありがとうございます。
私の方もまだこれといった解決策は見出せておりません。

私が最初に問題点を明確にしておらず皆様の観点がぼやけて
しまったようであればお詫びします。
問題点は以下となります。

ソフトを使われるユーザーの操作例：
１．ソフトを操作してデータを作成・集計・収集する。
２．ソフトはそのデータをExcelに出力する。
３．ユーザーはそのExcel表を印刷してから戻る。
　　この戻るきっかけとなるDialogで直後にxlBooks->"Close"をかけている。
４．ユーザーは引き続きデータ処理を続けるか処理を終える。
この一連の中でユーザーが、Excelのプレビュー画面を閉じ忘れて
Dialogで印刷終了と応答するとError 30となりソフト自体が内部エラーで終了してしまいます。

現時点ではExcelを開くときに”プレビュー画面を出したなら必ず閉じて下さい”という
コメントをDialogに出すようにする予定です。
それでも閉じ忘れたならthe endとなります。
データは必ずFile保存してからExcel openするフローにして消失を防ぎます。
とりあえずはこんな処理でしのごうと考えています。
皆様、いろいろご協力ありがとうございました。
悩みを出して大勢の方々にご意見をいただける場があるのはとても頼もしいと思っています。
これで一旦解決とさせていただきます。
今後ともよろしくお願いいたします。