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"