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


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0305
OBASANaplselについて3解決


OBASAN

リンク

2009/3/5(Thu) 02:08:32|NO.23731

久しぶりに投稿致します。

開く時にパスワード(例えば1234)が必要なExcelデータを、HSPプログラムから
パスワードを自動で入力して開く方法はありますか?

私が今考えている方法としては以下のように記述したのちキー送信をする、なの
ですが・・・

exec "test.xls"
aplsel "パスワード",0

としても、「パスワード」と書かれたウインドウを捕捉できません。捕捉さえすれば
後はaplkeyを使ったキー送信とかでいけると思っています。どなたかご教授お願い致
します。



この記事に返信する


SYAM

リンク

2009/3/5(Thu) 10:37:00|NO.23732

理由はわかりませんが、exec命令のモード 16 だとまさに目的の「パスワード」ウインドウが閉じるまでブロックしてしまうようですね。
ためしに exec 命令の直後に dialog 命令か何かを入れてみればわかると思いますが、パスワードウインドウを閉じるまでexec命令が終了しません。

モード 0 で EXCEL.EXE を直接実行するとうまくいきましたし、パスワードウインドウを捕獲することまでは確認できました。
些か面倒ですが、.xls ファイルに関連付けられたアプリケーションのパスをレジストリから取得するなどして、exec命令をモード 0 で実行しないといけないようです。



OBASAN

リンク

2009/3/5(Thu) 20:23:16|NO.23739

SYAMさん、ご返答ありがとうございます。

>>些か面倒ですが、.xls ファイルに関連付けられたアプリケーションのパスを
レジストリから取得するなどして、exec命令をモード 0 で実行しないといけないようです。

→ちょっとこの部分がわかりません。どのように取得するのでしょうか?

exec命令を使わないで下記のようにしてもやはりaplsel等での捕捉が出来ません。


#include "hspext.as" ex_file="Book1.xls" ex_full=dir_cur+"\\"+ex_file newcom xlApp,"Excel.Application" xlApp("Visible")=0 xlApp("DisplayAlerts")=0 xlBooks=xlApp("Workbooks") xlBooks->"Open" ex_full xlBook = xlBooks("Item",ex_file) stop

何度もすみませんがご教授よろしくお願い致します。



OBASAN

リンク

2009/3/9(Mon) 10:35:00|NO.23773

もう少し考えてみます。



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