封装exe后是不是没有办法对VBProject中模块进行写入删除操作

kinglan123

我想把下面代码通过VB6封装好的exe，然后通过shell调用exe中的宏，都是显示对象错误

1. Sub WriteDataToModule1()
   
2.     Dim xlApp As Object
   
3.     Set xlApp = CreateObject("Excel.Application")
   
4.    
   
5.     ' 打开 Excel 文件
   
6.     Dim wb As Object
   
7.     Set wb = xlApp.Workbooks.Open("C:\Path\To\Your\Excel\File.xlsx")
   
8.    
   
9.     ' 获取模块1的代码模块
   
10.     Dim targetModule As Object
    
11.     Set targetModule = xlApp.ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
    
12.    
    
13.     ' 在模块1中写入数据
    
14.     targetModule.InsertLines targetModule.CountOfLines + 1, "Sub WriteData()"
    
15.     targetModule.InsertLines targetModule.CountOfLines + 1, "    MsgBox ""Data written from EXE"""
    
16.     targetModule.InsertLines targetModule.CountOfLines + 1, "End Sub"
    
17.    
    
18.     ' 执行写入数据的子过程
    
19.     xlApp.Run "模块1.WriteData"
    
20.    
    
21.     ' 关闭 Excel 文件
    
22.     wb.Close False
    
23.    
    
24.     ' 退出 Excel 应用程序
    
25.     xlApp.Quit
    
26.    
    
27.     Set xlApp = Nothing
    
28. End Sub

复制代码

主要在' 获取模块1的代码模块这步就报错了，如果模块1不写入删除数据是可以直接调用exe然后运行的，获取模块1写入删除就会报错，代码是问GP3.5给的。辛苦大佬帮忙看一下怎么改

tte3

首先，需要明确的是，VB6 的 COM 对象模型并不支持直接操作 VBA 代码模块。也就是说，你不能在 VB6 中创建一个对象来直接访问和操作 Excel 工作簿中的 VBA 代码。这是为什么你在尝试获取模块1的代码模块时遇到了“对象错误”。  解决这个问题的一个方法是使用 VBScript 来间接地修改 VBA 代码。你可以创建一个 VBScript 文件，然后在 VB6 中使用 Shell 函数来运行这个 VBScript 文件。VBScript 可以使用 Microsoft Script Control 来操作 VBA 代码。

大灰狼1976

用modules.add.insertfile试试呢，我不具备测试条件，或许绕过对VBProject的访问可以实现。