VBA調用Shell.Application打開我的電腦我的文檔迴收站等

當VBA本身沒有相應的功能時，我們可以通過調用Shell 來完成很多工作

Private Sub Command1_Click()

Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
MsgBox WshShell.SpecialFolders("MyDocuments") '我的文檔的地址
End Sub
Private Sub Command2_Click() '打開我的電腦
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.Explore "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" '直接地址打開我
End Sub
Private Sub Command3_Click()
Const MY_COMPUTER = &H11&
Dim objShell As Object, objFolder As Object
Set objShell = CreateObject("Shell.Application")
'objShell.Explore "::{645FF040-5081-101B-9F08-00AA002F954E}"
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolder = objFolder.ParentFolder '桌麵文件夾
Dim colItems As Object, objItem As Object
Set colItems = objFolder.Items
For Each objItem In colItems
If objItem.Name = "迴收站" Then
objShell.Explore objItem '打開迴收站
Debug.Print "Name: " & objItem.Name & vbTab & vbTab & "Path: " & objItem.Path
'你在立卽窗口看看地址，可以直接用地址打開迴收站,像上麵註釋掉的那句那樣
Exit Sub
End If
Next
End Sub

聯繫人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01

聯繫人：

王先生

Email：

18449932@qq.com

QQ：

18449932

微博：

officecn01