wincc6.2，7.0.7.3,7.4，7.5均试用，用VB脚本直接创建报表

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim xlApp,xlPath,xlFile,xlBook,xlSheet Dim i,j Dim objFSO,objFlexGrid Dim ret
'On Error Resume Next Set objFSO = CreateObject(“Scripting.FileSystemObject”) '创建文件对象模型
xlPath = HMIRuntime.ActiveProject.Path & "/加药台帐"

If Not objFSO.FolderExists(xlPath) Then objFSO.CreateFolder(xlPath)
End If
Set objFSO = Nothing

'MsgBox (“nihao”) 'On Error Re

wincc6.2，7.0.7.3,7.4，7.5均试用，用VB脚本直接创建报表最先出现在Python成神之路。