Da Access a Excel

  • Query da database acces di Roberto
    Ciao ragazzi, mi sono messo in testa di estrarre da un database di acces alcuni dati, ho attivato il registratore di macro e da turni.mdb dalla scheda l_01_2006 ho estratto alcuni campi. ora nel file turni.mdb ci sono diverse schede tipo l_02_2006 etc.
    vorrei tramite la digitazione su un textbox poter fare la selezione, ho tentato di far la modifica alla macro, ma evidentemente se ora sono quì è perchè non ci sono riuscito, mi date una mano ??
    quì sotto il listato della macro.
    grazie a tutti e grazie per questo forum.
     
     With ActiveSheet.QueryTables.Add(Connection:= _
            "ODBC;DSN=Database di Microsoft Access;DBQ=F:\TURNI.mdb;DefaultDir=F:;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
            , Destination:=Range("A1"))
            .CommandText = Array( _
            "SELECT L_01_2006.MATRICOLA, L_01_2006.NOME, L_01_2006.COGNOME, L_01_2006.COD_TUR_RIPR, L_01_2006.COD_LA, L_01_2006.COD_MA" _
     & Chr(13) & "" & Chr(10) & "FROM `F:\TURNI`.L_01_2006 L_01_2006" _
            )
            .Name = "Query da Database di Microsoft Access"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = True
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .