Moderatori: Anthony47, Flash30005
Sub ApriEsalva()
Dim Wtxt As Workbook
Set Wtxt = Workbooks.Open("m:\pres.txt")
Wtxt.SaveAs Filename:=Wtxt.Name & ".xls", FileFormat:=xlExcel8
Wtxt.Close
Set Wtxt = Nothing
End Sub
FileFormat:=xlExcel8
FileFormat:=56
Sub SalvaDaTxt()
Perc = "m:\"
NFTxt = "pres.txt"
NFEx = Left(NFTxt, Len(NFTxt) - 3) & "xls"
ChDir Perc
Workbooks.OpenText Filename:=Perc & NFTxt
If Dir$(Perc & "Dir.xls") <> "" Then Kill Perc & NFEx
ActiveWorkbook.SaveAs Filename:=Perc & NFEx
ActiveWorkbook.Close savechanges:=True
End Sub
Flash30005 ha scritto:
- Codice: Seleziona tutto
Workbooks.OpenText Filename:=Perc & NFTxt
Ciao
Torna a Applicazioni Office Windows
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 26 ospiti