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

Sub SaveFileToTempPath()
    Dim userId As String
    Dim tempFolderPath As String
    Dim sourceFilePath As String
    Dim destinationFilePath As String
    
    ' Step 1: 获取当前用户的唯一标识符
    userId = Environ("USERNAME") ' 可以根据需要选择其他环境变量
    
    ' Step 2: 创建临时文件夹
    tempFolderPath = Environ("TEMP") & "\" & userId
    MkDir tempFolderPath
    
    ' Step 3: 保存文件到临时文件夹
    sourceFilePath = "C:\Path\To\Source\File.ext" ' 替换为实际的源文件路径
    destinationFilePath = tempFolderPath & "\File.ext" ' 替换为实际的目标文件路径
    FileCopy sourceFilePath, destinationFilePath
    
    ' 可以在此处添加其他处理逻辑
    
    MsgBox "文件已保存到临时文件夹：" & destinationFilePath
End Sub