当前位置：工控论坛 > 产品 > 自动化软件 > Siemens软件

wincc读写excel表格的问题 点击：4143 | 回复：5



tyfeixian

    
  • 精华：4帖
  • 求助：2帖
  • 帖子：14帖 | 50回
  • 年度积分：27
  • 历史总积分：1276
  • 注册：2006年8月02日
发表于：2012-04-01 09:15:20
楼主

有一个老项目，现在需要改进

用wincc6.2创建了一个按钮，编写按钮的动作时vbs动作，下面是执行代码。其中d:\shuju.xls是预先用excel创建好的。

dim fso,myfile
set fso = CreatObject("Scripting.FileSystemObject")
set myfile = fso.GetFile("d:\shuju.xls")
dim objExcelApp
set objExcelApp = CreatObject("Excel.Application")
objExcelApp.Visible = true
objExcelApp.Workbooks.Open myfile

dim  aa_data

set  aa_data = HMTRuntime.Tags("@ServerName")

      aa_data.Read

     objExcelApp.worksheets("sheet1").cells(1,2).VAlue = aa_data.Value
     objExcelApp.worksheets("sheet2").cells(1,2).VAlue = aa_data.Value

objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbook.close
set objExcelApp = nothing

可是运行画面，点击此按钮没有一点运行的标记。而且shuju.xls文件没有任何记录。

是我设置错误还是程序错误。还是不能这样运行。

求详细解答！

分享到：
收藏 邀请回答 回复楼主 举报


楼主最近还看过



狼牙精神

  • 精华：6帖
  • 求助：5帖
  • 帖子：469帖 | 5379回
  • 年度积分：3
  • 历史总积分：62964
  • 注册：2020年3月27日
发表于：2012-04-01 10:46:04
1楼

wincc自带帮助文件里有个实例。

使用WinCC-》

      VBS for Creating Procedures and Actions－－>

                Examples of VBScript－－>

                      General Examples－－>

                           Example: Using the MS Automation interface

Example 1: MS Excel

回复 引用 举报

狼牙精神

  • 精华：6帖
  • 求助：5帖
  • 帖子：469帖 | 5379回
  • 年度积分：3
  • 历史总积分：62964
  • 注册：2020年3月27日
发表于：2012-04-01 10:48:16
2楼

Example 1: MS Excel

In this example, an output value from an input field is written in an Excel table.

‘VBS113

Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = True

‘

‘ExcelExample.xls is to create before executing this procedure.

‘Replace <path> with the real path of the file ExcelExample.xls.

objExcelApp.Workbooks.Open "<path>\ExcelExample.xls"

objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp = Nothing

回复 引用 举报

万泉河

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 8回
  • 年度积分：0
  • 历史总积分：66
  • 注册：2007年3月24日
发表于：2012-04-13 17:00:43
3楼

 

1.“编写按钮的动作时vbs动作” 改用按钮按下或释放时动作vbs

 

可以将 objExcelApp.Workbooks.Open myfile 改成 objExcelApp.Workbooks.Open "d:\shuju.xls" 试一下。

删除最后的 set objExcelApp = nothing 这个没有必要。

回复 引用 举报

xiaocainiao995

  • 精华：0帖
  • 求助：1帖
  • 帖子：1帖 | 1回
  • 年度积分：0
  • 历史总积分：14
  • 注册：2012年8月04日
发表于：2012-08-04 11:09:07
4楼

Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = True

objExcelApp.Workbooks.Open "D:XQ\ExcelExample.xls"

objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp = Nothing

 

为什么我便在在WINCC的一个按钮的VBS脚本里后 运行后画面上点那个按钮EXCEL的表画面跳了下就没了就闪了一下 谢谢哪位高手指点下
回复 引用 举报

暖阳

  • 精华：0帖
  • 求助：0帖
  • 帖子：3帖 | 13回
  • 年度积分：0
  • 历史总积分：52
  • 注册：2020年5月06日
发表于：2020-05-14 11:24:54
5楼
走过，路过，学习解惑。高人多啊


回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师