HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2016
0413
名前(急ぎ)エクセルについて2解決


名前

リンク

2016/4/13(Wed) 13:24:31|NO.75215

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="テスト2" test3="テスト3" xlRange = xlSheet("Range","A1") xlRange("Value") = test1 xlRange = xlSheet("Range","A2") xlRange("Value") = test2 xlRange = xlSheet("Range","A3") xlRange("Value") = test3

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



この記事に返信する


InoueSoftwear

リンク

2016/4/14(Thu) 19:50:05|NO.75225

最後の行に、

;保存処理 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オブジェクトを閉じる



名前

リンク

2016/5/19(Thu) 20:05:29|NO.75526

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

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



ONION software Copyright 1997-2021(c) All rights reserved.