找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
{{itemCategory}}
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
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
说了半天,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
你把问题引用到论坛,然后把你的脚本发上来,你的写法有问题。
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!