VBA 简单的数据获取，写入SHEET（ORACLE）

最新推荐文章于 2024-03-14 09:02:17 发布

Astpiy

最新推荐文章于 2024-03-14 09:02:17 发布

阅读量1k

点赞数

分类专栏： VBA 文章标签： vba excel

本文链接：https://blog.youkuaiyun.com/Astpiy/article/details/111676629

版权

为了定期获取各系统的有效用户信息，本文档记录了一段使用VBA进行数据获取和写入Excel的工作流程。代码中包含一个通用方法，接收系统连接字符串和工作表名称作为参数。关键点在于时间字符串需要使用Format函数转换为'yyyy-mm-dd HH:MM'格式，以及如何获取单元格列标和检查工作表是否存在。连接字符串遵循特定格式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

因每隔一段时间，需要提供各系统的有效用户信息，于是写了简单的获取显示记录一下

先写一个公用的方法，只需要传入各系统的连接字符串，与SHEET名

代码注释很详细

需注意的是，时间字符串需要用Format(X, "yyyy-mm-dd HH:MM") 进行转换，否则会显示为数值

Private Sub GetData(strCn As String, shtname As String)

Dim cn As Object    '定义数据链接对象 ，保存连接数据库信息

Dim rs As Object    '定义记录集对象，保存数据表

Set cn = CreateObject("ADODB.Connection")  '创建数据链接对象

Set rs = CreateObject("ADODB.RecordSet")  '创建记录集对象，用于接收数据查询获得的结果集

Dim strSQL As String '字符串变量


strSQL = "select a.user_id,a.user_name,a.email_address,a.login_time,a.crtdt from user a where a.user_status in ('A','L')"    '设置SQL语句


cn.Open strCn '打开连接

rs.Open strSQL, cn '读取数据库中的数据


Dim i As Integer, j As Integer, h As Integer, g As Integer, sht As Worksheet 'i,j,h为整数变量;sht 为excel工作表对象变量，指向某一工作表

i = 2



If Issheet(shtname) Then
  Set sh

最低0.47元/天解锁文章