主题：[求助]合成命令如何做

 如果要这样写，必须动态编译

http://www.foxtable.com/webhelp/scr/1487.htm

参考

Dim wb As new WeUI
Dim str As String = "wb.AddPageTitle("""", ""pageheader"",""销售系统"","""")"
msgbox(str)

Functions.remove("test")
Dim Code As String
Code = "dim wb = args(0)" & vbcrlf
code &= str & vbcrlf
code &= "return wb"
Functions.Add("test",Code)
Functions.Complie()
wb = Functions.Execute("test", wb)

msgbox(wb.Build)

 回复6楼，你直接那样写有什么问题？

 Code = "dim wb = args(0)" & vbcrlf‘这块传参数？是啥

 绿色字符的意思，是把你new出来的wb对象传递进去，因为有可能你wb在之前还写有addXXX的代码，如果你没写，你就不需要传递进去，直接在函数里面new也行

 不需要写很多""的，你只需要写正常的代码就可以了。

 比如你用一个单元格存放字符串 wb.Add("", "pageheader","销售系统","")

 然后你这样写代码 Dim str As String = 单元格的值