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

ch_liu2000

支持版主，收藏此帖

wangxinlala

用论坛提供的方法对引用进行操作，比进行如添加引用，以及清除损坏的引用，都不成功，还请各位看看什么原因，代码如下：

Sub 删除损坏引用()
Dim i As Integer

'----添加新引用
ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\MSCOMCTL.OCX"

'----删除损坏引用
For i = 1 To ThisWorkbook.VBProject.References.COUNT
     With ThisWorkbook.VBProject.References(i)
            If .IsBroken Then
                ThisWorkbook.VBProject.References.Remove (ThisWorkbook.VBProject.References(i))
            End If
     End With
Next
End Sub

withnoproof

请教一下，我用这个方法创建一个名为C13_16_frmCreating的窗体，再用这个方法删掉，但我再用这个方法建一个名的C13_16_frmCreating的窗体时就会跳错，执行阶段错误75

Sub CreatingFroms()
    Dim objMyForm As VBComponent
    Dim objMyTextBox As Control
    Dim objMyButton As Control
    Dim i As Integer
'    On Error Resume Next
    For Each objMyForm In ThisWorkbook.VBProject.VBComponents
        If objMyForm.Name = "C13_16_frmCreating" Then
           With ThisWorkbook.VBProject.VBComponents
               .Remove .Item(objMyForm.Name)
           End With
        End If
    Next
    Set objMyForm = Nothing
    DoEvents
    Set objMyForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
    With objMyForm
        .Properties("Name") = "C13_16_frmCreating"
        .Properties("Caption") = "演示窗体"
        .Properties("Height") = "180"
        .Properties("Width") = "240"

F:\form.png

wuxianyu86

今天才看到，这么好的东西，看来学习的东西好多呀。谢谢楼主的分享

zxzxa111

[em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23]

一个字：棒

两个字：很棒

三个字：非常棒

四个字：棒上加棒

五个字：没办法形容

myhyday

感谢，未来可能需要，先收藏！

jhegzwjb2016

qee用 发表于 2006-10-2 21:00
五、引用项目1．增加引用  ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\asc ...

收藏学习，非常感谢你的无私分享！！！！

zmm101

1. Private Sub CommandButton1_Click()
   
2. Dim cbms As OLEObject
   
3. Dim ShtCodeName As String
   
4. ShtCodeName = Sheet2.CodeName
   
5. 
   
6.                 Set cbms = Sheet2.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
   
7.                     DisplayAsIcon:=False, Left:=0.75, Top:=298.5, Width:=108)
   
8.             '     ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
   
9.             '        DisplayAsIcon:=False, Left:=1277.25, Top:=146.25, Width:=108, Height _
   
10.             '        :=18.75).Select
    
11.                 With cbms
    
12.                    ' .Object.Caption = Mid(.Name, 9)
    
13.                     .Height = 22.5
    
14.                     '.Width = .TopLeftCell.Width
    
15.                     .Width = 100
    
16.                     
    
17.                     .Object.ForeColor = RGB(255, 255, 255)
    
18.                     .Enabled = True
    
19.                     .Object.BackColor = RGB(2, 114, 192)
    
20.                     .Top = 100.5 + (Mid(.Name, 9) - 1) * .Height
    
21.                     .Left = 1000
    
22.                     .Object.Font.Name = "微软雅黑"
    
23.                     .Object.Font.Size = 11
    
24.                     .Object.Font.Bold = True
    
25.                 End With
    
26. 
    
27.      
    
28.      With ThisWorkbook.VBProject.VBComponents.Item(ShtCodeName).CodeModule
    
29.         .InsertLines 1, "Private Sub " & cbms.Name & "_Click()"
    
30.         .InsertLines 2, "msgbox ""生成事件成功"""
    
31.         .InsertLines 3, "'这是一个注释示例"
    
32.         .InsertLines 4, "End Sub"
    
33.     End With
    
34. 
    
35. ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "模块6"
    
36. End Sub

复制代码

你好，我这样添加模块 ，怎么提示我 add无法作用于vbccomponents,这句哪里错了吗

renahu

如何查找特定代码并进行替换？

timemore

非常好，谢谢！