欢迎来到西门子工业支持中心网站!
欢迎来到西门子工业支持中心网站!
悬赏:20分 | 解决时间:2009-03-04 22:07
产品版区:
SIMATIC WinCC
梦想BMW
需要WINCC 将数据导入已经建立好的EXCEL 模板,并以时间为名另存。希望大侠不吝赐教,先谢谢了~
问题补充:
请问哈dcount107大侠,我现在可以通过WINCC向EXCEL 里面写数据了,但是就是按时间为名字另存的方法还不会,希望给个可以用的例子,论坛上有很多都看了,但没弄成功.
还有像这些函数到哪里查啊oWorkBook.SaveAs
以前没有接触过
小程序:
最佳答案
回答者:
dcount107
回答时间:2009-03-04 17:16
提问者对于答案的评价:
明天我试试~~
大好人啊,谢谢了~~
主题 | 回复/点击 | 作者/最新回复 | 最后回复时间 |
---|---|---|---|
![]() |
3/876 | 祝你好运/zhangli0 | 2015/04/06 17:30 |
Dim name as string
Dim objExcelApp,oWorkBook
name=Format(Now, "yy-MM-dd HH-mm-ss")
Set objExcelApp=CreateObject("Excel.Application.9")
Set oWorkBook=objExcelApp.Workbooks.Open("d:\book1.xls")
Dim iBlankLine
iBlankLine=oWorkBook.ActiveSheet.Columns(1).Find("").Row
objExcelApp.Cells(iBlankLine,1).Value=HMIRuntime.Tags("text_1").Read
oWorkBook.SaveAs "d:\" & name & ".xls"
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp=Nothing
大概改了下没试过,你自己试下吧,时间中间的连接符要用
“-”不能用“:”,论坛里这样的例子很多,你可以再找一下。
直接导出EXCEL,我做过,我也在找以时间为名另存的方法。
现赠您1张1847体验会员卡,可免费领取,畅学1847会员内容,是否领取?
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!