VBA宏适配多设备：无提示保存至用户下载文件夹需求

你的问题出在代码里硬写了固定的用户名路径，换台电脑用户目录不一样自然跑不通。下面给你两种通用的解决方法，直接替换原来的路径部分就行：

方法1：用系统环境变量获取用户目录 #

通过Environ("USERPROFILE")可以拿到当前登录用户的主目录，再拼接上Downloads路径，就能得到通用的下载文件夹地址：

修改后的完整代码：

Sub UnLoad_UnPick()
    ' 设置Q列为货币格式
    Range("Q:Q").Style = "CURRENCY"
    
    ' 把O列剪切到A列前面，去掉冗余的Select操作
    Columns("O:O").Cut Destination:=Columns("A:A")
    
    ' 获取当前用户的下载文件夹路径
    Dim downloadPath As String
    downloadPath = Environ("USERPROFILE") & "\Downloads"
    
    Application.DisplayAlerts = False
    ' 直接用获取到的路径保存文件，不用ChDir（可以省略）
    ActiveWorkbook.SaveAs Filename:= _
        downloadPath & "\Transaction_Details.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

方法2：用WScript.Shell获取系统默认下载文件夹（更可靠） #

如果用户手动修改过下载文件夹的位置，方法1可能失效，这时可以用SpecialFolders来获取系统默认的下载路径：

替换方法1里的downloadPath赋值代码即可：

Dim shellObj As Object
Set shellObj = CreateObject("WScript.Shell")
Dim downloadPath As String
downloadPath = shellObj.SpecialFolders("Downloads")

另外顺便优化了代码里的Select操作——VBA里尽量避免用Select，直接对对象操作效率更高也更稳定。

内容的提问来源于stack exchange，提问作者Christian