0

首先，我是 vba 编码的新手。我在 Access 2013 - VBA 中编写了一个表单，并创建了一个在单击按钮时生成 PDF/txt 文档的函数，事情是老板希望它保存在%userprofile%路径上的共享文件夹中 - 就像C:\Users\<username>\folder我们有很多用户。

如何添加到我正在使用的 SaveAs2 的路径而无需对每个用户进行硬编码？

代码就像：

file.SaveAs2 = ("C:\Users\username\folder\filename.pdf")

我尝试定义如下代码：

Dim filepath as string 
filepath = environ("USERPROFILE")

接着：

file.saveas2 = (filepath &"\folder\filename.pdf")

但仍然没有成功。

谢谢你的帮助

4

1 回答 1

4

听起来您正在尝试返回登录用户的用户名？

添加一个模块，插入以下代码：

Option Compare Database

Declare Function wu_GetUserName Lib "advapi32" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Function NetworkUser() As String

Dim lngStringLength As Long
Dim sString As String * 255

lngStringLength = Len(sString)
sString = String$(lngStringLength, 0)

If wu_GetUserName(sString, lngStringLength) Then
NetworkUser = Left$(sString, InStr(sString, Chr(0)) - 1)

Else
NetworkUser = "Unknown"
End If

End Function

然后，如果您想返回网络用户，请尝试以下操作：

filepath =  = "C:\Users\" & networkuser() & "\folder\filename.pdf"

如果您想返回“我的文档”文件夹，您可以使用类似于您在上面尝试的内容。这包含在一个函数中。

Public Function MyDocsPath() As String

     MyDocsPath = Environ$("USERPROFILE") & "\My Documents"

End Function

然后调用它。

filepath = MyDocsPath & \filename.pdf")
于 2017-02-08T23:14:30.730 回答