Moderatori: Anthony47, Flash30005
On error Goto manca
Workbooks.Open "Nome_del_File"
'istruzioni se il file esiste
'..
'..
manca:
On error goto 0
'istruzioni se il nome non esiste
On error Goto manca
Workbooks.Open "Nome_del_File"
'istruzioni se il file esiste
'..
'..
manca:
On error goto 0
'istruzioni se il nome non esiste
[L’estensione rar è stata disattivata e non puó essere visualizzata.]
=DATA(DESTRA(Foglio1!F2;4);SINISTRA(Foglio1!F2;2);STRINGA.ESTRAI(Foglio1!F2;4;2))
On error Goto manca
Workbooks.Open "NOME_File.txt"
'istruzioni se il file esiste
'..esempio:
ActiveWorkbook.SaveAs Filename:="Saint_Anthony.txt", FileFormat:=xlText, CreateBackup:=False
'altro?
Goto Continua
'..
manca:
On error goto 0
'istruzioni se il nome non esiste
'esempio:
ActiveWorkbook.SaveAs Filename:="NOME_FILE.txt", FileFormat:=xlText, CreateBackup:=False
'altro?
Continua:
'istruzioni
Worksheets("Foglio3").Range("A1").FormulaLocal = "=Data(destra(Foglio1!F2;4);sinistra(Foglio1!F2;2);stringa.estrai(Foglio1!F2;4;2))"
1) Per salvare il solo foglio attivo, prova il tuo codice ma con FileFormat:=xlExcel4
Sheets("Foglio3").select
ActiveSheet.SaveAs Filename:=NomeFile, FileFormat:=xlExcel4, CreateBackup:=False
On error Goto manca
Workbooks.Open "NOME_File.txt"
'istruzioni se il file esiste
'..esempio:
ActiveWorkbook.Close SaveChanges:=False '<<< AGGIUNTA; chiude il file aperto sopra
ActiveWorkbook.SaveAs Filename:="Saint_Anthony.txt", FileFormat:=xlText, CreateBackup:=False
'altro?
Goto Continua
'..
manca:
On error goto 0
'istruzioni se il nome non esiste
'esempio:
ActiveWorkbook.SaveAs Filename:="NOME_FILE.txt", FileFormat:=xlText, CreateBackup:=False
'altro?
Continua:
'istruzioni
[L’estensione rar è stata disattivata e non puó essere visualizzata.]
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
Visitano il forum: Nessuno e 50 ospiti