Hi All:
XP Pro...SP3
Office Excel 2003
MS tells us we can use a namedrange as a table....Ok thats what I'm doing here
I'm just moving data from one spreadsheet to other that is in the same range
I keep getting the error....Incomplete query clause
The Select * From clause line is causing the error
I can't seem to track it down can someone see where I'm going wrong?
Sub DR()
Dim objConnection As Object
Dim objRecordset As Object
On Error GoTo GetExcel_Err:
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "DSN=dht;"
objRecordset.Open "SELECT * FROM 'rsData' ", objConnection
Range("rsData").CopyFromRecordset objRecordset
objRecordset.Close
objConnection.Close
GetExcel_Err:
If Err.Number <> 0 Then
MsgBox "GetExcel Error: " & Err.Number & "-" & Err.Description
Resume Next
End If
End Sub
XP Pro...SP3
Office Excel 2003
MS tells us we can use a namedrange as a table....Ok thats what I'm doing here
I'm just moving data from one spreadsheet to other that is in the same range
I keep getting the error....Incomplete query clause
The Select * From clause line is causing the error
I can't seem to track it down can someone see where I'm going wrong?
Sub DR()
Dim objConnection As Object
Dim objRecordset As Object
On Error GoTo GetExcel_Err:
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "DSN=dht;"
objRecordset.Open "SELECT * FROM 'rsData' ", objConnection
Range("rsData").CopyFromRecordset objRecordset
objRecordset.Close
objConnection.Close
GetExcel_Err:
If Err.Number <> 0 Then
MsgBox "GetExcel Error: " & Err.Number & "-" & Err.Description
Resume Next
End If
End Sub
Last edited: