EXCEL VBA 如何在不安装oracle客户端情况连接oracle服务器。

Dim cn As New ADODBConnection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用

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

Dim strCn As String, strSQL As String '字符串变量

Dim i As Integer, j As Integer, sht As Worksheet

strCn = "Provider=MSDAORA1;Password="psw";User ID="userid";Data Source="DB";Persist Security Info=True" strSQL = "select from tab"

cnOpen strCn

rsOpen strSQL, cn

xrow = 1

Do While (Not rsEOF)

Sheet1Cells(xrow, 1) = rsFields()Item(0)

xrow = xrow + 1

rs MoveNext

Loop

End Sub

问一下哈，excel 里面有“TO_Char”这个命令吗？如果DEL_DELIVERY是格式为"yyyy/mm/dd hh:mm:ss"字符串，用left（DEL_DELIVERY，10）可以提取出yyyy/mm/dd，我觉得excel读取外部资料后可用的原因是，excel把DEL_DELIVERY处理成格式"yyyy/mm/dd hh:mm:ss"，再用to_char(del_delivery,'yyyymmdd')提取出yyyymmdd是没有问题的，而直接从外部读取的话，excel只把del_delivery处理成字符串，没有格式，所以to_char(del_delivery,'yyyymmdd')提取yyyymmdd就会出错，不知道这样理解对不对。：)

以上就是关于EXCEL VBA 如何在不安装oracle客户端情况连接oracle服务器。全部的内容，包括:EXCEL VBA 如何在不安装oracle客户端情况连接oracle服务器。、在Excel VBA中编写命令导出Oracle数据库的数据，怎麼使用TO_Char语句、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！