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

Lyn

  • 帖子

    785
  • 精华

    2
  • 被关注

    6

论坛等级:侠士

注册时间:2007-12-17

普通 普通 如何晋级?

发布于 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
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有30993条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。