博图WINCC使用VBS写EXCEL问题-技术论坛-工业支持中心-西门子中国

运维工程师专区

官方商城

作者	主题
安仔游侠经验值: 301 发帖数: 75 精华帖: 0 主题：【求助】博图WINCC使用VBS写EXCEL问题只看楼主楼主 2021-02-21 10:59:29 之前在论坛里看到一篇文章，通过修改后，在WINCC7.2里通过验证，实现小时记录数据。现在想将此脚本应用到博图IWINCC里，有两句报错，请高手给予指点。在博图里，如何写扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论... 重要声明：著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。帖子链接：https://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1681803&b_id=5&s_id=0&num=4
nufangdeqingnian 侠客经验值: 872 发帖数: 83 精华帖: 0 回复：博图WINCC使用VBS写EXCEL问题只看楼主 1楼 2021-02-22 14:42:39 Dim fso,myfile Set fso = CreateObject("scripting.FileSystemObject") Set myfile = fso.GetFile("C:\Users\DELL\Desktop\data.xlsx") Dim ObjExcelApp Set ObjExcelApp = CreateObject("Excel.Application") ObjExcelApp.Workbooks.Open myfile '上面的程序段是为了打开excel文件扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论...
安仔游侠经验值: 301 发帖数: 75 精华帖: 0 回复：博图WINCC使用VBS写EXCEL问题只看楼主楼主 2楼 2021-02-23 19:03:46 *以下是引用nufangdeqingnian在2021-02-22 14:42:39的发言 >1楼*： Dim fso,myfile Set fso = CreateObject("scripting.FileSystemObject") Set myfile = fso.GetFile("C:\Users\DELL\Desktop\data.xlsx") Dim ObjExcelApp Set ObjExcelApp = CreateObject("Excel.Application") ObjExcelApp.Workbooks.Open myfile '上面的程序段是为了打开excel文件谢谢，我编写了一个打开EXCEL的程序了，但在已经打开的EXCEL中，写不进去数据，应该先读到EXCEL相关信息，确定是哪个EXCEL才可以。扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论...
城外之人版主经验值: 17323 发帖数: 8474 精华帖: 18 回复：博图WINCC使用VBS写EXCEL问题只看楼主 3楼 2021-02-25 08:04:13 写完数据，还要保存。 Dim xlApp,xlBook,xlSheet,sFileName Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(sFileName) Set xlSheet = xlBook.Worksheets(1) ...... xlBook.Save 无论成与败，无论甜与苦，我还是我。扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论...
RENHQ 版主经验值: 69061 发帖数: 12270 精华帖: 59 回复：博图WINCC使用VBS写EXCEL问题只看楼主 4楼 2021-03-03 15:51:23 博图的没有测试过博图版的WINCC和经典版的WINCC，脚本还是有区别的先看看博图里面还有DATASET这个对象没 Q群:https://jq.qq.com/?k=9BDuEgf6 扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论...

作者

主题

安仔

游侠

经验值: 301
发帖数: 75
精华帖: 0

主题：【求助】博图WINCC使用VBS写EXCEL问题

只看楼主楼主 2021-02-21 10:59:29

之前在论坛里看到一篇文章，通过修改后，在WINCC7.2里通过验证，实现小时记录数据。

现在想将此脚本应用到博图IWINCC里，有两句报错，请高手给予指点。

在博图里，如何写

以下网友喜欢您的帖子：

重要声明：

著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。

帖子链接：https://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1681803&b_id=5&s_id=0&num=4

nufangdeqingnian

侠客

经验值: 872
发帖数: 83
精华帖: 0

回复：博图WINCC使用VBS写EXCEL问题

只看楼主 1楼 2021-02-22 14:42:39

Dim fso,myfile

Set fso = CreateObject("scripting.FileSystemObject")

Set myfile = fso.GetFile("C:\Users\DELL\Desktop\data.xlsx")

Dim ObjExcelApp

Set ObjExcelApp = CreateObject("Excel.Application")

ObjExcelApp.Workbooks.Open myfile

'上面的程序段是为了打开excel文件

以下网友喜欢您的帖子：

安仔

游侠

经验值: 301
发帖数: 75
精华帖: 0

回复：博图WINCC使用VBS写EXCEL问题

只看楼主楼主 2楼 2021-02-23 19:03:46

以下是引用nufangdeqingnian在2021-02-22 14:42:39的发言 >1楼：

Dim fso,myfile

Set fso = CreateObject("scripting.FileSystemObject")

Set myfile = fso.GetFile("C:\Users\DELL\Desktop\data.xlsx")

Dim ObjExcelApp

Set ObjExcelApp = CreateObject("Excel.Application")

ObjExcelApp.Workbooks.Open myfile

'上面的程序段是为了打开excel文件

谢谢，我编写了一个打开EXCEL的程序了，但在已经打开的EXCEL中，写不进去数据，应该先读到EXCEL相关信息，确定是哪个EXCEL才可以。

以下网友喜欢您的帖子：

城外之人

版主

经验值: 17323
发帖数: 8474
精华帖: 18

回复：博图WINCC使用VBS写EXCEL问题

只看楼主 3楼 2021-02-25 08:04:13

写完数据，还要保存。

Dim xlApp,xlBook,xlSheet,sFileName

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open(sFileName)

Set xlSheet = xlBook.Worksheets(1)

......

xlBook.Save

无论成与败，无论甜与苦，我还是我。

以下网友喜欢您的帖子：

RENHQ

版主

经验值: 69061
发帖数: 12270
精华帖: 59

回复：博图WINCC使用VBS写EXCEL问题

只看楼主 4楼 2021-03-03 15:51:23

博图的没有测试过

博图版的WINCC和经典版的WINCC，脚本还是有区别的

先看看博图里面还有DATASET这个对象没

Q群:https://jq.qq.com/?k=9BDuEgf6

以下网友喜欢您的帖子：

作者	主题
安仔游侠经验值: 301 发帖数: 75 精华帖: 0 主题：【求助】博图WINCC使用VBS写EXCEL问题只看楼主楼主 2021-02-21 10:59:29 之前在论坛里看到一篇文章，通过修改后，在WINCC7.2里通过验证，实现小时记录数据。现在想将此脚本应用到博图IWINCC里，有两句报错，请高手给予指点。在博图里，如何写扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论... 重要声明：著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。帖子链接：https://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1681803&b_id=5&s_id=0&num=4
nufangdeqingnian 侠客经验值: 872 发帖数: 83 精华帖: 0 回复：博图WINCC使用VBS写EXCEL问题只看楼主 1楼 2021-02-22 14:42:39 Dim fso,myfile Set fso = CreateObject("scripting.FileSystemObject") Set myfile = fso.GetFile("C:\Users\DELL\Desktop\data.xlsx") Dim ObjExcelApp Set ObjExcelApp = CreateObject("Excel.Application") ObjExcelApp.Workbooks.Open myfile '上面的程序段是为了打开excel文件扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论...
安仔游侠经验值: 301 发帖数: 75 精华帖: 0 回复：博图WINCC使用VBS写EXCEL问题只看楼主楼主 2楼 2021-02-23 19:03:46 *以下是引用nufangdeqingnian在2021-02-22 14:42:39的发言 >1楼*： Dim fso,myfile Set fso = CreateObject("scripting.FileSystemObject") Set myfile = fso.GetFile("C:\Users\DELL\Desktop\data.xlsx") Dim ObjExcelApp Set ObjExcelApp = CreateObject("Excel.Application") ObjExcelApp.Workbooks.Open myfile '上面的程序段是为了打开excel文件谢谢，我编写了一个打开EXCEL的程序了，但在已经打开的EXCEL中，写不进去数据，应该先读到EXCEL相关信息，确定是哪个EXCEL才可以。扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论...
城外之人版主经验值: 17323 发帖数: 8474 精华帖: 18 回复：博图WINCC使用VBS写EXCEL问题只看楼主 3楼 2021-02-25 08:04:13 写完数据，还要保存。 Dim xlApp,xlBook,xlSheet,sFileName Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(sFileName) Set xlSheet = xlBook.Worksheets(1) ...... xlBook.Save 无论成与败，无论甜与苦，我还是我。扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论...
RENHQ 版主经验值: 69061 发帖数: 12270 精华帖: 59 回复：博图WINCC使用VBS写EXCEL问题只看楼主 4楼 2021-03-03 15:51:23 博图的没有测试过博图版的WINCC和经典版的WINCC，脚本还是有区别的先看看博图里面还有DATASET这个对象没 Q群:https://jq.qq.com/?k=9BDuEgf6 扫码分享好友任选多种周边以下网友喜欢您的帖子：更多填写您的评论...

热门搜索

移动端入口

@CurrentUser.NickName@

技术论坛

自动化系统

驱动技术

数控系统

低压电器

传感器与通讯

谈天说地

咱工程师的故事

1847大咖专栏

特别专题

培训与认证答疑专区

服务合作伙伴专区

博图WINCC使用VBS写EXCEL问题

20秒帮我们优化支持中心！

系统提示

系统提示

系统提示

微信登录扫码一键登录 验证码登录 密码登录

微信登录扫码一键登录

验证码登录

密码登录