Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro per importare dati file txt in excel 3

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 3

Postdi alaves12 » 04/05/09 18:54

Grazie a questo forun e in particolar modo a Flash30005 sono riuscito a creare una macro che va a leggere in un file txt e importa dati in un foglio excel. Ora tanto per completare le mie info avrei bisogno di andare a "catturare" altri dati: vorrei fare in modo di mettere in un foglio i risultati dei miei avversari.
Ci dovrebbe essere essere un controllo se il numero torneo è già stato inserito ( questo potrebbe farlo dalla pagine iniziale, purtroppo capita...), se no vado sul mio foglio "oppo" e cerco se nella colonna "Giocatore" se esiste già, se non esiste lo inserisco e metto uno nella riga corrispondente alla posizione numero 1.
Se il giocatore è alaves12, sono io e posso anche saltarlo.
Il nome dell' avversario va bene sia esempio: " IHateScrNms " che " IHateScrNms (PAESE) " , come siete più comodi.
Se arrivo ad un giocatore che è già arrivato ottavo e nella corrispondente cella ho 1 il programma dovrebbe in automatico crescere di 1 quindi =2. Le info che mi servono sono queste, non mi interessa vincita ne altro.


Alla fine va bene se li metto in ordine alfabetico la colonna A in questo modo ?

Sub prova()
'
' prova ordine alfabetico
Range("A4").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWorkbook.Worksheets("Oppo").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Oppo").Sort.SortFields.Add Key:=Range("A4:A11"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Oppo").Sort
.SetRange Range("A4:J11")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Chiedo troppo ?
In allegato vi metto file esempio txt e il foglio excel da cui parto.

Grazie
Paolo

Esempio ( anche in allegato poker.txt)
PokerStars Torneo #159742931, No Limit Hold'em
Buy-in: $6.00/$0.50
9 giocatori
Montepremi totale: $54.00
Torneo iniziato 29/04/2009 17:17:09 ET
Torneo finito 29/04/2009 17:58:06 ET
1: IHateScrNms (Lawrence), $27.00 (50%)
2: Lord-Quantus (Chambly), $16.20 (30%)
3: schwimmbutz (Cologne), $10.80 (20%)
4: lil pugg (Buchen),
5: christiaan26 (de wilp),
6: caputoro (Banchette),
7: phshon (San Francisco),
8: alaves12 (magenta),
9: GMyster0167 (Edensor Park),

Ti sei piazzato al 8° posto (eliminato alla mano #27635982963).

14 mani giocate e ha visto il flop:
- 2 volte su 2 dallo small blind (100%)
- 2 volte su 2 dal big blind (100%)
- 1 volte su 10 da un'altra posizione (10%)
- un totale di 5 volte su 14 (36%)

Piatti vinti allo showdown - 0 su 2 (0%)
Piatti vinti senza showdown - 3
Allegati

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

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

Sponsor
 

Re: Macro per importare dati file txt in excel 3

Postdi alaves12 » 07/05/09 18:30

Ciao a tutti,
con la procedura di prima mi sto perdendo. provo a fare in altro modo: prima di tutto tramite vettore sto provando a riempire per ogni colonna i dati che mi servono: che sono numero torneo, primo, secondo, ecc.
Poi una volta riempito il primo foglio con la funzione CONTA.SE riempiro i numeri totali vinti per ogni avversario.
Qualcunoesperto di vettori/matrici mi potrebbe dare una mano ? Quando lancio la mia macro "caricamento" mi esegue 3 volte il ciclo invece che una volta sola...dove sbaglio ?
In allegato il nuovo lavoro con il NUOVO file di testo dove sono sicuro di non avere tornei ripetuti.


Grazie
Paolo
Allegati

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

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


Torna a Applicazioni Office Windows


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


Chi c’è in linea

Visitano il forum: Lucio Peruggini e 6 ospiti