发布于 2010-06-07 09:21:52
5楼
谢谢楼主分享,关于这个最近比较郁闷,机器上本来也是通过WINCC往EXCEL写数据的,但OFFICE软件要钱,客户要求所有软件都是正版,公司又不想花钱,所以改成往文本文档里写,这里也分享一下,我用了VB的一个控件,COMMONDIALOG,可以自己创立文件,这个比较好,在自己电脑上用上这控件后,到机器上的电脑没有装VB也可以用,
Dim fso,f
Const ForReading = 1, ForWriting = 2, ForAppending = 8
ScreenItems("CommonDialog1").FileName=""
ScreenItems("CommonDialog1").Filter="txt File(*.txt)*.txt"
ScreenItems("CommonDialog1").ShowOpen
If ScreenItems("CommonDialog1").FileName="" Then
Exit Sub
End If
Set fso=CreateObject("s cripting.filesystemobject")
If (fso.FileExists (ScreenItems("CommonDialog1").FileName))Then
If MsgBox("This file name has already exist,replace it?", vbInformation + vbYesNo, "Query Information") = vbNo Then
Exit Sub
End If
End If
Set f = fso.OpenTextFile(ScreenItems("CommonDialog1").FileName, ForWriting, True)
f.WriteLine "在写的内容,一条语句一行"
f.close