Getting Data From Excel

I need to get data from an Excel speadsheet into my Access database using
ADO. Below is my procedure that does it. Question: I had to specify a named
range (Data1) in Excel spreadsheet since I don't know any other way to
select ALL records (.Source = "SELECT * FROM Data1"). Is there a way to
select all records in an unknown Excel spreadsheet without tampering with
the source Excel file?

Thanks,

VAL

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

Sub test()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Integer

    Set cn = New ADODB.Connection
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source").Value = "X:\VMB-August.xls"
        .Properties("Extended Properties").Value = "Excel 8.0"
        .Open
    End With
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = cn
        .Source = "SELECT * FROM Data1"
        .Open
        Do Until .EOF
               Debug.Print rs.Fields(0).Value
            .MoveNext
        Loop
        .Close
    End With
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

Hi Val,

Yes, you can do this, but you would need to specify spreadsheet name. Check
next KBs with some samples

 http://www.**--****.com/ ;EN-US;257819

 http://www.**--****.com/ ;en-us;278973

 http://www.**--****.com/ ;en-us;295646

-- 
Val Mazur
Microsoft MVP
Check Virus Alert, stay updated
 http://www.**--****.com/ 






named

I need help getting data from excel. I have 48 values in one column only to be read by my vb program.
is there a simple way to use that values straight from excel other than converting into a text array? thanks

> I need help getting data from excel.

You can use JET see topic:
 http://www.**--****.com/ 

-- 
Mike Collier
FREE ADO Inspector tool when you register at ADO forum.
www.adoanywhere.com
 http://www.**--****.com/