主题：关于自定义表头的问题，求助

 字符串默认是不会当成代码来用，你需要编译这句字符串，得到编译后的字符串。

 参考 http://www.foxtable.com/help/topics/1487.htm

 说一个通用的方法，编译返回需要的字符串。

 自己替换红色的内容为 "** 公司   生产数据报表 & ( "  & Date.Today.Year()  & " 年)"

Functions.Remove("MyFunc")
Dim code As String
code += "return " & Tables("表A").Rows(0)("编号")
Functions.Add("MyFunc",Code)
Functions.Complie()

Dim result As String = Functions.Execute("MyFunc")
msgbox(result)