Question

以下代码可在用户ID以“ PA”开头的任何员工系统上创建一个临时文件（然后在J2中，运行该代码的用户将数字输入其用户ID-示例ID为PA11111）可以使用该文件。但是，其他位置的员工没有以“ PA”开头的用户ID，而是其他字符。...如何使此代码更具动态性，以便我们的任何员工都可以运行该文件？

sTempPath = "C:\Users\PA" & Worksheets("Print_Results_Auto").Range("J2") & "\AppData\Local\Temp\"

Answer 1

您可以使用以下命令在vba中获取Windows登录信息：

cUser = Environ$("Username")

然后我会做：

sTempPath = "C:\Users\" & cUser  & "\AppData\Local\Temp\"

Enviorn $（“ Username”）应该获取Windows登录用户，并且应该是文件路径中的用户ID。

Answer 2

    body {
  margin: 0;
    font-family: Arial, Helvetica, sans-serif;
}

.header {
 text-align: center;
    background: white;
}

.header p {
    font-size: 22px;
}

.header h1 {
 font-size: 50px;
    color: lightseagreen;
}

#nav_menu {
    clear: left;
}
#nav_menu ul {
    list-style: none;
    position: relative;
}
#nav_menu ul li {
    float: left;
    width: 15%;                  
}
#nav_menu ul ul {
    display: none;
    position: absolute;
    top: 100%;
}
#nav_menu ul ul li ul {
    display: none;
    position: absolute;
    left: -25%;
    top:0;
}
#nav_menu ul ul li {
    float: none;
}


#nav_menu ul li:hover > ul {
    display: block;
}
#nav_menu > ul::after {
    clear: both;
    display: block;
}
#nav_menu ul {
    margin: 0;
    padding: 0;
}
#nav_menu ul li:hover ul {
    width: 100%;
}
#nav_menu ul li a {
    text-align: center;
    display: block;
    padding: .7em 0;
    text-decoration: none;
    background-color: rgba(0, 0, 0, 0.67);
    color:white;
    box-shadow: 0 0 0 rgba(0, 0, 0, 0.1), inset 0 0 1px rgba(255, 255, 255, 0.6);
}
#nav_menu ul li a.current {
    color: #2a0000;
    text-shadow: 1px black;
}

#nav_menu ul li a#first_navbar {
    border-left: 0 solid red;
}


#nav_menu ul li a:hover, #nav_menu ul li a:focus {
    color: white;
    border: 1px solid white;
}

这是到本地临时文件的链接。无需在工作表中输入任何用户ID。

使用VBA将文件保存到临时文件路径时如何解决多个用户ID

2 个答案: