安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

VBA调用Shell.Application打开我的电脑 我的文档 回收站等

2017-09-06 14:11:00
网络
转贴
558

VBA调用Shell.Application打开我的电脑 我的文档 回收站等

当VBA?#26087;?#27809;有相应的功能时,我们可以通过 调用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}" '直?#25317;?#22336;打开我
    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
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存占用:7.50MB
PHP 执行时间:0.16
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假