0

如何通过在 excel-vba 中提供数据库（.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 回答