vba 显示表中数据
来源:互联网 发布:淘宝上广告是什么意思 编辑:程序博客网 时间:2024/05/22 15:57
Sub test()
On Error GoTo CloseRs
Dim conn As New ADODB.Connection
conn.connectionString = "Provider=OraOLEDB.Oracle;Data Source=xxxxxx;User Id=xxxxxx;Password=xxxxxx;"
conn.Open
Dim rs As Object
Dim tableListSheet As Excel.Worksheet
Dim i As Integer
Dim v_sql As String
v_sql = "SELECT * FROM test1"
Set rs = CreateObject("ADODB.Recordset")
rs.Open v_sql, conn
Worksheets("sheet1").Cells.Clear
Worksheets("sheet1").Range("A1").CopyFromRecordset rs
CloseRs:
If Not rs Is Nothing Then
rs.Close
conn.Close
End If
End Sub
On Error GoTo CloseRs
Dim conn As New ADODB.Connection
conn.connectionString = "Provider=OraOLEDB.Oracle;Data Source=xxxxxx;User Id=xxxxxx;Password=xxxxxx;"
conn.Open
Dim rs As Object
Dim tableListSheet As Excel.Worksheet
Dim i As Integer
Dim v_sql As String
v_sql = "SELECT * FROM test1"
Set rs = CreateObject("ADODB.Recordset")
rs.Open v_sql, conn
Worksheets("sheet1").Cells.Clear
Worksheets("sheet1").Range("A1").CopyFromRecordset rs
CloseRs:
If Not rs Is Nothing Then
rs.Close
conn.Close
End If
End Sub
- vba 显示表中数据
- 用Excel VBA连接SQL Server数据库并将表中的数据显示到Excel中
- C#执行access中VBA,用VBA导出access表中数据到Excel中
- 【VBA研究】用VBA创建数据透视表
- VBA中让长数据不显示为科学计数法
- VBA模拟提交查询到他人网站,获得结果数据后写到一个Excel表中
- access vba 用recordset读取表中数据的简单方法
- VBA代码执行过程中,显示程序的运行状态
- VBA(中 )
- 如何用VBA做数据透视表
- [Excel VBA] 在VBA中如何将SQL得到的数据直接赋值到数组?
- 【VBA研究】VBA从字符串中取出数据信息的函数
- 在Excel中使用VBA来筛选数据
- 在Excel中应用VBA批量导入数据
- VBA连接中连接sql,access等数据的方法
- VBA连接中连接sql,access等数据的方法
- vba 处理excel中一个sheet中的数据
- Excel中删除重复数据(用VBA代码)
- 如何在Android中添加系统服务
- 写给那些分手之后还留在原地的人:伤感日志
- 数据库连接池
- Ruby 的条件运算符
- 生哥解梦
- vba 显示表中数据
- map的三种遍历方法!
- 理解ASM(二)关于ASM实例的初始化参数
- linux kernel 工作队列
- 虚函数、纯虚函数、重载函数的作用与区别
- define与typedef区别与联系
- 如何使IIS服务器支持.apk文件下载 - 步骤截图 - MIME类型设置
- 如何制定项目计划
- 消息通信机制NSNotificationCenter