Condividi:        

conversione da file di testo a excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

conversione da file di testo a excel

Postdi fra_b77 » 05/01/07 14:40

Ciao a tutti, qualcuno conosce qualche software per convertire files txt in xls, quindi file di testo in file excel?

Grazie a tutti
Fra
fra_b77
Utente Junior
 
Post: 45
Iscritto il: 26/10/06 08:54
Località: Genova

Sponsor
 

Postdi pjfry » 05/01/07 15:14

dipende da cosa ti aspetti di trovare nel foglio excel...
per esempio puoi aprire un foglio excel, andare in 'dati'-'importa dati esterni'-'importa dati' e selezionare il file di testo. A quel punto puoi scegliere come importare i dati in base a come sono separati nel file

sposto nella sezione office :)
Avatar utente
pjfry
Moderatore
 
Post: 8240
Iscritto il: 19/11/02 17:52
Località: terni

Postdi fra_b77 » 05/01/07 15:31

no, io intendevo magari aver la possibilità di selezionare vari files excel in una cartella e convertirli in blocco
Fra
fra_b77
Utente Junior
 
Post: 45
Iscritto il: 26/10/06 08:54
Località: Genova

Postdi Anthony47 » 06/01/07 21:04

Ciao Fra,
non conosco un software che faccia quello che tu dici, ma lo puoi fare col vba; ad esempio guarda questa discussione, dove c' era il problema di importare un file in un foglio excel, problema affrontato con la funzione GetFilename.
http://www.pc-facile.com/forum/viewtopic.php?t=52931

Volendo tu fare l' operazione su un blocco di file txt, potresti partire con questa macro in un foglio pilota:

Codice: Seleziona tutto
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


La macro ti apre l' interfaccia GetFilename con cui puoi selezionare 1 o piu' file txt, che vengono memorizzate nella matrice FullNome (Full path + nome file).
Per aprire i file dovrai eseguire un ciclo del tipo
Codice: Seleziona tutto
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


Per quanto riguarda le istruzioni sotto With (vedi sopra), esse devono descrivere come vuoi importare il file txt (es formato dei campi) e quale e' il suo formato (es separatori di campo); vedi il topic di Viskio per un esempio (lì i campi erano separati da spazi), oppure registra una nuova macro in cui setti i parametri corretti e poi copia il codice all' interno della nostra macro.

Spero che quanto detto ti dia un utile punto di partenza.

Ciao,
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "conversione da file di testo a excel":


Chi c’è in linea

Visitano il forum: Nessuno e 41 ospiti