Astpiy的专栏

因每隔一段时间，需要提供各系统的有效用户信息，于是写了简单的获取显示 记录一下先写一个公用的方法，只需要传入各系统的连接字符串，与SHEET名代码注释很详细需注意的是，时间字符串 需要用Format(X, "yyyy-mm-dd HH:MM") 进行转换，否则会显示为数值Private Sub GetData(strCn As String, shtname As String)Dim cn As Object '定义数据链接对象 ，保存连接数据库信息Dim rs As O.