WPS运行Set VBProj = ThisWorkbook.VBProject报错的问题

桑特容易额

报错代码： Set VBProj = ThisWorkbook.VBProject
报错内容： 方法 'VBProject' 作用于对象 '_Workbook' 时失败

已引用“Microsoft Visual Basic for Applications Extensibility”库
office2021运行没有问题，WPS运行报错
很多代码在WPS运行执行效率高一点，基本不用office
能解决WPS的报错吗？

引用ThisWorkbook.VBProject的目的是为了导入cls模块，如果有其他方法也可以

1. Sub ImportModuleFromCode()  
   
2.     Dim VBProj As Object  
   
3.     Dim VBComp As Object  
   
4.     Dim CodeModule As Object  
   
5.     Dim Code As String  
   
6.       
   
7.     ' 获取当前VBA项目  
   
8.     Set VBProj = ThisWorkbook.VBProject  
   
9.       
   
10.     ' 添加一个新模块  
    
11.     Set VBComp = VBProj.VBComponents.Add(1) ' 1 表示标准模块  
    
12.       
    
13.     ' 设置要导入的代码  
    
14.     Code = "Sub HelloWorld()" & vbCrLf & _  
    
15.            "    MsgBox ""Hello, World!""" & vbCrLf & _  
    
16.            "End Sub"  
    
17.       
    
18.     ' 获取新模块的CodeModule对象  
    
19.     Set CodeModule = VBComp.CodeModule  
    
20.       
    
21.     ' 将代码写入新模块  
    
22.     With CodeModule  
    
23.         .InsertLines 1, Code  
    
24.     End With  
    
25.       
    
26.     MsgBox "Module imported successfully!", vbInformation  
    
27. End Sub

复制代码

lss001

桑特容易额 发表于 2024-10-16 10:04
大佬呢

1关闭→沙箱保护
→点击左上角WPS图标
→点击右上角三横线
→点击设置
→关闭沙箱保护


2信任对于 "Visual Basic 项目" 的访问
   信任对于 "WPS JS 项目" 的访问
    打开xlsm文件
→点击开发工具
→点击宏安全性
→点击右边可靠发行商
√ 勾选→信任对于 "Visual Basic 项目" 的访问
√ 勾选→信任对于 "WPS JS 项目" 的访问

桑特容易额

大佬呢

lss001

Sub ImportModuleFromCode()  
    Dim VBProj As Object, s$
    Dim VBComp As Object   
      
    ' 获取当前VBA项目  
    Set VBProj = ThisWorkbook.VBProject  
      
    ' 添加一个新模块  
    Set VBComp = VBProj.VBComponents.Add(1) ' 1 表示标准模块  
      
    ' 设置要导入的代码  
    s = "Sub HelloWorld()" & vbCrLf
    s = s & "    MsgBox ""Hello, World!""" & vbCrLf
    s = s & "End Sub"  
      
    ' 将代码写入新模块  
    With VBComp.CodeModule  
        Call .AddFromString(s)
    End With  
      
    MsgBox "Module imported successfully!", 64
End Sub