Condividi:        

[Excel] Macro per importare file di testo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] Macro per importare file di testo

Postdi alaves12 » 22/05/09 10:43

Ciao,
sono di nuovo qui per chiedere aiuto: con l' imponente aiuto di Flash3005 è stata fatta una macro per importare un file di testo in excel. Ho fatto e rifatto per inserire nuovi campi ed ora facendo doppio click sulla cella A1, o eseguendo la macro caricamento, NON mi importa più il primo torneo del file poker.txt, ma mi prende il numero del primo torneo e poi passa a tutti gli altri dati del secondo. Sono in tilt ho eseguito più volte tutto il debug, ma non trovo l' errore...perchè lo fa ?

grazie in anticipo per l' aiuto.

in allegato i due file

Alaves
alaves12
Utente Junior
 
Post: 21
Iscritto il: 09/04/09 11:20

Sponsor
 

Re: [Excel] Macro per importare file di testo

Postdi Flash30005 » 22/05/09 12:05

beh dovresti postare sia il file programma che il file dati
Quella macro originariamente funzionava quindi se sono state fatte modifiche bisogna vedere perché si presenta quell'inconveniente
Comunque mi sembra di ricordare che la routine cerca una parola chiave (Poker) nel file testo e inizia la procedura di caricamento non vorrei che nella prima parola chiave ci fossero spazi perché in quel caso sfalserebbe la lettura e salterebbe l'intero torneo passando al successivo.
Se è così si può rimediare mettendo un Trim della stringa dopo aver aumentato il numero dei caratteri da valutare (Funzione Mid)

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Macro per importare file di testo

Postdi alaves12 » 22/05/09 13:24

Non riesco ad allegarlo, l' ho zippato e rinominato in .txt, ma mi da questo errore:

"Il limite massimo di allegati impostato è stato raggiunto." E' un file solo !! Ho chiuso e riaperto il browser ma niente.

come posso fare ?

Alaves
alaves12
Utente Junior
 
Post: 21
Iscritto il: 09/04/09 11:20

Re: [Excel] Macro per importare file di testo

Postdi Flash30005 » 22/05/09 13:32

alaves12 ha scritto:Non riesco ad allegarlo, l' ho zippato e rinominato in .txt, ma mi da questo errore:
"Il limite massimo di allegati impostato è stato raggiunto." E' un file solo !! Ho chiuso e riaperto il browser ma niente.
come posso fare?


credo non si possano superare i 50 kb con il file testo
quindi parcheggia su rapidshare sia il programma che i dai in un unico archivio
a questo indirizzo
http://www.rapidshare.com/
appena effettuato l'upload ti rilascerà 2 indirizzi
1) per il download
2) per deletare il file
Se ci sono dati personali me li mandi in Mp

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Macro per importare file di testo

Postdi alaves12 » 22/05/09 13:44

alaves12
Utente Junior
 
Post: 21
Iscritto il: 09/04/09 11:20

Re: [Excel] Macro per importare file di testo

Postdi Flash30005 » 26/05/09 21:56

alaves12 ha scritto:...
è stata fatta una macro per importare un file di testo in excel. Ho fatto e rifatto per inserire nuovi campi ed ora facendo doppio click sulla cella A1, o eseguendo la macro caricamento, NON mi importa più il primo torneo del file poker.txt, ma mi prende il numero del primo torneo e poi passa a tutti gli altri dati del secondo. Sono in tilt ho eseguito più volte tutto il debug, ma non trovo l' errore...perchè lo fa ?


Ho ricontrollato la macro e in effetti salta il primo torneo comuqnue applicando questa modifica dovresti risolvere, quindi applicala e fai le prove
Codice: Seleziona tutto
Do Until EOF(1)
     Line Input #1, Riga

Comincia:      '<<<<<< etichetta da mettere

     If Trim(Mid(Riga, 1, 2)) = "" Or Mid(Riga, 1, 10) = "Montepremi" Or Mid(Riga, 1, 12) = "Se hai delle" Then GoTo saltaR
     If Mid(Riga, 1, 5) = "Poker" And Y <> 0 Then
        Call Compila
        X = 0
     End If
     X = X + 1
     If X = 14 Then
        Y = 1
        X = 1

        GoTo Comincia '<<<<< Goto da inserire al posto di quello esistente (qui soto)
        'GoTo saltaR  '<<<< goto da cancellare

     End If


In questa parte di codice della macro Sub Caricamento inserisci le due righe con '<<<<<< e commenta o cancella il Goto saltaR

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Macro per importare file di testo

Postdi alaves12 » 28/05/09 11:08

Grazie mille !!!
Funziona alla grande,


Alaves12
alaves12
Utente Junior
 
Post: 21
Iscritto il: 09/04/09 11:20


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Macro per importare file di testo":


Chi c’è in linea

Visitano il forum: Nessuno e 59 ospiti