[讨论]CreateObject对象方法、属性探密(接龙)

BobPan

此贴为帮助朋友们更好的利用Excel编写高级功能而设！

请各位将自己知道的ActiveX对象方法、属性帖出来（指那些不能用“对名象浏览器”查看的方法、属性），让更多朋友编写功能更强的增益集，使Excel无所不能！！！

[此贴子已经被作者于2008-1-7 9:04:59编辑过]

BobPan

先帖一个强大的对象，能非常方便的完成系统功能！ --->Shell.Application
[下划线部分为参数]

Sub fu()

 

Set shlApp = CreateObject("Shell.Application")

shlApp.CascadeWindows

'   重叠窗口

shlApp.TileHorizontally

'   横向平铺窗口

shlApp.TileVertically

'   纵向平铺窗口

shlApp.ControlPanelItem ("sysdm.cpl")

'   打开控制面板

shlApp.EjectPC

'   纵向平铺窗口

shlApp.Explore ("D:\")

'   浏览文件夹

shlApp.Open ("D:\")

'   打开文件夹

shlApp.FileRun

'   打开运行窗口

shlApp.FindComputer

'   查找计算机

shlApp.FindFiles

'   查找文件

shlApp.Help

'   系统帮助

shlApp.MinimizeAll

'   最小化窗口

shlApp.UndoMinimizeALL

'   撤消最小化窗口

shlApp.RefreshMenu

'   更新菜单

shlApp.SetTime

'   设置日期、时间

shlApp.TrayProperties

'   设置任务栏属性

shlApp.ShutdownWindows

'   关机对话框

shlApp.Suspend

'   休眠

Set oWindows = shlApp.Windows()

'   返回shlAppWindows对象

Set fFolder = shlApp.NameSpace("D:\")

'   返回所打开的"D:\"的Folder对象

Set oFolder = shlApp.BrowseForFolder(0, "请选择文件夹", 0, "D:\")

'   选择文件夹对话框

'oFolder = shlApp.BrowseForFolder(Hwnd, sTitle, iOptions [, vRootFolder])

 

Set shlApp = Nothing

Set oWindows = Nothing

Set fFolder = Nothing

Set oFolder = Nothing

 

End Sub

cliffordzk

Excel中调用VBA选择目标文件夹！http://www.sina.com.cn 2008年04月12日 12:29  IT168.com
　　进行文件操作时，经常要用 VBA 选择目标文件夹，现提供实现代码：

　　1.FileDialog 属性

　　Sub Sample1()

　　With Application.FileDialog(msoFileDialogFolderPicker)

　　If .Show = True Then

　　MsgBox .SelectedItems(1)

　　End If

　　End With

　　End Sub

　　2.shell 方法

　　Sub Sample2()

　　Dim Shell， myPath

　　Set Shell = CreateObject("Shell.Application")

　　Set myPath = Shell.BrowseForFolder(&O0， "请选择文件夹"， &H1 + &H10， "G:")

　　If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path

　　Set Shell = Nothing

　　Set myPath = Nothing

　　End Sub

jymao

不错...顶一下..
createobject("adodb.connection"),
CreateObject("Scripting.FileSystemObject")....

小fisher

凡是能用createobject创建的对象，都可以在引用相对应的运行库（library）文件之后在对象浏览器中得到它的方法、属性、枚举和事件列表，楼主所说的Shell.Application对象在Shell32库中，在“工具－引用”下找到并选上“Micorsoft shell controls and automation”，之后在对象浏览器中就可以看到了，这样在创建新shell对象时可不用CreatOjbect而是用 Dim sh As New shell32.Shell，这样创建对象的方法叫前绑定，运行速度会比使用后绑定方法快，而且在编程时可在对象后加.可以出现智能感知列表，更易于开发。
常用的还有：
"InternetEplorer.Application" (Microsoft Internet Controls) 用于操作IE窗口
"VBscript.Regexp" (Microsoft VBScript Regular Expressions 5.5) 用于模糊验证、查找和替换字符串
"Scripting.FileSystemObject" (Microsoft Scripting Runtime) '用于操作文件、目录
"ADODB.Connection", "ADODB.Stream" (Microsoft ActiveX Data Objects 2.8 Library) '用于数据库连接、数据流操作
"microsoft.xmlhttp" (Microsoft XML, version 2.0) '通常用于从网上下载文件
"Wscript.Shell" (Windows Script Host Object Model) '可以用它操作注册表、管理进程、创建快捷方式，还有部分功能与Filesystemobject重合

[ 本帖最后由 小fisher 于 2009-2-27 10:30 编辑 ]

qbliu

恩不错，希望更多朋友能给出例子，学习中................

sunsoncheng

前两天还找,如何定位文件夹呢!
今天就有了

cflood

学习了，6楼能不能把这些对象的使用方法也贴出来啊。

lb_bn

这些对像每个都有很多使用技巧,看来要靠开发大项目来熟悉了.

cried

学习了，谢谢