FORM PER CREAZIONE FILE DI TESTO

[ingstru]

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.

[Flash30005]

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

[ingstru]

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]

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

Grazie

[Anthony47]

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

[ingstru]

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.