ho una macro che riesce a aprire e salvare un file csv alla volta indicando però sia i percorsi di entrata che di uscita, in pratica ora:
1.apre il file csv indicato nel percorso;
2.tramite i vettori riscrive i dati sul foglio;
3.salva in xlsx il file.
Vorrei però fare in modo da inserire il percorso della cartella in entrata (e far girare la macro per tutti i file presenti), una volta aperto il file andrebbe chiuso e salvato, rinominando in modo sequenziale 1,2,3.. all'interno di una cartella specificata.
- Codice: Seleziona tutto
Sub ddl()
Dim f As Integer
Dim B As Byte
Dim tutti(100000)
ReDim VETTORE(100000, 100)
f = FreeFile
Open "C:\Users\pietro\Desktop\08395581005_00010200186_SMG1_ANAG_1606_1.csv" For Binary Access Read As #f
i = 1
j = 1
Do While Not EOF(f)
Get #f, , B
If B <> 59 And B <> 10 And B <> 13 Then
VETTORE(i, j) = VETTORE(i, j) & Chr(B)
Else
If B = 59 Then
j = j + 1
End If
If B = 10 Then
i = i + 1
j = 1
End If
End If
Loop
Close f
For s = 1 To i
For j = 1 To 30
If j = 1 Then
Foglio1.Cells(s, j) = "'" & VETTORE(s, j)
Else
Foglio1.Cells(s, j) = VETTORE(s, j)
End If
Next
Next
ActiveWorkbook.Activate
ActiveWorkbook.SaveAs Filename:="C:\Users\pietro\Desktop\prova.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
