[求助]如何通过一个工作簿的VBA对新生成的工作簿添加VBA代码？

bearhee

hiyou 发表于 2014-7-22 09:16
赋值部分,前面两个标红的错句给你示例,最后一个自已试试.
就是在引号部分断开,用 chr(34) & "内容" & chr( ...

朋友，谢谢你方法，但还有没有其它的方法啊，因为我定义的数组BJ = Array("3001", "3002", "3003", "3004", "3005", "3006", "3007", "3008", "3009", "3010", "3011")特别长，这里我省略了好多元素，实际上有好几十个元素，如果每个元素都用strproc = strproc & vbCrLf & Chr(34) & 3005 & Chr(34) & ","的话，那每个数组就得几十行，而且我不只一个数组，总共有4个数组，总共有200多元素...
不管怎样还是非常感谢你耐心详细的讲解，谢谢....!

hiyou

快捷的方法是有的,把你的VB模块代码做成一个文本文件,然后在VBA中打开这个文件读进去赋值给一个字符变量,就是你那个strProc什么的
这样做的好处是没那么烦琐转代码，缺点是普通的算法缺乏安全性，不过VBA本身就是脚本式，大部分同学都不在乎安全性就是。

另一个简单的方法是从工作表——比如sheet1.rang("a1")之类读出内容，你把代码写到那个单元格。
麻烦的地方一是工作表安全性（用户打开工作表会看到，你还得考虑怎么锁定或隐藏），另外呢在单元格打回车换行需设定一下，操作时得用ALT+ENTER之类，要么就粘贴上去

上传一个附件，两种方法都做了示范，里面有两个文件，除了XLS，还有一个TXT用来读取。

laynet

打开信任VBA的办法:

1. Sub test()
   
2. 
   
3.     Dim oWshell
   
4.     Set oWshell = CreateObject("WScript.Shell")
   
5.         
   
6.         oWshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office" & Application.Version & "\Excel\Security\AccessVBOM", 1, "REG_DWORD"
   
7.         oWshell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Office" & Application.Version & "\Excel\Security\AccessVBOM", 1, "REG_DWORD"
   
8. 
   
9. 
   
10. End Sub

复制代码

bearhee

hiyou 发表于 2014-7-22 11:31
快捷的方法是有的,把你的VB模块代码做成一个文本文件,然后在VBA中打开这个文件读进去赋值给一个字符变量,就 ...

朋友谢谢你的回复，我还想请教个问题，关于checkbox的。我录制了一段添加checkbox的宏，当我按下宏的快捷键时当前工作表中就会添加一个checkbox，但此checkbox并没有事件代码，每次还得手动为其添加我已编写好的事件代码。
如何改这个录制的宏当，当我按下宏的快捷键时，checkbox添加后自动带上我编写好的事件代码...?
以下就是我添加checkbox的宏代码。
    Set BeiJ = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=409.5, Top:=0, Width:=30, Height:=19.5)
    With BeiJ
        .Object.Value = True
        .Object.BackColor = &HFFFF&
        .Object.Caption = "BJ"
        '.Object.(Name) = "BJ"
    End With


我为其编写的事件代码如下：
Private Sub checkbox1_Click()
    Dim BJ, i&
    On Error Resume Next
    BJ = Array("3001", "3002", "3003", "3004", "3005", "3006", "3007", "3008", "3009", "3010", "3011", "3012", "3013", "3014", "3015", "3016", "3018", "3019", "3020", "3021", "6202", "6224", "6230", "6232", "6233", "6234", "6236", "6237", "6238", "6240", "6241", "6242", "6243", "6244", "6245")
    If CheckBox1.Object.Value = True Then
        For i = 1 To UBound(BJ)
            With ActiveSheet.PivotTables("PivotTable1").PivotFields("T")
                .PivotItems(BJ(i)).Visible = True
            End With
        Next i
    Else
        For i = 1 To UBound(BJ)
            With ActiveSheet.PivotTables("PivotTable1").PivotFields("T")
                .PivotItems(BJ(i)).Visible = False
            End With
        Next i
    End If
End Sub

兰江自由鱼

学习学习，不过有点深奥，慢慢体会了，多谢啊。