タイトル : 実行中のACCESSファイル群のパス取得方法 投稿日 : 2010/11/26(Fri) 19:37 投稿者 : camputer
今晩は,質問させていただきます.camputerと申します。 どうぞよろしくお願いいたします. 環境:Win7+VB.NET2008+Access2010 (Access2007以前でも結構でございます) 歴:プログラム歴10年程度、VB歴3年程度 でございます。 沢山のPDFファイルとアクセスファイルを開いて作業をする際、 ある時点で開いているそれらファイルを、一覧(パス)として 取っておきたい事が頻繁にございます。 アクセスとPDFをVB.NETから触った事がございませんでしたので、 解決できると信じ数日間、検索いたしておりましたが 全然出てまいりません。。 エクセルやパワーポイントの場合は、試しに Dim myApp As Object = Nothing Dim myPre As Object = Nothing Dim myPres As Object = Nothing myApp = GetObject(, "PowerPoint.Application") myPres = myApp.Presentations For Each myPre In myPres MsgBox(myPre.Path()) MRComObject(myPre) Next のような形にいたしましたらうまくパスが取れるのでございますが、 ACCESSだけ根本的にコーディングが異なるのか、 似たコードが見つかりません。 ACCESSのVBEのオブジェクトブラウザから「Path」と 検索するなどいたしまして、出てきたCurrentProject、 Forms、CurrentDb等で試行錯誤いたしましたがうまくいかず、 VBHhanatyan内を検索させていただきましても分かりません。。 Officeのメンバ構成はバージョンによって全然違いますが、 おそらくACCESS2007は近いと思われますし、その他の バージョンでも結構でございますので、 もし何かヒントなどございましたら是非ともアドバイスいただきたく どうぞよろしくお願いいたします。 |