找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
给你一个参考程序:
Dim objExcelApp,oWorkBook
Dim TH_GC_E
Dim ZF_GC_S
Dim GC_NO
Dim iBlankLine
Dim DateTime
Dim Path
Set TH_GC_E=HMIRuntime.Tags("TH_GC_E")
TH_GC_E.Read
Set Path=HMIRuntime.Tags("Path")
Path.Read
If TH_GC_E.Value=0 Then
MsgBox "QQQQQQQQQ",,"QQQQ"
Exit Sub
End If
Set ZF_GC_S=HMIRuntime.Tags("ZF_GC_S")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
DateTime=Mid(Date(),1)+" "+Mid(Time(),1)
''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False 'True
Set oWorkBook = objExcelApp.Workbooks.Open(""&Path.VAlue&"")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
iBlankLine=objExcelApp.Cells(1,4).Value+1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If objExcelApp.Cells(iBlankLine,1).Value="" Then
oWorkBook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
MsgBox "ssCCCCCCCCC",,"sss"
Exit Sub
End If
If CLng(Mid(objExcelApp.Cells(iBlankLine,1).Value,5))<>TH_GC_E.Value Then
MsgBox "ssssssssss",,"sss"
oWorkBook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
Exit Sub
End If
If objExcelApp.Cells(iBlankLine,3).Value <>"" Then
'iBlankLine=oWorkBook.ActiveSheet.Columns(1).Find("").Row
'MsgBox iBlankLine
objExcelApp.Cells(iBlankLine,4).Value =DateTime 'ScreenItems("tag3").OutputValue
objExcelApp.Cells(1,4).Value=objExcelApp.Cells(1,4).Value+1
Else
MsgBox "CCCCCCCCCCCCC",,"CCCC"
End If
oWorkBook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ZF_GC_S.Value=TH_GC_E.Value
ZF_GC_S.Write()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox "111111111111",,"1111"
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!