oracle俺不大用，但是sqlserver下是沒有問題的，所以俺覺著oracle也問題不大。sqlserver下是這么使用的，建立一個(gè)dsn，然后從excel中連接就可以了，部分代碼如下：

Public startline As Integer '數(shù)據(jù)起始行

Public endline As Integer '數(shù)據(jù)終止行

Public bankcard As String '銀行卡號列

Public studentno As String '學(xué)生學(xué)號列

Sub pk()

'本過程的作用為根據(jù)學(xué)號從SqlServer數(shù)據(jù)庫中取出對應(yīng)的銀行卡號到指定的數(shù)據(jù)列

Dim myxh As String '暫存select查詢中的學(xué)號

Dim querystring As String '存儲select查詢語句

Dim cellrange As String '指定查詢出的卡號應(yīng)放置的單元格位置

Dim id As Integer '用于打開一個(gè)數(shù)據(jù)連接

Worksheets(1).Activate

Application.ScreenUpdating = False '關(guān)閉屏幕自動(dòng)更新

id = SQLOpen("DSN=xssfw")

UserForm1.Show '顯示參數(shù)指定窗口

For i = startline To endline

myxh = Cells(i, studentno)

querystring = "select kh from xszd where xh='" & myxh &"'"

SQLExecQuery id, querystring

Setoutput = Range(bankcard & CStr(i)) '指定輸出位置

'默認(rèn)下SQLRetrieve的返回值中含有標(biāo)題行，因此將對應(yīng)的參數(shù)設(shè)置為False

SQLRetrieve id, output, , , False, False, False

Next

sqlclose id

End Sub

俺也是剛剛學(xué)習(xí)，還請高手們多多指點(diǎn)。

總結(jié)

以上是生活随笔為你收集整理的execl用宏查询mysql_关于EXCEL能否用宏直接连到oracle数据库然后取数据的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。