office交流網(wǎng)--QQ交流群號及微信交流群

Access培訓群：792054000         Excel免費交流群群：686050929          Outlook交流群：221378704    

Word交流群：218156588             PPT交流群：324131555

微信交流群（請用微信掃碼)

        

VBA調(diào)用Shell.Application打開我的電腦 我的文檔 回收站等

2017-09-06 14:11:00
網(wǎng)絡(luò)
轉(zhuǎn)貼
7271

VBA調(diào)用Shell.Application打開我的電腦 我的文檔 回收站等

當VBA本身沒有相應(yīng)的功能時，我們可以通過 調(diào)用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
分享
文章分類
聯(lián)系我們
聯(lián)系人： 王先生
Email： 18449932@qq.com
QQ： 18449932
微博： officecn01
移動訪問