如何使用 VBA 在 MS ACCESS 中构建可变文件路径作为链接或路径

如何解决如何使用 VBA 在 MS ACCESS 中构建可变文件路径作为链接或路径

我在 MS ACCESS 中遇到以下问题：

使用 VBA，PDF 文件存储在 OneDrive 文件夹中并与 Sharepoint 同步。众所周知，OneDrive 在所有计算机上都以相同的方式声明为另一种驱动器。

保存后文件位于computer01文件夹中：

C:\Users\User01\OneDrive - AllFolders\SharedFolder\AllDocs\Doc01.pdf =>( \USER01 )

现在也连接到该文件夹​​的 computer02 上的 user02 想要通过 VBA 打开文件。共享表字段中文件的路径相应为：

C:\Users\User01\OneDrive - AllFolders\SharedFolder\AllDocs\Doc01.pdf

当然User02不能通过VBA打开文件，因为路径应该是：

C:\Users\User02\OneDrive - AllFolders\SharedFolder\AllDocs\Doc01.pdf =>( \USER02 )

例如我尝试使用这样的路径来保存文件（这不是正确的语法！）：

(Environ("USERPROFILE")) & "\OneDrive - AllFolders\SharedFolder\AllDocs\Doc01.pdf

但是 (Environ("USERPROFILE")) 作为 table.field.value 当然被理解为字符串而不是变量！

这个问题怎么解决？谢谢！

我的代码：

Option Compare Database
Option Explicit

Public OneDriveDirectory As String

Public Function SetPathToOneDrive() As String
    
SetPathToOneDrive = (Environ("USERPROFILE")) & "\OneDrive - AllFolders\SharedFolder\AllDocs\"

End Function

Sub SaveDoc()

Dim xSource As String,xDestination As String,xFilename As String    
Dim FSO As Object
Dim db As DAO.Database
Dim rs As DAO.Recordset

OneDriveDirectory = SetPathToOneDrive

xFilename = "Doc01.pdf"
xSource = (Environ("USERPROFILE")) & "\" & xFilename
xDestination = OneDriveDirectory & xFilename

Set db = CurrentDb
Set rs = db.OpenRecordset("tblDocLinks",dbOpenDynaset)

Set FSO = VBA.CreateObject("Scripting.FileSystemObject")

Call FSO.copyFile(xSource,xDestination)

   With rs
     .AddNew
     .Fields("fldDocPath") = xDestination
     .Update
   End With

rs.close
db.close
    
End Sub

解决方法

与

SetPathToOneDrive = Environ$("%UserProfile%") & "\OneDrive - All Folders\SharedFolder\AllDocs\"

你应该得到正确的路径。

您确定路径正确吗？默认值类似于 C:\Users\username\OneDrive\...

根据环境，在数据库中存储绝对文件路径可能不是一个好主意。我倾向于只保存文件名并在 VBA 中一起构建路径，通常使用从配置表或 -file 中获取的值。