Question

VB.NET 如何给vba程序中全局变量赋值

我在vb.net程序打开了一个excel，这个excel里包含vba程序，可惜的是我不能修改vba的程序，我在vb.net调用这个excel宏程序时需要改变vba程序某个全局变量的值，怎么实现？

Answer 1

其实原理跟过程之间的传值原理一样，举个例子

测试结果如下

能给个采纳吗

上面是VB的写法，刚注意到你需要VB.NET的，那么看下面的截图

测试正常

追问

谢谢回答，但是可能是我描述不清楚，这个run调用宏Sub并带参数我是知道，我不会的是：我这里要改变值的全局变量并不是宏Sub的参数，我的这个宏Sub没有参数列表，我需要在VB.net程序里先改变VBA里的这个全局变量（怎么改变？？？），再用run调用这个宏Sub

追答

接收值的sub是单独的就可以了，接收之后就可以任意过程调用，建议你先搞本书学学基础知识比如变量的生命周期之类的。下面给你例子

sub VB 模拟的是VB程序，懒得开VB了，调用VBA里的 sub 赋值，全局变量赋值之后只要不退出excel，赋的值不会消失，在VBA里直接运行sub VBA 结果依然是abc，没有任何问题，VBA主程序也不需要参数

追问

如果VB()和赋值(n)这两个函数被定义为Private Sub，且不能修改为Public，因为项目标准不允许，这样就无法从VB.NET调用(如果能，怎样实现？)，，而我只有权利从VB.NET调用Sub VBA()这个函数，这个全局变量a的值如何来改变呢？

追答

赋值(n)的函数你可以自己添加，就是为了接收值而存在的，权限上应该不存在问题，如果VBA程序整个都无法修改的话，没办法了。需要被赋值的变量还不让传递参数，这是在开玩笑了。
要么就用VB修改某固定位置单元格的值，VBA里的变量每次都去读那个单元格的值，但这种设计太不人性化。

追问

项目规定，vba的程序不能修改，我是想通过vb.net来提高效率，看来不行了