VBProject：代码操作代码之常用语句

№▁▃风筝﹋ · 发表于 2016-11-27 22:13

qee用发表于 2006-10-2 20:58
(3)显示“模块1”中第1行起的3行代码内容：Sub ShowCodes()  Dim s$  s = ThisWorkbook.VBProjec ...

Sub 历遍工程中的所有过程()
Dim Mname As String
Dim SubName As String
Dim Linenum As Long
For i = 1 To ThisWorkbook.VBProject.VBComponents.Count ' (ModulName)
Mname = ThisWorkbook.VBProject.VBComponents(i).Name
Debug.Print Mname
With ThisWorkbook.VBProject.VBComponents(Mname).CodeModule
Linenum = .CountOfDeclarationLines + 1
Do Until Linenum >= .CountOfLines
SubName = .ProcOfLine(Linenum, vbext_pk_Proc)
Debug.Print " "; SubName
Linenum = .ProcStartLine(SubName, 0) + _
.ProcCountLines(SubName, 0) + 1
Loop 'ProcKind
End With
Debug.Print
Next
End Sub

复制代码

740688321 · 发表于 2017-1-2 16:01

还是太复杂了！

sunny_8848 · 发表于 2017-2-3 18:07

多次尝试了，选择对于vb项目的信任无法成功

sunny_8848 · 发表于 2017-2-3 23:06

五、引用项目
1．增加引用
ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\asctrls.ocx"
2．取消引用
ThisWorkbook.VBProject.References.Remove ThisWorkbook.VBProject.References("ASControls")
这里ASControls是引用的名字，即后面的rf.Name。
增加引用和取消引用的代码只能在vbe窗口运行才有效，在工作表用按钮运行无效，请问是怎么回事？

weng21509 · 发表于 2017-4-22 18:23

加模块和窗体的知识，受教了。

ks331 · 发表于 2018-5-4 20:47

认真学习

咸味 · 发表于 2018-6-29 11:01

留下脚步学习

wwz851025 · 发表于 2018-8-30 16:07

学习学习，谢谢

309371594 · 发表于 2018-9-16 15:59

[em23][em23][em23]，献花，收藏本文

2424882992 · 发表于 2019-4-19 14:15

666楼主，内容太多先收藏。

		自动登录	找回密码
密码			免费注册