VBA 简单的数据获取,写入SHEET(ORACLE)
因每隔一段时间,需要提供各系统的有效用户信息,于是写了简单的获取显示 记录一下
先写一个公用的方法,只需要传入各系统的连接字符串,与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.
原创
2020-12-25 14:06:24 ·
1016 阅读 ·
0 评论