HSPTV!掲示板

HSPでエクセルを編集した後、保存をしたいのですが
いくら調べても保存方法が書いてません。

例えば、下記コードに追加で保存する方法はどうすればよいのでしょうか？

	newcom xlApp, "Excel.Application"
	xlApp("Visible") = 1 ; ウィンドウを表示
	xlApp("DisplayAlerts") = 0 ; 警告メッセージを表示させない
	xlBooks = xlApp("Workbooks") ; Workbooks コレクション取得
	xlBook = xlBooks("Add") ; ワークブックを追加
	xlSheet = xlBook("Worksheets","sheet1") ; Sheet取得

test1="テスト"
test2="テスト２"
test3="テスト３"

	xlRange = xlSheet("Range","A1")
	xlRange("Value") = test1
	xlRange = xlSheet("Range","A2")
	xlRange("Value") = test2
	xlRange = xlSheet("Range","A3")
	xlRange("Value") = test3

上を保存する方法です。よろしくお願いします。

最後の行に、

	;保存処理
	dialog "xlsx",17,"Excel ブック";保存ダイアログを表示する
	if stat!0{
		fname=refstr
		if getpath(fname,2)!=".xlsx":fname+=".xlsx";拡張子がなかったら追加
		xlBook -> "SaveAs" fname;保存
	}

を付けると、保存ができるようになります。

あと、エクセル、HSPウィンドウの閉じるボタンを押しても、エクセルのプロセスは終了しないので、
終了処理を、HSP側に実装します。

	;終了処理
	xlBooks->"Close";WorkBookオブジェクトを閉じる
	xlApp->"Quit";Applicationオブジェクトを閉じる

遅くなり申し訳ありません。(風邪で寝込んでました。)

ありがとうございました、解決しました！