主题：VBA中读取当前时间的方法

ReportData 对象

IsVirtualData       若当前数据为集合竞价数据时为1,否则为0

建议你除了采用上面这个属性外，再结合本地计算机时间TIME函数，做个双保险。因为如果该股票集合竞价时间没有集合竞价数据，那么这个属性是返回0的。