0

excel-vbaでdatabase（.mdb）名を指定して、.mdbファイルが存在するパス全体を取得するにはどうすればよいですか。

システムにアプリケーションをインストールすると、データベース（.mdbファイル）がインストールパスに作成されます。そのデータベース（.mdbファイル）からいくつかのデータを取得し、Excelファイルで使用したいと思います。

このパスは、システムによって異なります。Excel-vbaコードでデータベース（.mdbファイル）を自動的に検索し、データベースからデータを取得する必要があります。

4

2 に答える 2

1

ActiveWorkbook.Path現在の Excel ワークシートがある場所です。データベース名が変更されないと仮定すると、この値を使用し& "MyDatabase.mdb"てデータベースを見つける必要があります

于 2012-09-04T15:11:50.360 に答える
0

最初に.mdbファイルを見つける必要があるという質問を理解しているので、別のアプローチを提案してもいいですか-名前だけが提供されています。

その場合は、次の記事でヘルプを見つけることができます - いくつかの作業コードを含みます ;)

マイクロソフト KB185476

フルパスの部分については、次のようになります。

Sub ShowFileAccessInfo(filespec)
    Dim fs, d, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(f.Path) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified
    MsgBox s, 0, "File Access Info"
End Sub

*Excel ヘルプ (ファイル オブジェクト) から

于 2012-09-04T15:45:21.007 に答える