タイトル : Re^8: 実行中のACCESSファイル群のパス取得方法 投稿日 : 2010/11/28(Sun) 02:46 投稿者 : camputer
魔界の仮面弁士様 どうもありがとうございます!!m(_ _)m ご回答をいただけるタイミングでは無いと思って外出しておりましたm(_ _)m お返事が遅くなり申し訳ございません。なんとPDFの方の謎までご解明なされたとの事で。。 >Name プロパティを持たないオブジェクトに対して o.Name を実行すると、 >MissingMemberException 例外が発生する事になります。 はい、私も午前中に何度もトライ中にエラー検出を確認いたしまして (意味不明でございましたが^^;)、If Err.Number = 〜 などと 途中までコーディングしどうするか悩んでおりました。 >ただ、取得できる期間が限られているのか、起動後しばらくすると >ROT から削除されました。 : >> 何故かPDFはGetObjectFromROT(dispName)が取れませんが >取得しようとした時点で、ROT から削除されてしまっていたのかも。 はい、ご推察なさられた通りのようでございます。 取得時間のご指摘をいただいてから、私の今の環境Vista + AdobeReader8 でも 確認いたしましたところ、最初だけ"IAcroAXDoc"が出てまいりました。 >この "IAcroAXDoc" オブジェクトの型は、 > Adobe Acrobat 8.0 Type Library > C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.dll : : >また、このオブジェクトは 以下の 3 つのメンバーを持っていました。 > Event Stop() > Function Application() As Object > Function Document() As Object : : >対象の InternetExplorer オブジェクトの >Document プロパティから、"AcroPDF" 型のオブジェクトを得ることができました。 >こちらの型情報は > Adobe Acrobat 7.0 Browser Control Type Library 1.0 > C:\Program Files\Common Files\Adobe\Acrobat\ActiveX\AcroPDF.dll >のようです。 >この場合 src プロパティで文書ファイルの場所を得られました。 どうもありがとうございます! 私が理解するよりどんどん先に未知の問題発見、しかも解決まで。。。^^; ご自身が触れた事のない部分を見つけた瞬間に、御検証に 取り掛かられるんですねー(・_・) 新しいバージョンのVBや Officeが出た際にも、そのような感じなのでございましょうか。 (これじゃ一生経っても追いつける気がしないです -_-) ) >といっても、この場合には AcroPDF の src プロパティを使うまでもなく、 >InternetExplorer オブジェクトの locationURL プロパティで >同じ内容が取得できますけれどね。 全然存じませんでした^^; どうもありがとうございます。 私が作業する分にはIEは用いておりませんが、どうせそのうちIEを触るソフトも 作りたくなるでしょうし、今回色々触ってみます。 では今からまたVBで遊んでまいります^^ 納得のいくところまで 完成いたしましたところで、再度ご報告させていただきます。 >適宜修正してみてください。 (`▽´)ゞ I,Sir!! ============(追記になります)================================== 何度も何度も追記いたしまして申し訳ございません。 この度は誠にありがとうございました。m(_ _)m 検索に検索を重ねまして、PDFのパスを取る方法を調べ続けましたが 結局出てこず、こちらはあきらめようと思います。。 しかしご質問させていただいたACCESSについては完璧で、他のOfficeソフトに ついても、ほとんど取る事ができるようになりました。 (魔界の仮面弁士様からいただいたROTのコードが メインで機能するソフトとなりました^^) ACCESSのみの質問にも関わらず、すごい物をいただきまして どうもありがとうございました。 ただ、いただいたコードの素晴らしさに対して、質問タイトルが かなり勿体無い感じになってしまった感がございますが。。。 今回いお教えただいたROTは今後自分がコーディングする上で かなり宝物になりそうでございます^^ お陰で、もう少しで今回の面白いソフトが完成いたします。 この度はご親切にアドバイスいただきまして誠にありがとうございました!!! m(_ _)m |