Køre SQL-forespørgsel ved tryk på knap i Excel

Do you want to export dato FROM Access into Excel or do you want to IMPORT dato into Excel from Access?

et eksempel

Sub Makro1()
'
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access-database;DBQ=E:\Documents and Settings\Holger Bak\Dokumenter\Access\db7.mdb;DefaultDir=E:\Documents and Settings\" _
        ), Array( _
        "Holger Bak\Dokumenter\Access;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
        )), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT Bestilling.indrykningsdato_øst, Bestilling.annonce_nr, Bestilling.bestilling" & Chr(13) & "" & Chr(10) & "FROM `E:\Documents and Settings\Holger Bak\Dokumenter\Access\db7`.Bestilling Bestilling" & Chr(13) & "" & Chr(10) & "ORDER BY Bestilling.annonc" _
        , "e_nr")
        .Name = "Forespørgsel fra MS Access-database"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

her er der en med din tabel.

Sub HentBildata()
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access-database;DBQ=E:\Documents and Settings\Holger Bak\Dokumenter\Excel\Biler.mdb;DefaultDir=E:\Documents and Settings" _
        ), Array( _
        "\Holger Bak\Dokumenter\Excel;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
        )), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT Biler.Navn, Biler.Bil, Biler.Årgang, Biler.Pris" & Chr(13) & "" & Chr(10) & "FROM `E:\Documents and Settings\Holger Bak\Dokumenter\Excel\Biler`.Biler Biler" & Chr(13) & "" & Chr(10) & "ORDER BY Biler.Årgang" _
        )
        .Name = "Forespørgsel fra MS Access-database"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

kabbak - det kører! Tak for hjælpen. Kan du ikke lige smide et svar, så du får nogle point?!??

det var da godt ;-))

Iøvrigt kunne jeg da godt tænke mig at vide, om jeg kan klare mig med endnu færre linier kode...

Værsgo'  :-)

Sub HentBildata()
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access-database;DBQ=E:\Documents and Settings\Holger Bak\Dokumenter\Excel\Biler.mdb;DefaultDir=E:\Documents and Settings" _
        ), Array( _
        "\Holger Bak\Dokumenter\Excel;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
        )), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT Biler.Navn, Biler.Bil, Biler.Årgang, Biler.Pris" & Chr(13) & "" & Chr(10) & "FROM `E:\Documents and Settings\Holger Bak\Dokumenter\Excel\Biler`.Biler Biler" & Chr(13) & "" & Chr(10) & "ORDER BY Biler.Årgang" _
        )
        .Refresh BackgroundQuery:=False
    End With
End Sub

dette er nok

Du er jo benhård til det der, kabbak  ;-)

Takker og bukker...