Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Salvare Excel in txt

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

Salvare Excel in txt

Postdi SebNan » 28/10/14 15:40

Ciao a tutti,
ho un file excel con n righe ed n colonne, dovrei salvare il foglio1 in formato txt, chiamarlo "es" e salvarlo in una cartella in rete (es 192.168.1.1\pc). Come posso fare? Ho provato il codice di seguito riportato ma non riesco a definire il precorso in MyDir (me lo salva nella stessa cartelle dove è presente il file, io avrei bisogno di cambiare percorso), lo stesso NomeFile non mi consente di rinominarlo a mio piacimento
Grazie 1000
Codice: Seleziona tutto
    Dim MyDir As String, NomeFile As String
    Dim FileExist As Boolean
    Application.ScreenUpdating = False

    MyDir = ThisWorkbook.Path    (me lo salva nella stessa cartelle dove è presente il file, io avrei bisogno di cambiare percorso)
    NomeFile = [a1]           (non mi consente di rinominarlo a mio piacimento)

    If Dir(MyDir & "" & NomeFile & ".txt") <> "" Then
        Select Case MsgBox("Attenzione: esiste già un file con questo nome." _
                           & vbCrLf & "Vuoi sovrascrivere il file?" _
                           , vbYesNo Or vbExclamation Or vbDefaultButton1, "Duplicato")
        Case vbNo
            Exit Sub
        End Select
    End If
 
   Application.DisplayAlerts = False
 
    ActiveSheet.Copy
    With ActiveWorkbook
        .SaveAs Filename:=MyDir & "" & NomeFile & ".txt", FileFormat:=xlUnicodeText
        .Close savechanges:=False
   End With

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True '

    MsgBox "Foglio .txt creato con successo"
SebNan
Utente Junior
 
Post: 28
Iscritto il: 07/12/12 14:32

Sponsor
 

Postdi Dylan666 » 07/11/14 21:07

Al posto di ThisWorkbook.Path scrivi una vosa tipo "c:\nome cartella\"
Non ti scordare le doppie virgolette
Avatar utente
Dylan666
Moderatore
 
Post: 38040
Iscritto il: 18/11/03 16:46

Re: Salvare Excel in txt

Postdi SebNan » 18/11/14 16:18

Ciao Dylan,
scusa ma ho avuto un sacco da fare. non riesco a far funzionare il tuo suggerimento, ma probabilmente mi sono espresso male, in realtà io dovrei salvare il file su un server, ma a detta di alcuni questo potrebbe creare problemi, perciò è preferibile che mi apra la cartella salva con note in TXT a questo punto decido il percorso dove metterlo e il nome da dargli...

Spero di essere stato chiaro
A presto Seb
SebNan
Utente Junior
 
Post: 28
Iscritto il: 07/12/12 14:32

Re: Salvare Excel in txt

Postdi SebNan » 18/11/14 16:28

Mi servirebbe uno script come questo sotto riportato ma al contrario, perchè questo mi permette di aprire un file txt con qualsiasi nome e da un percorso che scelgo io, mentre a me servirebbe salvare un file in txt su un percorso che decido di volta in volta.
Grazie

Dim sh1 As Worksheet

With ThisWorkbook
Set sh1 = .Worksheets("Foglio1")
End With

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "All files", "*.*"
.Filters.Add "text", "*.txt", 1
.Show

If .SelectedItems.Count = 0 Then
MsgBox ("Nessuna voce selezionata, procedura annullata")
GoTo Esci
End If
FullNome = .SelectedItems(1) 'Directory e Nome del file selezionato
End With
Esci:

With sh1.QueryTables.Add(Connection:="TEXT;" & FullNome, Destination:=sh1.Range("A1"))
End With

With sh1.QueryTables.Add(Connection:= _
"TEXT;" & FullNome _
, Destination:=sh1.Range("$A$1"))
.Name = "lybk_1"
SebNan
Utente Junior
 
Post: 28
Iscritto il: 07/12/12 14:32


Torna a Applicazioni Office Windows


Topic correlati a "Salvare Excel in txt":


Chi c’è in linea

Visitano il forum: Zer0Kelvin e 10 ospiti