Risultati da 1 a 2 di 2

Discussione: Aggiornare database



  1. #1
    L'avatar di ste75v
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    borgomanero
    Messaggi
    74
    Versione Office
    2013
    Mi Piace ricevuti
    2
    Mi Piace dati
    3

    Aggiornare database

    Buongiorno a tutto il forum , rieccomi qui in bisogno del vostro aiuto.
    Ho un database che necessita di aggiornamento quasi giornaliero.Lancio la macro sul template la quale va a leggere i dati su svariati file e li inserisce nel mio database in celle prestabilite.Il mio problema è che ogni volta che lancio la macro riparte con la creazione da capo del database e dato che i dati sono molti il tempo ogni volta aumenta a dismisura.
    Come si può fare per dire alla macro che deve andare a leggere l'ultimo numero (nome file excel uguale) inserito nella colonna M e partire a leggere e copiare i dati dal numero successivo.
    Grazieeeeee

    Codice: 
    Sub LeggeCopia() Dim oExcel As Excel.Application
    Dim strFile As String
    Dim FileCorrente As Object
    Dim r As Integer
    Set FileCorrente = ActiveSheet
    Set oExcel = New Excel.Application
    ' cartella contenente i file da cui copiare seguita da \
    mFolder = "C:\prove registro atex\CHECK LIST creazione\"
    strFile = Dir(mFolder & "*.xlsx")
    r = 9 'variabile riga
    'inizia ciclo lettura
    Do While strFile <> ""
        ' in oExcel ci vanno a finire di volta in volta _
          i file contenuti nella cartella
        oExcel.Workbooks.Open mFolder & strFile
        
        'copia dati
        FileCorrente.Cells(r, 1) = oExcel.Worksheets("page 1").Cells(11, 5) 'deve copiare i dati dalla cella E11 del file nella cartella "C:\atex inspection prog\CHECK LIST \"  nella cella A9 del foglio aperto
        FileCorrente.Cells(r, 2) = oExcel.Worksheets("page 1").Cells(10, 5)
        FileCorrente.Cells(r, 3) = oExcel.Worksheets("page 1").Cells(14, 5)
        FileCorrente.Cells(r, 4) = oExcel.Worksheets("page 1").Cells(15, 5)
        FileCorrente.Cells(r, 5) = oExcel.Worksheets("page 1").Cells(16, 5)
        FileCorrente.Cells(r, 6) = oExcel.Worksheets("page 1").Cells(12, 5)
        FileCorrente.Cells(r, 7) = oExcel.Worksheets("page 1").Cells(9, 5)
        FileCorrente.Cells(r, 8) = oExcel.Worksheets("page 1").Cells(13, 5)
        FileCorrente.Cells(r, 9) = oExcel.Worksheets("page 1").Cells(8, 5)
        FileCorrente.Cells(r, 10) = oExcel.Worksheets("page 1").Cells(17, 5)
        FileCorrente.Cells(r, 11) = oExcel.Worksheets("page 1").Cells(18, 5)
        FileCorrente.Cells(r, 13) = oExcel.Worksheets("page 1").Cells(4, 18)
        FileCorrente.Cells(r, 14) = oExcel.Worksheets("page 1").Cells(21, 11)
        FileCorrente.Cells(r, 16) = oExcel.Worksheets("page 1").Cells(83, 9)
        FileCorrente.Cells(r, 17) = oExcel.Worksheets("page 1").Cells(84, 9)
        
    
    
        'chiude il file da cui copiare
        oExcel.ActiveWorkbook.Close False
        strFile = Dir
        r = r + 1
    Loop
    ' chiude e azzera variabili
    oExcel.Quit
    Set oExcel = Nothing
    Range("A1").Select
    End Sub

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    44
    Messaggi
    1811
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    608
    Mi Piace dati
    559

    Re: Aggiornare database

    Bisognerebbe scrivere sul file principale, il nome dei file già importati.
    Ma senza file di esempio è difficile aiutarti.
    Prova ad allegare un file senza dati sensibili.

    P.S. La routine importa tutti i file .xlsx nella cartella indicata, quindi si presuppone che i file in questa cartella siano formattati tutti alla stessa maniera (E11, E10, E14 ecc).
    P.P.S. Che conoscenza hai del VBA? Hai scritto tu questa routine?

Discussioni Simili

  1. Aggiornare elenco in automatico
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 20/07/16, 17:00
  2. [Risolto] Aggiornare macro
    Di bobparr nel forum Domande su Microsoft Access
    Risposte: 3
    Ultimo Messaggio: 06/06/16, 15:42
  3. Come faccio ad aggiornare il mio database?
    Di Vincenzo Saporito nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 27/05/16, 19:25
  4. aggiornare dati da un'altra tabella
    Di giesa15 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 11/03/16, 12:10
  5. Aggiornare i dati di un database
    Di John nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 06/11/15, 09:51

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
  •