Vanuit Access 2010 een een Sheetname uitlezen in Excel 2010

[nicolaasvanwijk]

Beste mensen,

Ik wil via VBA vanuit Excel 2010 data importeren in een Access 2010 database. Dit lukt me allemaal prima zolang ik de naam van de 1e worksheet in de Excel file weet. Nu wisselt deze naam telkens, dus graag wil ik deze uitlezen. Heeft iemand enig idee hoe ik dit doe?

Ik maak gebruik van de volgende code om te connecten en data uit de file te trekken:

Dim rsKPN As New ADODB.Recordset
    Dim cnKPN As New ADODB.Connection

    cnKPN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FileName & ";Extended Properties=""Excel 12.0;HDR=Yes"""
    strSelect = "SELECT * FROM [[B][/B][COLOR="#FF0000"]WORKSHEET NAME[/COLOR]]"
    rsKPN.Open strSelect, cnKPN, adOpenDynamic, adLockOptimistic, adCmdText

 

[OctaFish]

Kan dat niet zo?

strSelect = "SELECT * FROM [WORKSHEET NAME]Testje

 

[snb]

een array 'sn' met alle werkbladen krijgen je met:

sub snb()
    With GetObject("G:\OF\adressen_snb.xls")
      For Each sh In .Sheets
        c01 = c01 & "|" & sh.Name
      Next
      .close false
    End With
    sn=split(mid(c01,2),"|")
end sub