excel vba 定时自动查询oracle数据库显示查询结果

打开excel就能看到数据库查询结果，而且能定时自动完成查询并更新数据，想要实现么？跟着这些步骤操作起来：

1、打开excel中的vb

表单名称->右键->查看代码

                                                                  图一

2、模块1（图一中）添加查询数据库及定时执行代码

Sub searchDB()
    Sheets("Sheet1").Range("2:65536").Clear
    Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    cnn.Open "Driver={Oracle in instantclient_19_10_64};Dbq=tnsnames.ora中数据库别名或者tnsnames.ora中整个串;User Id=数据库用户名;Password=密码;"
    Set rst = cnn.Execute("select * from 表名")
    For j = 0 To rst.Fields.Count - 1
      Cells(1, j + 1) = rst.Fields(j).Name
    Next
    Range("A2").CopyFromRecordset rst
    cnn.Close