备忘录

来源：互联网发布：前端程序员是干什么的编辑：程序博客网时间：2024/04/24 04:42

更新

可能总结得不一定全,但基本要用到的都可以找到,另对VBE的代码操作可参考wwwbjwww的 ADO+ listview实现工作表数据逐步提示性输入 http://club.excelhome.net/thread-652931-1-1.html

一、增加模块

1．增加一个模块，命名为“我的模块”

ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块"

系统常量vbext_ct_StdModule=1

2．增加一个类模块，命名为“我的类”

ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类"

vbext_ct_ClassModule=2

3．增加一个窗体，命名为“我的窗体”

ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体"

vbext_ct_MSForm=3

二、删除模块

1．删除“模块1”

ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("模块1")

2．删除窗体“UserForm1”

ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1")

3．删除类模块“类1”

ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1")

4.删除所有的窗体

Sub RmvForms()

Dim vbCmp As VBComponent

For Each vbCmp In ThisWorkbook.VBProject.VBComponents

If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp

End if

Next vbCmp

End Sub

LoadUrlLoadUrl10SetUserSet_firefox10SetUserClick_R20SetUserClick_R30SetUserClick_R40SetUserClick_R50SetUserEnter60SetUserClick_R70SetUserClick_R80SetUserDelete90SetUserPaste_useragent100SetUserEnter110SetUserClick_R120SwitchIPKeep_Run12SwitchIPDisConnect22SwitchIPConnect32

0 0