VBA代码连接到Oracle数据库以运行SQL语句

您好我需要连接我的Excel文件来运行一个macros，执行select查询。

我的示例代码是

Sub Button1_Click() Range("A1").Value = "Hiii!" Dim cn As Object Dim rs As Object Dim strCon As String Dim strSQL, strInput As String strCon = "Provider=MSDAORA.1;User ID=bis5151XXXXXa1;Data Source=canafpi5467qanfo.iaksedafdqwte.com;Password=iXoXXX8886s55it" Set cn = CreateObject("ADODB.Connection") cn.Open strCon strInput = InputBox("Input Desired Name") Sheet1.Range("B1").Value = strInput strSQL = "select * from " & strInput & " where rownum<200" Sheet2.Range("D1").Value = strSQL 'Added the following four lines Set rs = CreateObject("ADODB.RECORDSET") rs.activeconnection = cn rs.Open strSQL Sheet2.Range("A10").CopyFromRecordset rs rs.Close cn.Close Set cn = Nothing End Sub 

=============================================

但我的数据库没有在tnsnames.ora文件中的条目。 我也尝试给数据源的tns细节，但是得到TNS失败错误。 可能有人请帮助我连接我的Excel到Oracle只是为了运行一个select语句，以便该值返回到Excel中的特定单元格。 仅供参考我已经configuration了我的ODBC。