代码之家 › 专栏 › 技术社区 › franciscofcosta

用用户名替换VBA中的文件路径

excel vba

franciscofcosta · 技术社区 · 7 年前

这是我想要改变的道路:

C:\Users\User1\Documents\The Market in\DATA FOR REPORTS.xlsx

路径上唯一的区别是用户名:User1、user2等。

如何编写VBA代码,使其用打开它的Windows用户名替换文件路径中的用户名?

Private Sub Workbook_Open()

Application.Visible = False
WelcomeForm.Show
Workbooks.Open ("C:\Users\User1\Documents\The Market in\DATA FOR REPORTS.xlsx")

End Sub

这是我使用ENVIRON所做的:

Private Sub Workbook_Open()

Dim username As String

username = Environ("username")

Application.Visible = False
WelcomeForm.Show
Workbooks.Open ("C:\Users\&username&\Documents\The Market in\DATA FOR REPORTS.xlsx")

End Sub

非常感谢你

2 回复 | 直到 7 年前

Brian M Stafford 7 年前

尝试以下操作:

Private Sub Workbook_Open()
   Application.Visible = False
   WelcomeForm.Show
   Workbooks.Open ("C:\Users\" & Environ("UserName") & "\Documents\The Market in\DATA FOR REPORTS.xlsx")
End Sub

Darren Bartrup-Cook 7 年前

Environ("userprofile") 将返回路径(&P);用户名。
C:\Users\darren.bartrup-cook

另一种方法是:
CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
C:\Users\darren.bartrup-cook\Documents

你可以这样使用它:

Private Sub Workbook_Open()

    Dim wrkBK As Workbook
    Dim DocFldr As String

    DocFldr = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

    Set wrkBK = Workbooks.Open(DocFldr & "\The Market in\DATA FOR REPORTS.xlsx")

    MsgBox wrkBK.Name & " is open", vbOKOnly + vbInformation

End Sub

推荐文章

SoftTimur · Excel公式,用于删除范围底部的空行

3 月前

A B · C#Excel自动调整列避免长文本时出错

4 月前

Seldon · Office脚本:尝试将切片器添加到透视表

4 月前

Kram Kramer · 通过vba自动调整文本大小以适应形状

4 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

4 月前

Eric · 我有邮政编码替换问题Excel VBA

4 月前

jkp · 特殊字符复选标记

4 月前

user29030156 · 需要根据表1中的标准自动填充表2

4 月前

Valarenti · 将32位xll Excel加载项转换为64位:LNK1561错误

4 月前

Iron Man · 代码插入和复制到错误的工作表

4 月前