La macro apre il file AccountStatement_All.csv, che e' un file di testo non ancora "incolonnato" nel foglio Excel; quindi immagino che per prima cosa bisognera' fare un Testo in colonna.
Pero' mi sembra strano che tu non abbia notato questo problema (del mancato Testo in colonna iniziale), perche' le operazioni successive (copia in Sheets("betfaire"), ordinamento, formattazione, Sub adattoprelievo e quant'altro sono basate su un testo incolonnato) insomma non vorrei banalizzare troppo.
Ho quindi registrato una macro che esegue il testo in colonna del foglio su cui viene aperto il file AccountStatement_All.csv; corrisponde a questo codice:
- Codice: Seleziona tutto
Sub TTCol()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.DisplayAlerts = False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 4), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
Columns("A:A").Select
Application.DisplayAlerts = True
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub
Ho quindi "chiamato" questa macro con la Call TTCol inserita all'interno della tua Sub prel1betfr() in questa posizione:
- Codice: Seleziona tutto
Worksheets("AccountStatement_All").Activate ' <<< il foglio dal quale dove preleva
Call TTCol 'AGGIUNTA, Chiamata alla Sub TestoInColonna
Range("a2:h1000").Copy ' il range di righe su cui operare
Questo consente di fare qualche passo in piu', e quindi arrivare in buona salute alla Sub adattoprelievo(), che pero' fallisce nell'istruzione
aTabella(nRiga, 2) = Mid(aTabella(nRiga, 2), 1, InStr(aTabella(nRiga, 2), "ID") - 2)
semplicemente perche' quella istruzione estrae una stringa (funzione Mid) fino alla posizione in cui viene trovata la sottostringa "ID", che in quel csv e' assente, salvo qualche comparsata in parole quali Madrid, Valladolid, Videoton e simili. A sentimento direi che probabilmente stai cercando di recuperare quelli che ora vengono chiamati " Ref: ", ma solo chi ha fatto la macro puo' saperlo.
Insomma devi riesaminare il compito che avevi assegnato a quella macro e trovare un'altra via per ottenere il risultato; a meno che non sia errato il contenuto del file Csv.
Non sapendo come e' stato ottenuto il csv (mi pare la copia parziale di un sorgente html) non so dire di piu'...
Ciao
Registrazione
- bene
