Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim tagName, tagValue, tagFilename
Dim strFilename, strLine
Dim data(4), i
Dim fso, objFile, objTag

For i=0 To 4
data(i)=HMIRuntime.Tags("Tag_"&i+1).read
Next

strFilename = "c:\pf.csv"
Set fso = CreateObject("s cripting.FileSystemObject")

Set objFile = fso.CreateTextFile(strFilename,True)

'for control
HMIRuntime.Trace("VB-s cript: Write file: " & strFilename & vbCrLf)

strLine =";"&data(0)&";"&data(1)&";"
objFile.Writeline strLine
'for control
HMIRuntime.Trace(strLine & vbCrLf)

' MsgBox "导出数据成功/Import Successful"
objFIle.Close
End Sub
写一行数据，为什么不能分列写入，望大侠指教