Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro per importare dati file txt in excel

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

macro per importare dati file txt in excel

Postdi biancocandido55 » 02/04/09 20:25

Un ciao a tutti,
ho una richiesta di aiuto da esporre, si tratta di questo:
giornalmente mi arriva un file formato txt e i dati sopra riportati sono alcune serie di stringhe che identificano le entrate e le uscite di tipo SLA di persone, il formato di come mi arrivano i dati è il seguente:
Codice: Seleziona tutto
UPE00543210104200915390001
EPE00543210104200907490001
UZL09876540104200915500001
EZL09876540104200907380001
UFV03456780104200915210001
EFV03456780104200907500001
UBF02020480104200915500001
EBF02020480104200908160001
UGM04585700104200915400001
EGM04585700104200907550001

per spiegare il loro significato ne scompongo 1 così:
E PE0054321 01042009 07490001
la prima lettera sta per entrata o uscita
il secondo gruppo idenfica la persona
il terzo è la data
ed il quarto l'orario.
La macro che mi serve, dovrebbe importare il file e disporre le stringhe in una tabella, dove
ci sono solo i nomi delle persone gia inseriti.
la tabella
Codice: Seleziona tutto
COGNOME          MATRICOLA    ENTRATA      USCITA      GIORNO
PIPPO            PE0054321    07490001     15390001   01042009
PLUTO            ZL0987654    07380001     15500001   01042009
TOPOLINO         FV0345678    07500001     15210001   01042009
MINNI            BF0202048    08160001     15500001   01042009
PAPERINO         GM0458570    07550001     15400001   01042009
oltre ai nomi, gli altri dati li ho inseriti solo per spiegare come si dovrebbero abbinare dopo aver eseguito la macro, la tabella alla fine dovrà risultare con le celle formattate nel formato dovuto, cioè cognome e matricola formato testo, entrata ed uscita formato ora del tipo hh.mm.ss. e giorno in formato data gg-mm-aa
Rimango in attesa e ringrazio già da ora chunque vorrà darmi una mano.
Un ciao a tutti
biancocandido
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Sponsor
 

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 03/04/09 02:11

Ho cercato di risolvere con una macro così:
Codice: Seleziona tutto
Sub Caricamento()
Y = 2
Open "C:\SLAFile.txt" For Input As #1

Do Until EOF(1)
     Line Input #1, Riga
     Ev = Mid(Riga, 1, 1)
     CC = 3
     If Ev = "U" Then CC = 5
     Matr = Mid(Riga, 2, 9)
     Giorno = Mid(Riga, 11, 8)
     DataF = Mid(Giorno, 5, 4) & Mid(Giorno, 3, 2) & Mid(Giorno, 1, 2)
     Ora = Mid(Riga, 19, 8)
     Giorno = Format(Mid(Giorno, 1, 2) & "-" & Mid(Giorno, 3, 2) & "-" & Mid(Giorno, 5, 4), "mm-dd-yyyy")
     Ora = Mid(Ora, 1, 2) & ":" & Mid(Ora, 3, 2) & ":" & Mid(Ora, 5, 2)
esci = 0
     For I = 2 To Y
        If Sheets("Dati").Cells(I, 2).Value = Matr Then
            If Format(Sheets("Dati").Cells(I, CC + 2).Value, "dd-mm-yyyy") = Format(Giorno, "mm-dd-yyyy") Or Format(Sheets("Dati").Cells(I, CC - 2).Value, "dd-mm-yyyy") = Format(Giorno, "mm-dd-yyyy") Then
                Sheets("Dati").Cells(I, CC).Value = Giorno
                Sheets("Dati").Cells(I, CC + 1).Value = Ora
                esci = 1
                Exit For
            End If
        End If
     Next I
     If esci = 1 Then GoTo salta
            Sheets("Dati").Cells(Y, 1).FormulaR1C1 = "=IF(RC[1]="""","""",VLOOKUP(RC[1],Elenco!R2C:R300C[1],2,FALSE))"
            Sheets("Dati").Cells(Y, 2).Value = Matr
            Sheets("Dati").Cells(Y, CC).Value = Giorno
            Sheets("Dati").Cells(Y, CC + 1).Value = Ora
     Y = Y + 1
salta:
Loop
Close #1
inpfile = "C:\SLAFile.txt"
outfile = "C:\" & DataF & "_SLA.txt"

On Error Resume Next
FileCopy inpfile, outfile
On Error GoTo 0
End Sub

ho utilizzato un foglio "Elenco" dove inserirai l'elenco dei nomi e la rispettiva matricola
nel foglio dati si caricheranno i dati del file testo come da te descritto utilizzando la macro.
la macro provvede anche a rinominare il file testo che ho posizionato in C:\SLA.txt (variando questo percorso va modificata la macro) il nome del file processato avrà la data + nome precedente (nel tuo caso 20090401_SLA.txt) ho preferito usare il formato yyymmdd per avere l'ordine cronologico nella cartella archivio dei file txt

Allego l'intero file così potrai testarlo e adattarlo meglio alle tue esigenze
ciao
Allegati

[L’estensione zip è stata disattivata e non puó essere visualizzata.]

Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro per importare dati file txt in excel

Postdi biancocandido55 » 03/04/09 13:55

Ciao Flash30005,
non so proprio come poterti ringraziare, per l'aiuto che mi hai dato, sembra una cosina da niente, ma mi hai tolto da un bell' impiccio, la macro funziona alla grande (come del resto tutti quelli di questo grande forum).
Se ci dovessero essere ulteriori sviluppi di questo prog. mi farò vivo per questo argomento.
Ti rinnovo i miei ringraziamenti,
ciao
bianco
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 03/04/09 15:29

L'unica cosa se non vuoi cambiare file di excel ogni volta (un fiel al giorno) ma continuare a scrivere accodando i dati penso tu debba sostituire il valore iniziale
Y= 2 con
Codice: Seleziona tutto
Y = Range("B" & Rows.Count).End(xlUp).Row + 1

In questa maniera i dati si accoderanno solo se avranno una data diversa e/o matricola diversa
Mentre stavo facendo le prove per vedere l'accodamento mi sono accorto di un bug (purtroppo con le date formato americano e europeo si incorre spesso in questi inconvenienti) il valore data veniva impostato diversamente e non ottenevo la scrittura di Entrata e Uscita sulla stessa riga.
Ho modificato il codice che dovresti copiare e incollare in sostituzione della vecchia macro
Codice: Seleziona tutto
Sub Caricamento()
Y = Range("B" & Rows.Count).End(xlUp).Row + 1
Open "C:\SLAFile.txt" For Input As #1

Do Until EOF(1)
     Line Input #1, Riga
     Ev = Mid(Riga, 1, 1)
     CC = 3
     If Ev = "U" Then CC = 5
     Matr = Mid(Riga, 2, 9)
     Giorno = Mid(Riga, 11, 8)
     DataF = Mid(Giorno, 5, 4) & Mid(Giorno, 3, 2) & Mid(Giorno, 1, 2)
     Ora = Mid(Riga, 19, 8)
     Giorno = Format(Mid(Giorno, 1, 2) & "-" & Mid(Giorno, 3, 2) & "-" & Mid(Giorno, 5, 4), "mm-dd-yyyy")
     Ora = Mid(Ora, 1, 2) & ":" & Mid(Ora, 3, 2) & ":" & Mid(Ora, 5, 2)
esci = 0
     For I = 2 To Y
        If Sheets("Dati").Cells(I, 2).Value = Matr Then
            If Format(Sheets("Dati").Cells(I, CC + 2).Value, "mm-dd-yyyy") = Giorno Or Format(Sheets("Dati").Cells(I, CC - 2).Value, "mm-dd-yyyy") = Giorno Then
                Sheets("Dati").Cells(I, CC).Value = Giorno
                Sheets("Dati").Cells(I, CC + 1).Value = Ora
                esci = 1
                Exit For
            End If
        End If
     Next I
     If esci = 1 Then GoTo salta
            Sheets("Dati").Cells(Y, 1).FormulaR1C1 = "=IF(RC[1]="""","""",VLOOKUP(RC[1],Elenco!R2C:R300C[1],2,FALSE))"
            Sheets("Dati").Cells(Y, 2).Value = Matr
            Sheets("Dati").Cells(Y, CC).Value = Giorno
            Sheets("Dati").Cells(Y, CC + 1).Value = Ora
     Y = Y + 1
salta:
Loop
Close #1
inpfile = "C:\SLAFile.txt"
outfile = "C:\" & DataF & "_SLA.txt"

On Error Resume Next
FileCopy inpfile, outfile
On Error GoTo 0
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro per importare dati file txt in excel

Postdi biancocandido55 » 03/04/09 20:06

Ciao Flash30005,
scusa......, ma ....., puoi dirmi se stai frequentando anche la scuola di chiarovegenza Immagine , e su..., e dai...., comunque come diceva Antonio buon anima "abbundandis abbundandum", credo che per qualche giorno le useremo tutte e due, per vedere poi quale ci rimarrà più pratica da usare in futuro.
Ti rinnovo i ringraziamenti e i saluti,
un abbraccio, grazie, ciao.
bianco
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: macro per importare dati file txt in excel

Postdi biancocandido55 » 06/04/09 07:59

Per Flash 30005,

Ciao Flash, ho fatto ulteriori prove con la seconda macro ma mi ero limitato soltanto a 2 giornate, quando ho inserito il 3° giorno, mi si è sovrascritto al 2° gg.
Se puoi correggermi la macro??!!, puoi modificare anche la riga che carica i file e far si che, si apra la finestra delle directory, in modo da poter scegliere uno o più file da caricare.
E volevo chiederti se puoi integrare la macro facendogli estendere l'orario spalmandolo su più fogli, 1 foglio per ogni nominativo (per fortuna i nomi da controllare sono solo 8 ).
Ti ringrazio come sempre per il tuo aiuto.
Tuo Debitore, grazie
bianco55
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 06/04/09 21:46

biancocandido55 ha scritto:Per Flash 30005,
Ciao Flash, ho fatto ulteriori prove con la seconda macro ma mi ero limitato soltanto a 2 giornate, quando ho inserito il 3° giorno, mi si è sovrascritto al 2° gg.

Questo non dovrebbe accadere a meno ché il 3° giorno non è uguale al 2° giorno, fai attenzione ai turni se ci sono(Entrata GiornoA, Uscita GiornoB), in quanto dopo la mezzanotte avrai un giorno diverso e questo il programma non lo prevede.
biancocandido55 ha scritto:Se puoi correggermi la macro??!!, puoi modificare anche la riga che carica i file e far si che, si apra la finestra delle directory, in modo da poter scegliere uno o più file da caricare.

Per fare questo si deve creare un elenco di file .txt ma in quella cartella (nel mio caso Root) ci sono solo quei file txt? Mi dovresti dire che nome hanno questi file per evitare di rielaborare quelli che rinominiamo e anche il percorso della cartella che contiene i file txt che devi caricare. Non è corretto avere file con lo stesso nome in cartelle diverse.
biancocandido55 ha scritto:E volevo chiederti se puoi integrare la macro facendogli estendere l'orario spalmandolo su più fogli, 1 foglio per ogni nominativo (per fortuna i nomi da controllare sono solo 8 ).

Si complica ma... Si può fare.
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 06/04/09 23:00

Ho supposto che userai una cartella SLA inserita nella root di C:\
e i file txt avranno come nome originale la data per differenziarli es. 20090401_SLA.txt (file Sla del 01/04/2009)
Nella cartella SLA potranno esserci centinaia di file .txt così nominati.
Il programma provvede a creare un elenco (sempre nuovo) dei file contenuti nella cartella, scriverà due file testo con l'elenco dei file da processare, li processerà, aggiornerà i fogli "spalmati" per matricola e man mano che finisce di processare il file, questo, sarà spostato nella cartella ArchivioTxt (dei file .txt).

L'archivio compresso allegato contiene tutto l'occorrente, devi solo scompattarlo e mettere la cartella SLA con il suo contenuto in C:\.

Ciao

N.B. L'unico file che potrà essere rinominato e/o spostato ovunque è il file di Excel (SLA3.xls)
Allegati

[L’estensione rar è stata disattivata e non puó essere visualizzata.]

Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro per importare dati file txt in excel

Postdi biancocandido55 » 07/04/09 20:19

Ciao Flash30005,
ti ringrazio dell'aiuto che mi stai offrendo, ho scaricato il file, domani lo porto al lavoro e lo provo con i miei colleghi.
sul nome del file ci sei andato vicinissimo "estratti_ORARIUFF-20090401_20090401.TXT", faro subito gli adattamenti del caso, ma ancora non mi hai detto il nome della scuola di chiarovegenza che frequenti :lol: :lol: ,
ti ringrazio nuovamente, un abbraccio
ciao
bianco
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 07/04/09 21:53

Per adattarlo al tuo nome file.txt devi solo sostituire la riga nel file CreaElenco.bat da
dir /B C:\SLA\????????_SLA.txt > C:\SLA\Elenco.txt
a
dir /B C:\SLA\estratti_ORARIUFF??????????????????.txt > C:\SLA\Elenco.txt
o più semplicemente
dir /B C:\SLA\estratti_ORARIUFF*.txt > C:\SLA\Elenco.txt
se la cartella SLA è dedicata solo ai file orario allora può andar bene anche
dir /B C:\SLA\estratti*.txt > C:\SLA\Elenco.txt (purche la radice del nome dei file sia sempre "estratti" e non ci siano altri file con questa radice, insomma penso che sia comprensibile la "tecnica"... ;)

Per quel che concerne la chiaroveggenza :) non ti preoccupare è solo frutto di esperienza e di cercare di mettersi nei panni del prossimo...
A proposito come mai non ti interessa avere in automatico le ore effettivamente lavorate ricavandole da Orario Uscita - Orario Entrata? Invece che intervenire manualmente?

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro per importare dati file txt in excel

Postdi biancocandido55 » 07/04/09 23:08

Ciao Flash,
Fla30005 ha scritto:
A proposito come mai non ti interessa avere in automatico le ore effettivamente lavorate ricavandole da Orario Uscita - Orario Entrata? Invece che intervenire manualmente?

Ah, ma allora..., così mi inviti a nozze?, Immagine, dove si fa festa?,Immagine chi è il testimone?

Scommetto che hai già organizzato qualcosa nello stesso momento in cui hai scritto la domanda!

Che cosa posso dirti! Perchè no!, va bene!, io sicuramente lo avrei chiesto, ma ci sarei arrivato per gradi, non

volevo essere troppo invadente, troppa grazia Sant'Antonio, (o per meglio dire Santo Flash30005) :lol: :lol: :lol:, la

cosa certa è che un programma completo di tutto punto non me lo aspettavo proprio.

Penso anche, che magari cosi facendo, sicuramente accontenteresti non solo me, ma anche qualche altro amico del

forum.

Ti rinnovo i saluti, un abbraccio, grazie e ciao
biancoImmagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 08/04/09 00:15

Ok,
Allora senza che rispedisco l'intero file solo per un codice da aggiungere nella macro posto la modifica della macro precedente
Parte della macro precedente:
Codice: Seleziona tutto
            If esci = 1 Then GoTo salta
            Sheets(Matr).Cells(Y, 1).FormulaR1C1 = "=IF(RC[1]="""","""",VLOOKUP(RC[1],Elenco!R2C:R300C[1],2,FALSE))"
            Sheets(Matr).Cells(Y, 2).Value = Matr
            Sheets(Matr).Cells(Y, 7).FormulaR1C1 = "=RC[-1]-RC[-3]"     '<<<<< AGGIUNGERE QUESTA RIGA
            Sheets(Matr).Cells(Y, CC).Value = Giorno
            Sheets(Matr).Cells(Y, CC + 1).Value = Ora
            Y = Y + 1
salta:

Dovrai mettere nella Cella G1 di ogni foglio una testata es. Diff_OreMin o OreMinLav etc, formattare l'intera colonna G in formato Ora hh:mm o come desideri visualizzare il risultato.

Aggiungo che la differenza orario così effettuata considera la timbratura entrata e uscita nella giornata ma se nella giornata (obbligatoria per legge) c'è una pausa pranzo allora devi sostituire quella riga
con questa
Codice: Seleziona tutto
            Sheets(Matr).Cells(Y, 7).FormulaR1C1 = "=RC[-1]-RC[-3]-R1C[1]"

e mettere in H1 il valore della pausa es. 00:30:00 (se di 30 minuti) oppure 00:45:00 (se di 45 minuti).
Usando quest'ultima formula e non mettendo nulla in H1 avrai chiaramente l'intero lasso di tempo che intercorre tra ora uscita-ora entrata per questo la ritengo più versatile.

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro per importare dati file txt in excel

Postdi biancocandido55 » 09/04/09 07:31

Ciao Flash30005,
allora ho fatto girare il programma, funziona benissimo!
Ti ringrazio di tutto.
Più in la se ci saranno eventuali modifiche mi rifarò sentire.
Di nuovo grazie, ciao
Bianco
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: macro per importare dati file txt in excel

Postdi alaves12 » 09/04/09 11:35

Scusate, se mi inserisco in questa discussione, ma ho visto i titolo che proprio fa al caso mio:
Dovrei importate in excel delle informazioni sempre uguali che arrivano da resoconti di questo tipo( che potrei salvare in file txt):

PokerStars Torneo #154098957, No Limit Hold'em
Buy-in: $6.00/$0.50
9 giocatori
Montepremi totale: $54.00
Torneo iniziato 07/04/2009 16:36:30 ET
Torneo finito 07/04/2009 17:13:20 ET
1: bigdogntn (Chattanooga), $27.00 (50%)
2: schnudt (Warendorf), $16.20 (30%)
3: JWayne85 (München), $10.80 (20%)
4: alaves12 (magenta),
5: meaazza (Zuerich),
6: Deam0n18 (Kedainiai),
7: GETTNCRACKED (Claremore),
8: chadhawk (south williamsport),
9: jay4071 (houston),

Ti sei piazzato al 4° posto (eliminato alla mano #26837229515).

44 mani giocate e ha visto il flop:
- 0 volte su 6 dallo small blind (0%)
- 5 volte su 6 dal big blind (83%)
- 5 volte su 32 da un'altra posizione (16%)
- un totale di 10 volte su 44 (23%)

Piatti vinti allo showdown - 1 su 2 (50%)
Piatti vinti senza showdown - 4

PokerStars Torneo #154107864, No Limit Hold'em
Buy-in: $6.00/$0.50
9 giocatori
Montepremi totale: $54.00
Torneo iniziato 07/04/2009 17:11:32 ET
Torneo finito 07/04/2009 17:49:41 ET
1: Xirus (Unna), $27.00 (50%)
2: alaves12 (magenta), $16.20 (30%)
3: RickT1986 (Wassenaar), $10.80 (20%)
4: crapsguy (houston),
5: dealisup (Mississauga),
6: netlak (Baldersheim),
7: shrpmsk (Moscow),
8: crazy vegas (monza),
9: emath2 (Berkley),

Ti sei piazzato al 2° posto (eliminato alla mano #26838791461).

63 mani giocate e ha visto il flop:
- 1 volte su 10 dallo small blind (10%)
- 3 volte su 10 dal big blind (30%)
- 5 volte su 43 da un'altra posizione (12%)
- un totale di 9 volte su 63 (14%)

Piatti vinti allo showdown - 3 su 4 (75%)
Piatti vinti senza showdown - 6


Io vorrei creare un file con le informazioni
Numero Torneo
Buy-in XX + /XX
giocatori
Data ( va bene di inizio torneo )
Posto di alaves12 ( la parte dove sto impazzendo è questa !!!!, come faccio ??
Vincita ( elentuale )
Mani giocate
Percentuale da small blind
Percentuale da big blind
Percentuale da altre posizioni
Percentuale piatti vinti allo showdown
numero mano eliminazione

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

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 09/04/09 12:21

Ciao Alaves
Ok, hai postato le righe contenute nel file Txt
ora se puoi invia un foglio di excel con quello che desideri vada inserito e sarebbe opportuno che mettessi i dati che sono riportati da questo esempio di file testo
es. Posto di alaves12 2 ?
se invii il foglio così formattato risulterebbe più semplice creare la macro

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro per importare dati file txt in excel

Postdi alaves12 » 09/04/09 14:07

Ecco il file di excel a cui sto pensando.
Alaves12
Allegati

[L’estensione zip è stata disattivata e non puó essere visualizzata.]

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

Re: macro per importare dati file txt in excel

Postdi alaves12 » 09/04/09 15:21

Ecco come mi sto muovendo...

'funzione che prende il file e lo smandruppa
Sub elabora()

Dim sNomeFile As String
Dim sLine As String
Dim RigaLibera As Integer

RigaLibera = 1
Sheets("dati").Select
' While (Trim(Range("A" + RigaLibera).Text) <> "")
' RigaLibera = RigaLibera + 1
' Wend
' MsgBox " " + RigaLibera

Sheets("parametri").Select
sNomeFile = Range("B1").Text
Open sNomeFile For Input As #1
While Not EOF(1)
Line Input #1, sNomeFile
If Left(sNomeFile, 10) = "PokerStars" Then
ElaboraBlocco sLine
End If
Wend

Close #1
Sheets("dati").Select

End Sub

Private Sub ElaboraBlocco(sLine As String)

Dim sVettore() As String

sVettore() = Split(sLine, " ")
MsgBox (sVettore(2))

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

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 09/04/09 16:59

alaves12 ha scritto:Ecco il file di excel a cui sto pensando.
Alaves12


Non so perché ma nell'archivio da te postato io non trovo nulla :roll:

puoi inviarlo di nuovo in formato .rar?
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro per importare dati file txt in excel

Postdi alaves12 » 10/04/09 09:01

Ciao,
in effetti mi ha creato un file .zip vuoto...
te lo rimando zippato
Allegati

[L’estensione zip è stata disattivata e non puó essere visualizzata.]

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

Re: macro per importare dati file txt in excel

Postdi biancocandido55 » 10/04/09 10:42

Ciao Flash30005,
tornando un attimo al prog. sla3, come succede quasi sempre, "a casa è un'altra cosa",
la macro e tutte le procedure del prog. SLA3 funzionano perfettamente, al lavoro invece ci sono "i paletti",
potresti modificare la macro in modo che sviluppi il tutto senza l'appoggio del file.bat, perchè al lavoro l'uso del prompt dos, ci è inibito e di conseguenza la macro non gira.
Grazie come sempre di tutto.
bianco
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "macro per importare dati file txt in excel":


Chi c’è in linea

Visitano il forum: raimea, wallace&gromit e 10 ospiti