wicc向excel中写入数据

已锁定

飞天喜

  • 帖子

    22
  • 精华

    0
  • 被关注

    0

论坛等级:游民

注册时间:2009-11-12

普通 普通 如何晋级?

wicc向excel中写入数据

764

3

2010-04-06 14:58:07

我在 f盘根目录下建了一个excel文件,文件名为excel.xls 。创建后将该文件关闭。 在wincc画面中创建了一个按钮,编写vbs代码如下:

Sub OnClick(ByVal Item)

Dim objexcelapp
Set objexcelapp=CreateObject("Excel.Application")
objexcelapp.Visible=True

objexcelapp.WorkBooks.Open"F:\Excel.xls"
objexcelapp.WorkSheets("Sheet1").Activate
objexcelapp.WorkSheets("Sheet1").Cells(4,3).Value="ABCDEFG"
objexcelapp.WorkSheets("Sheet1").Cells(4,4).Value=1234567
objexcelapp.ActiveWorkBook.Save
objexcelapp.WorkBooks.Close
objexcelapp.Quit

Set objexcelapp=Nothing

End Sub

激活wincc后点击按钮结果 excel.xls 文件中没有被写入数据。请问各位高手问题出在哪里?在wincc中还需要做其他设置吗?
wicc向excel中写入数据 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32907条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

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

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

  • 分享

  • 只看
    楼主

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