maurizio.ma, 08/06/2022 15:47:Dim Originale 60 Kb, zippato 58 Kb
L2018, 08/06/2022 16:08:ho caricato io a mano il csv nel file, dove però c'è anche la macro se ti serve altro devi aspettare chi sa manomettere la macro ma io non vedo errori di date, a occhio mi sembrano tutte GG MM AAAA forse nel file che ti ho dato devi reinserire la TUA macro perchè io ho cambiato inutilmente il il nome da Movimenti a Foglio1 sì, adesso sono riuscito a farla funzionare ed in effetti ho visto l'errore che dichiari, dobbiamo aspettare l'esperto LEO
Sub Carica() ' ' Carica Macro ' ' Scelta rapida da tastiera: CTRL+c ' ' Azzera foglio Movimanti Worksheets("Movimenti").Select Cells.ClearContents ' Call SelezionaFile(NomeFile, FlagErrore) If FlagErrore = True Then MsgBox " Non è stato scelto il file, ripetere" GoTo Fine End If Worksheets("Movimenti").Select Open NomeFile For Input As #1 Riga = 1 Do Until EOF(1) Line Input #1, Linea Matrice = Split(Linea, ";") Col = UBound(Matrice) - LBound(Matrice) + 1 For I = 1 To Col d = Matrice(I - 1) If I = 1 Or I = 2 Then If IsDate(d) Then Cells(Riga, I) = CDate(d) Else Cells(Riga, I) = d ElseIf I = 5 And IsNumeric(d) Then Cells(Riga, I) = CDbl(d) Else Cells(Riga, I) = Matrice(I - 1) End If Next I Riga = Riga + 1 Loop Close #1 Fine: End Sub