[请教]宏名用变量如何做?见附件

yangzh

宏名用变量如何做?见附件

 

iIN8cb4O.rar (10.02 KB, 下载次数: 13)

2007-1-11 22:34 上传

点击文件名下载附件
[请教]宏名用变量如何做?见附件

守柔

请参考：

Run 方法

参阅应用于示例特性运行 Visual Basic 宏

 

expression.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, varg25, varg26, varg27, varg28, varg29, varg30)

expression      必需。该表达式返回一个 Application 对象。

 

MacroName      String 类型，必需。宏的名称。可以是任意模板、模块和宏名的组合。例如，下面的语句都是有效的：

 

Application.Run "Normal.Module1.MAIN"

Application.Run "MyProject.MyModule.MyProcedure"

Application.Run "'My Document.doc'!ThisModule.ThisProcedure"

如果指定了文档名，则此代码只能运行与当前环境有关的文档中的宏，而不是任何文档中的任何宏。

 

varg1...varg30      Variant 类型，可选。宏参数值。在一个指定的宏中可以用 30 个参数。

 

说明

虽然 Visual Basic 代码无须使用该方法即可直接调用宏，但是如果宏保存在变量中，该方法将非常有用（详细内容，请参阅本主题的示例）。下列语句具有相同功能：

 

Normal.Module2.Macro1

Call Normal.Module2.Macro1

Application.Run MacroName:="Normal.Module2.Macro1"

示例

本示例提示用户输入模板名、模块名、宏名以及参数值，然后运行该宏。

 

Dim strTemplate As String

Dim strModule As String

Dim strMacro As String

Dim strParameter As String

 

strTemplate = InputBox("Enter the template name")

strModule = InputBox("Enter the module name")

strMacro = InputBox("Enter the macro name")

strParameter = InputBox("Enter a parameter value")

Application.Run MacroName:=strTemplate & "." _

    & strModule & "." & strMacro, _

    varg1:=strParameter

yangzh

写了一句:

Application.Run MacroName:=TextBox1.Text

若将＂测试宏＂放在一个模块中，程序运行正常，若将＂测试宏＂放在窗体中，则运行出错，是不是宏必须放在模块中而不能在窗体中？

但直接用call语句又能运行某个具体宏，不知这里面有什么道道？

fSVxzmiC.rar (10.96 KB, 下载次数: 15)

2007-1-12 10:44 上传

点击文件名下载附件
新问题

[此贴子已经被作者于2007-1-12 10:44:13编辑过]

守柔

QUOTE:

以下是引用yangzh在2007-1-12 10:40:18的发言：

写了一句:

Application.Run MacroName:=TextBox1.Text

若将＂测试宏＂放在一个模块中，程序运行正常，若将＂测试宏＂放在窗体中，则运行出错，是不是宏必须放在模块中而不能在窗体中？

但直接用call语句又能运行某个具体宏，不知这里面有什么道道？

我也尝试了很多遍，未果。

我感觉是：

APPLICATION.Run应该等效于ALT+F8,运行宏对话框,你可以录个宏便知道,也就是说该对话框中能显示的宏,也就是APPLICTION.RUN能运行的宏(注意,如果是PRIVATE SUB过程,尽管它不出现在对话框中,也可以使用APPLICATION.RUN运行,前提是,与PRIVATE SUB 过程同处一个模块中的其他SUB过程能够在对话框中显示)

等以后有机会验证吧.

yangzh

学习了,谢谢守版