Dialogo finestra in txt

Hai un problema con Excel?

Nuova discussione

Dialogo finestra in txt
di Oscar (utente non iscritto) data: 24/01/2016 15:07:46
Salve a tutti , ho la necessità di salvare un foglio excel in formato txt , ho allegato un esempio che funziona benissimo , ma il mio problema sarebbe quello di aprire subito com la finestra formato .txt anziche l'attuale finestra standard di Excel
di Mauro data: 24/01/2016 20:41:44
Io credo che il tuo problema non sia molto chiaro.
Tu vuoi salvare un foglio excel in formato txt, e fin qua....
Poi questo file txt una volta creato vuoi aprirlo col notepad via macro?

Se così fosse dovrebbe essere qualcosa di questo tipo:

RetVal = Shell("C:WINDOWS otepad.exe C:miofilechehoappenacreato.txt", 1)
Dim RetVal RetVal = Shell("C:WINDOWS otepad.exe C:miofilechehoappenacreato.txt", 1)
di Oscar (utente non iscritto) data: 24/01/2016 22:40:07
Il File riesco a salvarlo va tutto bene, il problema sta nella finestra di dialogo salva File , che mi si apre sempre im formato standard e non in salva .txt , quindi non vedo i file salvati in precedenza , nella barra sottostante mi trovo sempre (Cartella di lavoro di Excel), invece di (Testo Ms-Dos)
di Mauro data: 24/01/2016 23:08:25
Ok allora secondo me bisogna giocare coi parametri del metodo saveas. Il parametro che permette di gestire le diverse estensioni dovrebbe essere fileformat ,
di Oscar (utente non iscritto) data: 24/01/2016 23:11:08
Nel File che ho allegato, ho messo un'immagine di come mi deve apparire la finestra di dialogo,(salva come:Testo (MS-Dos)) e non come (salva come:Cartella di Lavoro di Excel)

di Mauro data: 25/01/2016 05:38:56
Prova così....

Sheets("miofoglio").SaveAs Filename:="D:Reportsmiotesto.txt", FileFormat:=xlTextMSDO

di Oscar (utente non iscritto) data: 25/01/2016 14:47:57
No non mi funziona , ma ho allegato la macro , dove la finestra di dialogo va benissimo , ma non riesco a salavare il foglio mi da Errore (definito dall'applicazione o dall'oggetto)

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim MyDir As String, NomeFile As String
MyDir = ThisWorkbook.Path
With Application.GetSaveAsFilename(InitialFileName:=NomeFile, fileFilter:="File txt, *.txt,Testo Unicode, *.txt")

End With

ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:=NomeFile, FileFormat:="File txt, *.txt,Testo Unicode, *.txt"
    
    '.SaveAs Filename:=NomeFile, FileFormat:=xlUnicodeText
    .Close savechanges:=False
End With


End Sub

di patel data: 25/01/2016 17:36:19
prova così

Sub saveAsDialogText()
ChDrive "F"
ChDir "F:Download"
fileSaveName = Application.GetSaveAsFilename(fileFilter:="txt Files (*.txt), *.txt")
If fileSaveName <> False Then
  ActiveSheet.Copy
  ActiveWorkbook.saveas filename:=fileSaveName, FileFormat:=xlUnicodeText
  ActiveWorkbook.Close False
End If
End Sub

di Oscar (utente non iscritto) data: 25/01/2016 18:59:44
Ok adesso ci siamo è perfetta ho modificato solamente la cartella di destinazione perchè voglio salvare in Documenti Grazie 1000

Private Sub CommandButton1_Click()

MyDir = ThisWorkbook.Path
fileSaveName = Application.GetSaveAsFilename(fileFilter:="txt Files (*.txt), *.txt")
If fileSaveName <> False Then
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlUnicodeText
  ActiveWorkbook.Close False
End If

End Sub

Vuoi Approfondire?