Moderatori: Anthony47, Flash30005
Sub CreaTxt()
Perc = "C:\"
FileT = "Filetxt.txt"
Open Perc & FileT For Output As #1
Righe = Range("A2").CurrentRegion.Rows.Count
colonne = Range("A2").CurrentRegion.Columns.Count
For RR = 2 To Righe
Stringa = ""
For CC = 1 To colonne
If CC = 1 Then
Stringa = Year(Cells(RR, CC).Value) & UCase(Format(Cells(RR, CC).Value, "mmm")) & Day(Cells(RR, CC).Value)
Else
Stringa = Stringa & Cells(RR, CC).Value
End If
Next CC
Print #1, Stringa
Next RR
Close
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 83 ospiti