Da Access a Excel

Hai un problema con 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
        .

Vuoi approfondire questo argomento?