vba中的类模块能不能替代thisworkbook里的事件？比如工作簿的open事件

矢口不言

各位大佬！如题，vba中的类模块能不能替代thisworkbook里的事件？比如工作簿的open事件。

简七

Thisworkbook本来就是一个类模块

简七

类模块声明 public withevents thisBook as workbook
并编写对应事件Sub
声明  变量名= new 你创建的类模块名称
在加载项onLoad事件中 set 变量名.thisBook=Thisworkbook

简七

简七 发表于 2021-11-25 18:27
类模块声明 public withevents thisBook as workbook
并编写对应事件Sub
声明  变量名= new 你创建的类模 ...

这里应该是ActiveWorkBook
还要考虑工作簿切换
可以通过Application.workbookActivate事件来控制

简七

刚在另一个贴看到你说的做成加载项了

矢口不言

简七 发表于 2021-11-25 18:27
类模块声明 public withevents thisBook as workbook
并编写对应事件Sub
声明  变量名= new 你创建的类模 ...

不做加载项的话能实现吗？我的主要目的是通过代码把已导出的标准模块或窗体文件import到指定文件夹下的N个宏工作簿，而文档工程thisworkbook是用的删除重写的方式处理的，但实际测试中因为带有workbook.open事件，所以会报错，所以也想改成import的方式，但类模块不知道怎么正常触发事件

简七

矢口不言 发表于 2021-11-26 10:36
不做加载项的话能实现吗？我的主要目的是通过代码把已导出的标准模块或窗体文件import到指定文件夹下的N ...

1. <blockquote>Sub a()
   
2. Dim wb As Object
   
3. Dim fname
   
4. Dim sc As Object
   
5. Set sc = CreateObject("scripting.dictionary")
   
6. fname = Dir("d:\桌面\*.*")
   
7. 
   
8. While fname <> ""
   
9. If fname Like "*.cls" Or fname Like "*.bas" Or fname Like "*.frm" Then
   
10. sc("d:\桌面" & fname) = ""
    
11. End If
    
12. fname = Dir
    
13. Wend
    
14. 
    
15. fname = Dir("d:\桌面\新建文件夹\*.xlsm")
    
16. Dim importFile
    
17. Application.ScreenUpdating = False
    
18. Application.DisplayAlerts = False
    
19. While fname <> ""
    
20. Set wb = GetObject("d:\桌面\新建文件夹" & fname)
    
21. For Each importFile In sc.keys
    
22. wb.VBProject.VBComponents.Import (importFile)
    
23. Next
    
24. Windows(fname).Visible = True
    
25. wb.Save
    
26. 
    
27. wb.Close
    
28. fname = Dir
    
29. Wend
    
30. Application.DisplayAlerts = True
    
31. Application.ScreenUpdating = True
    
32. 
    
33. End Sub

复制代码

文件目录可以用 Application.FileDialog(msoFileDialogFolderPicker) 获取

矢口不言

矢口不言 发表于 2021-11-26 10:36
不做加载项的话能实现吗？我的主要目的是通过代码把已导出的标准模块或窗体文件import到指定文件夹下的N ...

突发奇想通过这个问题换了个思考方式解决了问题，类模块无法触发事件，也就是说可以当做普通文档存放在代码中，然后复制类代码写入到目标工作簿的文档工程中，只不过其中需要修改一下名称

opel-wong

当然可以！

简七

矢口不言 发表于 2021-11-26 11:26
突发奇想通过这个问题换了个思考方式解决了问题，类模块无法触发事件，也就是说可以当做普通文档存放在代 ...

1. Sub a()
   
2. Dim wb As Object
   
3. Dim fname
   
4. Dim sc As Object
   
5. Dim ado As Object
   
6. 
   
7. Set sc = CreateObject("scripting.dictionary")
   
8. Set ado = CreateObject("adodb.stream")
   
9. With ado
   
10.      .Charset = "GB2312"
    
11.      .Type = 2
    
12. End With
    
13. 
    
14. fname = Dir("d:\桌面\*.*")
    
15. While fname <> ""
    
16.     If fname Like "*.cls" Or fname Like "*.bas" Or fname Like "*.frm" Then
    
17.         sc("d:\桌面" & fname) = ""
    
18.     End If
    
19. fname = Dir
    
20. Wend
    
21. fname = Dir("d:\桌面\新建文件夹\*.xlsm")
    
22. Dim importFile
    
23. Dim VBcomModule As Object
    
24. Dim thisCode As String
    
25. Application.ScreenUpdating = False
    
26. Application.DisplayAlerts = False
    
27. While fname <> ""
    
28.     Set wb = GetObject("d:\桌面\新建文件夹" & fname)
    
29.     For Each importFile In sc.keys
    
30.         wb.VBProject.VBComponents.Import (importFile)
    
31.         If importFile Like "*ThisWorkbook*" Then
    
32. 
    
33.             With ado
    
34.                 .Open
    
35.                 .LoadFromFile importFile
    
36.                 thisCode = .ReadText
    
37.                 .Close
    
38.             End With
    
39.             Set VBcomModule = wb.VBProject.VBComponents.Item("ThisWorkbook").CodeModule
    
40.             With VBcomModule
    
41.                 .DeleteLines 1
    
42.                 .InsertLines 2, thisCode
    
43.             End With
    
44. 
    
45.         End If
    
46.     Next
    
47.     Windows(fname).Visible = True
    
48.     wb.Save
    
49.    
    
50.     wb.Close
    
51. fname = Dir
    
52. Wend
    
53. Application.DisplayAlerts = True
    
54. Application.ScreenUpdating = True
    
55. End Sub

复制代码

搞定  thisworkbook的也可以写入了