Moderatori: Anthony47, Flash30005
Sub SalvaF()
FXLS = Range("A1").Value & ".xls"
Perc = "Y:\Ordini\"
ActiveWorkbook.SaveAs Filename:=Perc & FXLS
End Sub
=INT(ADESSO())
Sub SalvaF2()
FXLS = Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2) & "_" & Format(Int(Timer), "00000")
Perc = "Y:\Ordini\"
ActiveWorkbook.SaveAs Filename:=Perc & FXLS
End Sub
FXLS = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss")
FXLS = Format(Now(), "yyyymmdd-hhmmss")
FXLS = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls" '<<<< Aggiungere l'estensione del file
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Come evidenziare aree separate di un foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 18 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 9 ospiti