如何得到當前桌面路徑

謝謝plxmm,

不過可以用?????嗎? 因為會在不同的機器上運行.每個人的系統都不一樣.而且也不一定在C盤啊....

我是想用VBA自己獲得當前用戶的桌面路徑, 這樣的話才可以在不同的機器上都正確運行啊。

如果用固定的　"C:\Documents and Settings\?????\桌面" ，　那么如果操作系統裝在D盤或其它的盤,那就不對了啊...

用这段代码，可能对你的问题解决有点启发啊。

Sub Check_SystemInfo() Dim x As Integer Dim Env As String x = 1 Env = Environ(x) Do Until Env = "" Env = Environ(x) Cells(x, 1) = Env x = x + 1 Loop MsgBox Environ("SYSTEMROOT") End Sub

' Set reference to Windows Script Host Object Model

Dim WSHShell As IWshRuntimeLibrary.IWshShell_Class

Set WSHShell = New IWshRuntimeLibrary.IWshShell_Class

strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")

Reference: Excel 建立一個桌面上捷徑

http://club.excelhome.net/viewthread.php?tid=10071

' Set reference to Windows Script Host Object Model

Dim WSHShell As IWshRuntimeLibrary.IWshShell_Class

Set WSHShell = New IWshRuntimeLibrary.IWshShell_Class

strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")

好东东啊。谢谢。

试试如下代码：

Option Explicit

Type SHITEMID cb As Long abID() As Byte End Type Type ITEMIDLIST mkid As SHITEMID End Type

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _ (ByVal pIdl As Long, ByVal pszPath As String) As Long Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _ (ByVal hwndOwner As Long, ByVal nFolder As Long, _ pIdl As ITEMIDLIST) As Long

Private Const NOERROR = 0

Private Sub test()

Dim wIdx As Integer, nFolder As Long Dim sPath As String * 260 Dim IDL As ITEMIDLIST Dim labFolderPath As String If SHGetSpecialFolderLocation(0, nFolder, IDL) = NOERROR Then If SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath) Then labFolderPath = Left$(sPath, InStr(sPath, vbNullChar) - 1) MsgBox "桌面路径:" & labFolderPath End If End If End Sub