VBA封装成exe示例

bucengchulian

厉害，这样是不是能保密代码了

风筝那根线

收藏一下，学习学习

EX_ted

TEXTBOX 能调用吗。我怎么试都不行。
SQL = "Select  摘要  from 数据表 where 年=" & TextBox1 & " and 月=" & TextBox2 & " and 名字=‘张三’ "

bsdb2012

好的东西必须收藏标记！

天涯诗酒客

还可以这样，很神奇

zyq8200

好东西.学习了                     

昆仑石

本人刚学vb封装，小白一个，哪位大神知道的，帮助回答一下：
excell里面的公共变量，封装到vb的exe里面以后，产生的值，如何传回excell，或者说公共变量如何封装？
备注：  本来excell里面的设置的公共变量，在一个过程赋值，其他过程此变量的值也变化了。可以调用。
           但是如果封装到vb里后，excell再次调用变量的值，发觉变量值不会改变。无法调用了。


Public a As Integer, b As Integer ,WShell As Object, Excel_app As Object '(Excel_app是vb里的）
Sub Test1()
    Set Excel_app = GetObject(, "Excel.Application") '创建excel对象
    a = Excel_app.ActiveSheet.Range("a1").Value             'Range("a1").Value是100
    MsgBox "结果是" & a                                                '给a赋值,运行的结果是100
End Sub
Sub Test2()
    b = a + 50
    MsgBox "结果是" & b                                             '给b赋值,如果运行过test1,b的结果是150
End Sub


--------------------------------------以下是调用结果----------------------
Sub Test1()
    '给a赋值，sheets("a1").Value是100
    Set WShell = CreateObject("WScript.Shell")
    WShell.Run ThisWorkbook.Path & "\测试.exe Test1", 0, True
    MsgBox "结果是" & a  '给a赋值,运行过的结果是0
End Sub
Sub Test2()
    Set WShell = CreateObject("WScript.Shell")
    WShell.Run ThisWorkbook.Path & "\测试.exe Test2", 0, True
    MsgBox "结果是" & b  '给b赋值,运行过test1,b的结果是0
End Sub

昆仑石

前面的问题解决了，是office盗版的引起的！！  
现在还有一个问题解决不了，还望指点一二，非常感谢： excell里面的公共变量，封装到vb的exe里面以后，产生的值，如何传回excell，或者说公共变量如何封装？

1055751654

楼主大大，如果设置了软件已过期，程序退出，是不是就改不了代码了？一不小心就整成过期了咋整。占个位学一下，谢谢分享

pc_12

好东西.学习了