[已解决]求多种办法

759857387 · 发表于 2013-3-11 20:06

打开总控平台.xlsm 将自动执行Book1.xlsm中a宏见附件

总控平台.rar (11.73 KB, 下载次数: 3)

无聊的疯子 · 发表于 2013-3-11 20:13

搞不清楚你的目的，感觉思路有点复杂！！

759857387 · 发表于 2013-3-11 20:22

无聊的疯子发表于 2013-3-11 20:13
搞不清楚你的目的，感觉思路有点复杂！！

不复杂，下载文件——打开“总控平台”文件，就是一个打开指定文件执行指定红
里边的代码我不会改，求帮助

hwc2ycy · 发表于 2013-3-11 20:31

application.run方法。
如果不行就用APP来实现。

hwc2ycy · 发表于 2013-3-11 20:35

Application.Run 方法
运行一个宏或者调用一个函数。该方法可用于运行用 Visual Basic 或 Microsoft Excel 宏语言编写的宏，或者运行 DLL 或 XLL 中的函数。
语法

表达式.Run(Macro, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)

表达式一个代表 Application 对象的变量。

759857387 · 发表于 2013-3-11 20:36

hwc2ycy 发表于 2013-3-11 20:31
application.run方法。
如果不行就用APP来实现。

附件中用到了application.run，麻烦老师看我的问题。

hwc2ycy · 发表于 2013-3-11 20:37

至于遍历代码，就是用代码操作VBE了。

hwc2ycy · 发表于 2013-3-11 20:38

Sub ListComponents(ByRef Wb As Workbook)
Dim VBComp As Object
For Each VBComp In Wb.VBProject.VBComponents
If Not VBComp.CodeModule Is Nothing Then
Call RemarkSub(VBComp.CodeModule)
End If
Next
End Sub
Sub RemarkSub(ByRef CodeModule As Object)
Dim i&
With CodeModule
If .countoflines - .CountOfDeclarationLines <= 0 Then Exit Sub
For i = 1 To .countoflines
.ReplaceLine i, "'" & .Lines(i, 1)
Next
End With
End Sub

复制代码

这是注释代码用的过程。

hwc2ycy · 发表于 2013-3-11 20:44

你直接把那个要换的删除了，生新加一个窗体中的按钮。

759857387 · 发表于 2013-3-11 20:45

hwc2ycy 发表于 2013-3-11 20:38
这是注释代码用的过程。

老师我们一个一个来好吗？
总控平台中，我用到Application.Run "Book1.xlsm!Sheet1.CommandButton1_Click"，CommandButton1_Click能否换成表单按钮？

		自动登录	找回密码
密码			注册