问题是：文件可以正常生成，就是显示格式有问题，我要生成3列，可是程序却只生成一列，代码如下
Sub VBFunction_1()
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
' 示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：
Dim folderway,objectway,filename,file,fileexist,apendix,row
folderway="C:\test\exceleample"
Set objectway =CreateObject("Scripting.filesystemobject")
filename="test_excel_file.csv"
Set file=CreateObject("Scripting.filesystemobject")
fileexist=file.FileExists(folderway & "\" & filename)
If fileexist =False Then
file.CreateTextFile(folderway & "\" & filename)
Set apendix =file.OpenTextFile(folderway & "\" & filename,8)
apendix.WriteLine(" data 1 ; data 2 ; data 3 ")
apendix.Close
Set file =Nothing
End If
Set file=CreateObject("Scripting.filesystemobject")
Set row=file.OpenTextFile(folderway & "\" & filename,8)
row.WriteLine("integer" & ";" & "real" & ";" & "bool")
row.Close
End Sub
问题补充：
【分享】wincc读写excel脚本，经过测试的。-技术论坛-工业支持中心-西门子中国 http://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1266491&b_id=5&s_id=17&num=12#anch
j照着这个，没成功，也许因为它是wincc，我这边smarttags().read编译不了，说read变量未声明，不知什么原因
钻石用户推荐最佳答案
此回答已完善
说了半天，excel不是这样写 的。
你这是写文本。
看 这个 脚本
【分享】wincc读写excel脚本，经过测试的。-技术论坛-工业支持中心-西门子中国 http://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1266491&b_id=5&s_id=17&num=12#anch
你把问题引用到论坛，然后把你的脚本发上来，你的写法有问题。
提问者对于答案的评价：
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc366845.html
微信扫一扫 
支付宝扫一扫 