aggiornare più fogli contemporaneamente

[miko]

ciao,
ho ancora un problema;
ho un elenco di dati disposti su 10 colonne, ma il numero di righe è molto elevato, oltre 300.000, ed excel 2003 dispone solo di 65536 righe.
ho pensato di dividere i dati in più fogli, sempre nella stesse colonne;
questi dati vengono aggiornati, importati, da un file.txt;
per un solo foglio ho usato il seguente codice:

Codice: Seleziona tutto

Sub IMPORTA_dati()
    Range("B65536").End(xlUp).Offset(1, 0).Select
    Set PRIMA_CELLA_VUOTA = Selection
       
    With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;E:\DATI\elenco.Txt", Destination:=PRIMA_CELLA_VUOTA)
etc....

per aggiornare tutti i fogli contemporaneamente ho inserito questo codice in un modulo, non nel foglio, ed ho inserito un ciclo for ..next

Codice: Seleziona tutto

Sub IMPORTA_dati()
   for i=1 to 5
worksheet(foglioi).select
Range("B65536").End(xlUp).Offset(1, 0).Select
    Set PRIMA_CELLA_VUOTA = Selection
       
    With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;E:\DATI\elenco.Txt", Destination:=PRIMA_CELLA_VUOTA)
etc...
next i

ma naturalmente non funziona.
è inutile sottolineare che le ricerche in tal senso non mi hanno dato risultati.
come devo modificare il codice?
grazie miko

[Anthony47]

Usa una macro come questa, che mette le righe in sequenza su Foglio1, Foglio2, etc; i nfogli devono gia' esistere e possono avere qualsiasi nome

Codice: Seleziona tutto

Sub Importfile()
Open "C:\directory\File.txt" For Input As #1
Sh=1      'Foglio da cui vuoi partire
Ri0=0       'Riga da cui vuoi importare sui fogli, -1
Ri=Ri0
Do While Not EOF(1)
    Ri=Ri+1
    Line Input #1, Riga
    Sheets(Sh).cells(Ri,1)=Riga
    if(Ri=65535) then
     Sh=Sh+1
     Ri=Ri0
    End if
Loop
Close #1
End Sub


Il file viene importato senza suddivisione in colonna, se questo invece e' ncessario allora registra una macro mentre fai "Testo in colonna" su ogni foglio del tuo file, poi aggiungi Call Macro1 in coda alla Importfile

Un approccio alternativo e' descritto sul sito Microsoft, vedi qui: http://support.microsoft.com/default.as ... -us;120596

Ciao.

[miko]

buongiorno a tutti,
grazie anthony
ho provato il codice che hai scritto e quello della microsoft che mi hai indicato, ma entrambi inseriscono i valori solo nel foglio 1, quello iniziale, e ripetendo la macro i valori non si accodano ai precedenti ma si sovrappongono;
non trovo niente negli altri fogli.
grazie anche per il suggerimento di "testo in colonne",non conoscevo questa possibilità.
quello che cercavo è una macro che importa i valori contemporaneamente in tutti i fogli
e li accoda a quelli precedenti.
grazie saluti
miko

[miko]

salve
dopo varie modifiche ed i tuoi suggerimenti ci sono riuscito.
grazie anthony
saluti miko