Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

FORM PER CREAZIONE FILE DI TESTO

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

FORM PER CREAZIONE FILE DI TESTO

Postdi ingstru » 11/03/13 11:15

Avrei bisogno di cheare una form che mi permetta di creare un file di testo vuoto con indirizzo e nome del file a
scelta dell'utente e di recuperare l'indirizzo completo del file per poterci inserire valori calcolati con una macro che ho già realizzato.
Ho provato ad utilizzare il metodo
Application.Dialogs(xlDialogOpen).Show
ma non riesco a limitare la possibilità di salvare solo file txt e a recuperare l'indirizzo del file.
Ringrazio anticipatamente chi mi vorrà aiutare.
ingstru
Newbie
 
Post: 9
Iscritto il: 11/03/13 11:04

Sponsor
 

Re: FORM PER CREAZIONE FILE DI TESTO

Postdi Flash30005 » 11/03/13 11:30

Ciao Ingstru, benvenuto nel Forum

due routine standard (una per scrivere in un file testo e una per leggerlo)
sono queste:
Codice: Seleziona tutto
Sub ScriveTxt()
UR = Range("A" & Rows.Count).End(xlUp).Row
Perc = "C:\Temp\"
Open Perc & "Pippo.txt" For Output As #1
For RR = 1 To UR
Print #1, Range("A" & RR).Value
Next RR
Close #1
End Sub


Codice: Seleziona tutto
Sub LeggeTxt()
Perc = "C:\Temp\"
Open Perc & "Pippo.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, Riga
        MR = Riga
        MsgBox MR
    Loop
Close #1
End Sub


Dove il Perc è da impostare (lo si può fare in diversi modi)
La prima routine scrive tutto ciò che esiste nella colonna A del foglio di excel
La seconda tramite message box visualizza riga per riga ciò che c'è nel file testo

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: FORM PER CREAZIONE FILE DI TESTO

Postdi ingstru » 11/03/13 11:43

Grazie mille a flash30005 per la velocissima risposta, il mio problema è l'impostazione del percorso
che mi piacerebbe fosse a discrezione dell'utilizzatore,
come detto sopra, vorrei fare scegliere il percorso da una finestra tipo
Application.Dialogs(xlDialogOpen).Show
limitando la scelta ai soli file di testo ed infine memorizzare in una variabile
l'indirizzo completo del file. Stò urtilizzando excel 2007.

Grazie
ingstru
Newbie
 
Post: 9
Iscritto il: 11/03/13 11:04

Re: FORM PER CREAZIONE FILE DI TESTO

Postdi ingstru » 11/03/13 14:57

Scusate ma sono un principiante, per poter fare quanto ho descritto, conviene creare una nuova form?
Chi mi può dare un' indizio?

Grazie
ingstru
Newbie
 
Post: 9
Iscritto il: 11/03/13 11:04

Re: FORM PER CREAZIONE FILE DI TESTO

Postdi Anthony47 » 11/03/13 15:37

Penso che questo codice in testa alla tua macro dovrebbe fare quel che chiedi:
Codice: Seleziona tutto
fileSName = Application.GetSaveAsFilename(InitialFileName:="", _
    fileFilter:="Text Files (*.txt), *.txt", Title:="Scegli una directory e assegna un nome al file")
If fileSName = False Then
    MsgBox ("Non e' stato impostato il nome di salvataggio, procedura fallita")
    Exit Sub
End If
'continua
'Directory e nome prescelto sono nella variabile fileSName
'

Se non viene assegnato nessun nome la macro segnala l' errore e si termina, altrimenti il nome completo (Directory e nome prescelto) sono nella variabile fileSName, che userai nel tuo codice.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: FORM PER CREAZIONE FILE DI TESTO

Postdi ingstru » 11/03/13 16:48

Anthony47 ha scritto:Penso che questo codice in testa alla tua macro dovrebbe fare quel che chiedi:
Codice: Seleziona tutto
fileSName = Application.GetSaveAsFilename(InitialFileName:="", _
    fileFilter:="Text Files (*.txt), *.txt", Title:="Scegli una directory e assegna un nome al file")
If fileSName = False Then
    MsgBox ("Non e' stato impostato il nome di salvataggio, procedura fallita")
    Exit Sub
End If
'continua
'Directory e nome prescelto sono nella variabile fileSName
'

Se non viene assegnato nessun nome la macro segnala l' errore e si termina, altrimenti il nome completo (Directory e nome prescelto) sono nella variabile fileSName, che userai nel tuo codice.

Ciao


Grazie mille, perfetto, conosco equazioni a non finire ma questi elementi che per voi possono essere banali per me sono ancora ostici.
ingstru
Newbie
 
Post: 9
Iscritto il: 11/03/13 11:04


Torna a Applicazioni Office Windows


Topic correlati a "FORM PER CREAZIONE FILE DI TESTO":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti