找答案

悬赏:20分 | 解决时间：2009-03-04 22:07
产品版区： SIMATIC WinCC 梦想BMW

需要WINCC 将数据导入已经建立好的EXCEL 模板,并以时间为名另存。希望大侠不吝赐教，先谢谢了~

问题补充：
请问哈dcount107大侠,我现在可以通过WINCC向EXCEL 里面写数据了,但是就是按时间为名字另存的方法还不会,希望给个可以用的例子,论坛上有很多都看了,但没弄成功.
 还有像这些函数到哪里查啊oWorkBook.SaveAs 
 以前没有接触过

回答者： dcount107 回答时间：2009-03-04 17:16

评论

提问者对于答案的评价：
明天我试试~~
 大好人啊，谢谢了~~

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
• 下一页
•  跳转>