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
    87
    Versione Office
    2013
    Utile ricevuti
    2
    Utile 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à
    45
    Messaggi
    2180
    Versione Office
    Excel 2013
    Utile ricevuti
    826
    Utile dati
    726

    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. [Risolto] Aggiornare una cella
    Di svizzera nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 03/02/17, 07:41
  2. Aggiornare una lista
    Di MarioBagus nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 28/12/16, 19:13
  3. [Risolto] Aggiornare macro
    Di bobparr nel forum Domande su Microsoft Access
    Risposte: 3
    Ultimo Messaggio: 06/06/16, 14:42
  4. Come faccio ad aggiornare il mio database?
    Di Vincenzo Saporito nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 27/05/16, 18:25
  5. Aggiornare i dati di un database
    Di John nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 06/11/15, 08: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
  •