好主意！我按照你的建议修改了代码如下：

Sub Excel_Output()

Dim objOnlineTable 

SetTag "Test",1

Set objOnlineTable=HMIRuntime.Screens("鼓风机数据报表").ScreenItems("表格视图_1")

SetTag "Test",2

objOnlineTable.ExportDirectoryname="E:\桌面\报表数据"

SetTag "Test",3

objOnlineTable.ExportFilename="鼓风机数据报表1"

SetTag "Test",4

objOnlineTable.Export()

SetTag "Test",5

End Sub

执行的结果是 Test的值为1，看来结果出在第二行。可是第二行有什么问题么？