找答案

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

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

产品版区：SIMATIC WinCC 悬赏分:20 | 解决时间：2009-03-04 22:07:27 | 提问者： 梦想BMW - 学长  第2级

回答者： dcount107 - 顶级工程师  第12级  2009-03-04 17:16:54

评论

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

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
    大概改了下没试过，你自己试下吧，时间中间的连接符要用
  “－”不能用“：”，论坛里这样的例子很多，你可以再找一下。

回答者： ws0866 - 中级技术员  第6级
 2009-03-04 13:09:43

直接导出EXCEL,我做过，我也在找以时间为名另存的方法。

回答者： 学海&无涯 - 毕业实践员  第4级
 2009-03-04 16:11:45