可否幫忙修改此程式 if ~ else - (取得環境變數)

[jchou]

我希望此 xls. 均能在不同桌面上儲存執行 (指定 甲電腦 aaa\桌面 及 乙電腦 bbb \桌面) 請高手們指導

If Dir("C:\Documents and Settings\aaa\桌面") = "" Then
ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\aaa\桌面\1.XLS"
End If
Else
ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\bbb\桌面\1.XLS"
End If
End sub

[wang]

不太了解您的所需.
不過
If Dir("C:\Documents and Settings\aaa\桌面") = "" Then
ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\aaa\桌面\1.XLS"
End If　'這行須刪除
Else
ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\bbb\桌面\1.XLS"
End If
End sub
就
If...Then
...
Else
...
End If　而言

[leonchou]

以下利用 Environ 函數取得個人資料夾的環境變數，
所以到任一部電腦均適用 (但不適用Win9x)

myPath = Environ("USERPROFILE")
ActiveWorkbook.SaveCopyAs myPath & "\桌面\1.XLS"

[yem]

還有這個方法哦!

Set fsw = CreateObject("WScript.Shell")
Path = fsw.SpecialFolders("AllUsersDesktop")
ThisWorkbook.SaveCopyAs Path & "\" & "1.xls"

[jchou]

謝謝 wang　 leonchou　 yem　 指導

若是演變成下面程式應如何修改
 (限定只能在　甲電腦 aaa\桌面 及 乙電腦 bbb \桌面 執行而已 第3台不行)

If Worksheets(1).Range("d5").Cells <> 3 Then
MsgBox "取消 ?", vbInformation
Exit sub
If Dir("C:\Documents and Settings\aaa\桌面") = "" Then
ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\aaa\桌面\1.XLS"
Else
ActiveWorkbook.SaveCopyAs "C:\Documents and Settings\bbb\桌面\1.XLS"
End If
End sub

[leonchou]

如何得知現有的環境變數有哪些?
執行 cmd 進入命令提示字元 > 輸入 set > 按Enter
列出來的環境變數就可以用 Environ 取得，
請舉一反三。

'取得PC名稱, Login User名稱
PCName = Environ("COMPUTERNAME")
PCUser = Environ("USERNAME")
'判斷就自己寫了
If PCName <> "xxx" ...... Then Exit Sub
If PCUser <> "xxx" ...... Then Exit Sub
myPath = Environ("USERPROFILE")
ActiveWorkbook.SaveCopyAs myPath & "\桌面\1.XLS"

另參考: 限制特定PC使用 (API)
http://www.officefans.net/cdb/viewthread.php?tid=411