Ciao a tutti, qualcuno conosce qualche software per convertire files txt in xls, quindi file di testo in file excel?
Grazie a tutti
Moderatori: Anthony47, Flash30005
Sub FRA_B77() 'derivato da VISKIO per FRA_B77
'Rif http://www.pc-facile.com/forum/viewtopic.php?t=55989
'Seleziona file
Scegli:
FullNome = Application.GetOpenFilename(Filefilter:="Text files (*.txt), *.txt,Tutti (*.*),*.*", Title:="Seleziona file(s)", MultiSelect:=True)
QuantiFile = UBound(FullNome)
'Segnala file(s) scelto/i e Azione
Mess1 = ">>Selezionati: " & vbCrLf
For I = 1 To QuantiFile
Mess2 = Mess2 & FullNome(I) & vbCrLf
Next I
Mess = Mess1 & Mess2 & vbCrLf & ">> SI per Confermare; NO per Cambiare; CANCEL per abortire"
scelta = MsgBox(Prompt:=Mess, Buttons:=vbYesNoCancel)
If scelta = 2 Then GoTo Esci 'Cancel
If scelta = 7 Then GoTo Scegli 'NO = Riseleziona
'ISTRUZIONI PER IMPORTARE File 1 to QuantiFile
'ISTRUZIONI PER SALVARE e chiudere File-x
Esci:
End Sub
For I=1 to QuantiFile
'..
Workbooks.Add 'Nuovo file
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FullNome(I), Destination:=Range("A1"))
'. . . Vedi NOTE
End With
'. . .
NomeXls = Replace(FullNome(I), ".txt", ".xls")
ActiveWorkbook.SaveAs Filename:= NomeXls, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
'. . .
Next I
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: 5 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 41 ospiti