Ciao a Tutti Da A. Maurizio
Sono un nuovo Iscritto
Il mio problema che vorrei risolvere usando il VBA
Sarebbe quello di riuscire a creare un file Txt che chiameremo (MyData_2024) e che verrà inserito nella Sottocartella chiamata (MyFile)
Dopodiché Vorrei Creare un altra funzione che mi Riportasse Tutti i Dati Sul Foglio 2 di Excel
Senza però L'uso degli Apici /"") ho virgolette ecc'''!
E per finire vorrei che il tutto fosse suddiviso per le singole celle del foglio di Excel
Cosi come era stato Creato in precedenza.
Voi riuscvireste a darmi una mano per risolvere il tutto Grazie.

Questo e la mia Funzione di prova che ho fatto - Ma Pur estraendo i dati dal file (MyData_2024)
non divide per celle ogni singola voce !

Sub ImportTextFile()

Dim myFile As String
Dim Stringa As String
Dim RR As Long
Dim Data As Variant
Dim i As Long

'crea il nome del file utilizzando i valori delle celle J1 e J2
myFile = ThisWorkbook.Path & "\MyFile\MyData_2024" & ".txt"

'controlla se il file esiste
If Dir(myFile) = "" Then
MsgBox "Il file specificato non è stato trovato.", vbCritical, "Attenzione"
Exit Sub
End If

Application.ScreenUpdating = False
Data = Split(Stringa, vbTab)
'Record è stato aggiunto al foglio di lavoro
RR = Cells(Rows.Count, "A").End(xlUp).Row + 1
If RR = 2 And Cells(1, 1) = "" Then RR = 1

'legge i dati dal file di testo
Open myFile For Input As #1
Do While Not EOF(1)
Line Input #1, Stringa
'verifica se la riga non è vuota
If Stringa <> "" Then
'split della riga in base al carattere di separazione
Data = Split(Stringa, " ")
'copia i dati nella tabella in Excel
For i = 0 To UBound(Data)
Cells(RR, i + 1).Value = Data(i)
Next i
RR = RR + 1

Cells(RR, 1) = Mid(Stringa, 1, 10)
Cells(RR, 2) = Mid(Stringa, 11, 7)
Cells(RR, 3) = Mid(Stringa, 18, 15)

End If
Loop
Close #1

Application.ScreenUpdating = True

End Sub

Dove è che stò sbagliando ! Grazie