发布于 2006-12-17 21:23:09
0楼
to城外之人版主,我就是参考版上的例子写的,太长,主要的就是这俩句:
sSql = "TAG:R,(" & TagString & "),'" & begin_date_text.Value & " " & DateAdd("h", -8, begin_time_text.Text) & ".000','" & end_date_text.Value & " " & DateAdd("h", -8, end_time_text.Text) & ".000'"
objExcelApp.Cells(n1, 1).Value = DateAdd("h", 8, oRs.Fields(1).Value)
用暗夜的眼睛寻找工控技术的精灵