利用全局脚本将数据等时间段写入excel指定的单元格内

《利用全局脚本将数据等时间段写入excel指定的单元格内》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、利用全局脚本将数据等时间段写入EXCEL指定的单元格内　　想利用全局脚本VB来实现等时间段将所需的数据写入EXCEL指定的单元格内，例如：想当变量TAG1等于1时开始，每隔半个小时将TAG2变量的值写入EXCEL的（1，1）单元格内，想问下这个每隔半个小时怎么弄，还需要设置触发器之类的什么吗？　　　　　　最佳答案　　　　　　　　　　　　　　　　　　　　触发时间自己定义脚本如下：　　OptionExplicit　　Functionaction　　OnErrorResumeNext　　DimobjExcelApp,oWorkBo

2、ok,fs,iBlankLine　　SetobjExcelApp=GetObject(,”Excel.Application”)　　IfVarType(objExcelApp)vbEmptyThen　　objExcelApp.ActiveWorkbook.Save　　SetoWorkBook=objExcelApp.Workbooks.Open(“d:每小时记录.xls”)　　iBlankLine=oWorkBook.SheetS(1).Columns(1).Find(““).Row　　objExcelApp.sheets(

3、1).Cells(iBlanKLine,1).Value=Now()”“HMIRuntime.Tags(“date”).Read　　objExcelApp.sheets(1).Cells(iBlanKLine,2).Value=HMIRuntime.Tags(“@CurrentUser”).Read　　objExcelApp.ActiveWorkbook.Save　　Else　　Setfs=CreateObject(“Scripting.FileSyStemObject”)　　SetobjExcelApp=CreateObj

4、ect(“Excel.Application”)　　objEXcelApp.VIsible=False　　Iffs.FileExiSts(“d:每小时记录.xLs”)then　　SetoWorkBook=objExcelApp.Workbooks.Open(“d:每小时记录.xls”)　　iBlankLine=oWorkBook.SheetS(1).Columns(1).Find(““).Row　　objExcelApp.sheets(1).Cells(iBlanKLine,1).Value=Now()”“HMIRuntim

5、e.Tags(“date”).Read　　objExcelApp.sheets(1).Cells(iBlanKLine,2).Value=HMIRuntime.Tags(“@CurrentUser”).Read　　　　Else　　SetoWorkBook=objExcelApp.WorkBooks.Add　　oWorkBook.SaveAs”d:每小时记录.xls”　　SetoWorkBook=objExcelApp.Workbooks.Open(“d:每小时记录.xls”)　　objExcelApp.Workbooks.O

6、pen(“d:每小时记录.xls”)　　objExcelApp.sheets(1).CeLls(1,1).Value=“时间”　　objExcelApp.sheets(1).CeLls(1,2).vaLue=“用户”　　EndIf　　objExcelApp.ActiveWorkbook.Save　　objExcelApp.Workbooks.Close　　obJexcelApp.Quit　　SetobjExcelApp=Nothing　　EndIf　　EndFunction