unable to excute query

Hello

Try putting a space after your FROM Statement as shown in the example below. What is happening is that it is making your statement to be FROM SCOTT.TELE TELEGROUP BY TELE.CALLED_NUMBERorder by DURATION,UNITS


ie.,

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={Microsoft ODBC for Oracle};UID=scott;PWD=tiger;SERVER=dev;" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT TELE.CALLING_DATE, TELE.CALLING_TIME, TELE.CALLED_NUMBER, TELE.DURATION, TELE.UNITS" & Chr(13) & "" & Chr(10)

& "FROM SCOTT.TELE TELE " _

BTW: You can use the VBA statement for Carriage Return and Line Feed. of VbCrLf which would save you using Chr(13) and Chr(10).

Hope this helps.

Cheers,

Hello

Try formatting your statement as follows:

"SELECT TELE.CALLED_NUMBER, sum(TELE.DURATION) , sum(TELE.UNITS)" & VbCrLf & "FROM SCOTT.TELE TELE "
"group by TELE.CALLED_NUMBER"
"order by DURATION,UNITS"

Identifier error : try assigning your SQL Statement to a variable and then using that variable in your connection

Ie.,

StrSQL = "SELECT TELE.CALLING_DATE, TELE.CALLING_TIME, TELE.CALLED_NUMBER, TELE.DURATION, TELE.UNITS" & VbCrLf & _
"FROM SCOTT.TELE TELE " & _
"GROUP BY TELE.CALLED_NUMBER " & _
"ORDER BY DURATION, UNITS"

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={Microsoft ODBC for Oracle};UID=scott;PWD=tiger;SERVER=dev;" _
, Destination:=Range("A1"))
.CommandText = Array(strSQL)