[已解决]保存在桌面代码

sdwffw

请教老师，如何修改以下“ThisWorkbook.Path ”代码，改为把文件保存在桌面上，而不是在同目录下？

With ActiveWorkbook
        .Close savechanges:=True, Filename:=(ThisWorkbook.Path & "\" & "(" & TextBox1 & "～" & TextBox2 & ")" & "观察记录考核统计表.xls")
    End With

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-17 09:49

对就直接把ThisWorkbook.Path & "\"换为 Environ("USERPROFILE") & "\桌面\"

跳转到最佳答案楼层

hwc2ycy

MsgBox Environ("USERPROFILE") & "\桌面\"
看看对不

hwc2ycy

对就直接把ThisWorkbook.Path & "\"换为 Environ("USERPROFILE") & "\桌面\"

sdwffw

谢谢老师。

loners462

hwc2ycy 发表于 2013-6-17 09:49
对就直接把ThisWorkbook.Path & "\"换为 Environ("USERPROFILE") & "\桌面\"

如果是win7下的话就会报错，怎么才能通用？

hwc2ycy

loners462 发表于 2014-10-10 17:27
如果是win7下的话就会报错，怎么才能通用？

把桌面换成desktop试试。