[已解决]在vb6.0里能否调用vbe的程序过程

qhllqhll

求助：在vb6.0里能否调用vbe的程序过程，
         如果能调用，请赐教怎样写代码？
谢谢
附件实例见：http://www.excelpx.com/thread-290251-1-1.html

最佳答案

月排行榜 / 总排行榜

extyg

2012-11-19 10:30

调用Book1.xls里的test过程：
Private Sub Command1_Click()
    With CreateObject("excel.application")
        .workbooks.open App.Path & "\book1.xls"
        .run "book1.xls!test"
        .workbooks("book1.xls").Close False
        .quit
    End With
End Sub

跳转到最佳答案楼层

extyg

调用Book1.xls里的test过程：
Private Sub Command1_Click()
    With CreateObject("excel.application")
        .workbooks.open App.Path & "\book1.xls"
        .run "book1.xls!test"
        .workbooks("book1.xls").Close False
        .quit
    End With
End Sub

qhllqhll

extyg 发表于 2012-11-19 10:30
调用Book1.xls里的test过程：
Private Sub Command1_Click()
    With CreateObject("excel.application" ...

非常感谢
请麻烦您把你测试好的完整附件上传 吧
我怎么测试不了啊
您看我测试的方法对吗：1.在vb的窗体上 建一个按钮 ，把您给我的代码放在 按钮的代码里
2.在 BOOK1.XLS 模块1 里建一个
Sub test()
    Sheets("Sheet2").Select
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "666999"
End Sub
3.开始测试：运行BOOK1.XLS 后 跳出vb 里的窗体，再点击刚刚建立的按钮，就应该执行了是吗？
怎么 不行呢？？？？

extyg

新建文件夹.rar (7.54 KB, 下载次数: 6)

2012-11-19 14:38 上传

点击文件名下载附件

qhllqhll

extyg 发表于 2012-11-19 14:38

您好谢谢
代码非常好
还有两个问题：1.运行后 book1.xls 变成只读的了，让保存副本
                         2.退出窗体时：难以退出 （循环不止）
能解决吗？
谢谢

qhllqhll

extyg 发表于 2012-11-19 14:38

您好：想你请教个问题；
下面代码格式改成普通格应该怎样写啊？（也就是不要 with.......end with ）谢谢
Private Sub Command1_Click()
    With CreateObject("excel.application")
        .Visible = True
        .Workbooks.Open App.Path & "\book1.xls"
        .Run "book1.xls!test"
        '.workbooks("book1.xls").Close False'不保存文件
        '.workbooks("book1.xls").Close True'保存文件
        '.quit
    End With
End Sub