找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
oRs.MoveNext
i=i+1
Loop
oRs.Close
Else
MsgBox "没有所需数据……"
item.Enabled = True
Set oRs = Nothing
conn.Close
Set conn = Nothing
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp= Nothing
Exit Sub
End If
'释放资源
Set oRs = Nothing
conn.Close
Set conn = Nothing
'生成新的文件,关闭Excel
Dim patch,filename
filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))&CStr(Hour(Now))+CStr(Minute(Now))&CStr(Second(Now))
patch= "d:\Record\"&filename&"demo.xlsx"
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp= Nothing
MsgBox "成功生成数据文件!"
item.Enabled = True
End Sub
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
你这是查询报警记录。
第一步,先看看报警记录控件里产生了报警。
其次
问题出在查询语句上,也许是语言错误导致的没有数据。
sSql = "ALARMVIEW:Select * FROM AlgViewCHT "&MySqlStr.Value
这一句,首先可以去掉后边的"&MySqlStr.Value ,他只是一个条件,先不添加条件,也许是条件错误。
再次,sSql = "ALARMVIEWEX:Select * FROM AlgViewEXENU ",好像是可以这样写的,因为中文字符的问题。
这两种方法都可以试试。
最后说一句。不要随便从网上找一个脚本就拿过来改,成功率很低的,官网的文档也都是人做的,也会出错。不要盲目信服。同一个脚本我能运行,你就报错,这种情况很常见。
2606352062欢迎交流。
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!