Risultati da 1 a 3 di 3

Discussione: Esecuzione query access da excel



  1. #1
    L'avatar di rossomike1966
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    SINALUNGA - SI
    Età
    51
    Messaggi
    4
    Versione Office
    EXCEL 2010
    Likes ricevuti
    0
    Likes dati
    0

    Esecuzione query access da excel

    Ciao a tutti, ho queste query caricate in un DB; vorrei che da un file excel, cliccando ad esempio un bottone potessi dare l'input all'esecuzione di queste query, senza per forza andare in access e fare prima lo step 1, poi il 2 infine il 3.
    Spulciando un pò in rete credo di aver capito che il comando potrebbe essere questo " .DoCmd.OpenQuery"..
    ma dall'aver scoperto quale potrebbe essere il codice, a scrivere il codice per il mio scopo, per me c'e' l'universo di mezzo...
    Qualcuno di vopi riesce ad aiutarmi per favore?




  2. #2
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buon pomeriggio, Rossomike;
    quello che mi sento di consigliarti è di utilizzare il registratore di macro.
    Il risultato potrebbe essere una cosa di questo genere:

    Codice: 
    Option Explicit
    
    Sub Servizi_Access()
    Application.ScreenUpdating = False
        Cells.ClearContents    
        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
            "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=C:\ACCESS\File.mdb;M" _
            , _
            "ode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=" _
            , _
            """"";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transacti" _
            , _
            "ons=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't" _
            , _
            " Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=" _
            , _
            "False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=Fals" _
            , "e"), Destination:=Range("$A$1")).QueryTable
            .CommandType = xlCmdTable
            .CommandText = Array("Servizzi")
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .SourceDataFile = "C:\ACCESS\File.mdb"
            .Refresh BackgroundQuery:=False
        End With    
    Application.ScreenUpdating = True
        Cells(2, 1).Select
    End Sub
    In realtà, questo codice scarica una "Tabella", ma credo che, Registratore di macro funzioni in modo analogo anche sulle Query.

    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  3. #3
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Ciao Rossomike Per quanto ne sappia Io Tu puoi puoi inserire in un Modulo , Che riciami il tutto attraverso un Pulsante.

    'Questo Codice ti Servirà per Esportare da Access a Excel i Propri Dati

    Private Sub Cmd_Exporta_Click()
    DoCmd.TrasferSpreadsheet acExport, , me.RecordSource, "C:\prova.xlsx"
    end sub

    'Al Contrario de al posto di (acExport, , ) ecc...!
    Stivi la parola acInport, , ecc...! Ottieni l'azione Contraria


Discussioni Simili

  1. Query excel
    Di cammellone nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 19/12/16, 22:49
  2. [Risolto] errore esecuzione macro su excel 2010
    Di ratner nel forum Domande su Excel VBA e MACRO
    Risposte: 20
    Ultimo Messaggio: 29/09/16, 13:14
  3. Excel 2016 e le power query.
    Di Davide1969 nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 20/08/16, 00:36
  4. Collegamento automatico di una query di access a un foglio excell
    Di KARLO16 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 01/07/16, 11:51
  5. Protect sheets con connessione Access (query -> pivot)
    Di tamaeril nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 11/03/16, 16:23

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •