vba从mysql取数_Excel vba如何将范围传递给函数从mysql中检索数据

我写了一个vba来传递范围的偏移量作为另一个函数的查询表的输入，但是我遇到错误。

Sub test2()

Dim LastCol As Long

With ThisWorkbook.Sheets("Summary (AIX)")

LastCol = .Range("A2").SpecialCells(xlCellTypeLastCell).Column

End With

Dim r As Long

Dim ser_name As String

Dim y As String

For r = (LastCol - 1) To 2 Step -2

With ThisWorkbook.Sheets("Summary (AIX)")

y = Cells(2 + 2, r + 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)

MsgBox CStr(Cells(2, r).Value)

ser_name = CStr(Cells(2, r).Value)

get_unix_avg_cpu ser_name, y

End With

Next r

End Sub================================================== =======================

Sub get_unix_avg_cpu(server_hostname, x)

Dim oRS As ADODB.Recordset

Dim ConnString As String

Dim SQL As String

Dim qt As QueryTable

ThisWorkbook.Sheets(server_hostname).Activate

ConnString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=test;User=root;Password=123456;Option=3;"

Set oCn = New ADODB.Connection

oCn.ConnectionString = ConnString

oCn.Open

SQL = "SELECT cpu_max_unix_0.CPU FROM test.cpu_max_unix cpu_max_unix_0 where cpu_max_unix_0.SERVER_NAME='" & server_hostname & "' Order By cpu_max_unix_0.LOGDATE"

Set oRS = New ADODB.Recordset

oRS.Source = SQL

oRS.ActiveConnection = oCn

oRS.Open

Set qt = ThisWorkbook.Sheets("Summary (AIX)").QueryTables.Add(Connection:=oRS, _

Destination:=ThisWorkbook.Sheets("Summary (AIX)").Range(x))

qt.Refresh

If oRS.State <> adStateClosed Then

oRS.Close

End If

If Not oRS Is Nothing Then Set oRS = Nothing

If Not oCn Is Nothing Then Set oCn = Nothing

End Sub停在“Sub get_unix_avg_cpu(server_hostname，x)”上

编译错误：用户定义类型未定义

请帮忙！！