date_time.Value = Date '----初始化日期控件
End Sub
Sub sj()
If date_time.Value < Date Then
MsgBox "不允许搜索之前的车次...str) '-----用数据填充脚本
i = 4
Application.Calculation = xlCalculationManual '-----关闭自动重算
If CallByName...(CallByName(CallByName(msc.CodeObject, "query", VbGet), "data", VbGet), "result", VbGet) = "" Then MsgBox..., vbInformation, "VB小源码"
For Each TMP In CallByName(CallByName(CallByName(msc.CodeObject, "query"..., VbGet), "data", VbGet), "result", VbGet) '---循环json的result记录集 数据
With Worksheets("车票信息