vba kode, gem og overskriv eksisterende
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4265
Udskrevet den: 06.Maj.2024 kl. 10:54
Emne: vba kode, gem og overskriv eksisterende
Besked fra: Benthe
Emne: vba kode, gem og overskriv eksisterende
Posteringsdato: 04.Maj.2020 kl. 07:01
Jeg har denne kode til at gemme et dokument, men jeg vil gerne have den overskriver sig selv, når man når til midnat laver den en ny adresse, det vil jeg gerne undgå, så den gemmer ovenpå sig selv hver gang, er der nogen som kan hjælpe
Private Sub CommandButton1_Click()
Dim Path As String
Dim strDate As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String
strDate = Format(Date, "YYYY-") & Format(Date, "MM-") & Format(Date, "DD") & " "
Path = "C:\dokument\" & strDate
FileName2 = Range("M2")
FileName3 = Range("N2")
FileName4 = Range("P2")
ActiveWorkbook.SaveAs Filename:=Path & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & ".xlsm", FileFormat:=52
End Sub
|
|