技术论坛

 回复:VBS写数据到EXCEL的稳定脚本程序,在项目上用过此脚本

返回主题列表
作者 主题
Lyn
侠士

经验值: 1453
发帖数: 785
精华帖: 2
楼主    2010-06-07 09:21:52
主题:回复:VBS写数据到EXCEL的稳定脚本程序,在项目上用过此脚本 精华帖 
谢谢楼主分享,关于这个最近比较郁闷,机器上本来也是通过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
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。