回复:你们向EXCEL传数据时速度快吗,大概多长时间,我怎么一传EXCEL就打不开了啊!-技术论坛-工业支持中心-西门子中国

回复:你们向EXCEL传数据时速度快吗,大概多长时间,我怎么一传EXCEL就打不开了啊!

松风

帖子

92
精华

0
被关注

0

论坛等级：游士

注册时间：2006-02-26

普通如何晋级?

发布于 2006-02-27 13:34:34

0楼

quote:以下是引用人小鬼大在2006-02-27 09:15:30的发言：
请问你是用VB还是C脚本做的！

我的代码是从网上下的,是VB做的,我稍微修改了一下,望能指点一下!
Sub X6309X94AE5X00009_OnClick(ByVal Item)
Dim fso,myfile,daystr,dstr,fname

dstr = FormatDateTime(Date)

fname="e:\" + dstr + ".xls"

Dim ObjExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Workbooks.Open fname

Dim i

HMIRuntime.Tags("i").write HMIRuntime.Tags("i").Read+1

i=HMIRuntime.Tags("i").Read

objExcelApp.worksheets ("sheet1").Cells(i, 2).VAlue = HMIRuntime.Tags("U08i_MsgNr").read

'objExcelApp.worksheets ("sheet1").Cells(i, 3).VAlue = HMIRuntime.Tags("I-SS").read
'
'objExcelApp.worksheets ("sheet1").Cells(i, 4).VAlue = HMIRuntime.Tags("I-PH").read
'
'objExcelApp.worksheets ("sheet1").Cells(i, 5).VAlue = HMIRuntime.Tags("I-F").read
'
'objExcelApp.worksheets ("sheet1").Cells(i, 6).VAlue = HMIRuntime.Tags("I-FI").read
'
'objExcelApp.worksheets ("sheet1").Cells(i, 7).VAlue = HMIRuntime.Tags("O-COD").read
'
'objExcelApp.worksheets ("sheet1").Cells(i, 8).VAlue = HMIRuntime.Tags("O-SS").read
'
'objExcelApp.worksheets ("sheet1").Cells(i, 9).VAlue = HMIRuntime.Tags("O-NH4N").read
'
'objExcelApp.worksheets ("sheet1").Cells(i, 10).VAlue = HMIRuntime.Tags("0-P").read
'
'objExcelApp.worksheets ("sheet1").Cells(i, 11).VAlue = HMIRuntime.Tags("O-F").read
'
'objExcelApp.worksheets ("sheet1").Cells(i, 12).VAlue = HMIRuntime.Tags("O-FI").read

objExcelApp.worksheets ("sheet1").Cells(i, 1).VAlue =Now

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.ClosE

objExcelApp.QuiT

Set ObjEXceLapp = Nothing
End Sub