问题描述
我在 MS ACCESS 中遇到以下问题:
使用 VBA,PDF 文件存储在 OneDrive 文件夹中并与 Sharepoint 同步。众所周知,OneDrive 在所有计算机上都以相同的方式声明为另一种驱动器。
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 中获取的值。