Forfatter |
Emne Søg Emne funktioner
|
Nignag
Forum Begynder
Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 10
|
Indlæg funktioner
Tak(0)
Citér Svar
Emne: Oprette mappe via makro Sendt: 21.Jun.2024 kl. 09:33 |
Hej Alle Jeg har lavet en makro som automatisk gemmer mit ark på en bestemt destination og med et genereret filnavn ud fra udvalgte felter.
Men kan gøre sådan, at den opretter en ny mappe ud fra et felt - Eks. D5 som vist nedenfor?
ActiveWorkbook.SaveAs Filename:= _ "K:\Industri\DIST XX Projekter TLJ\2. Ny ordre - Under behandling\2024\" & Range("D5") & " - " & Range("B19") & " - " & Range("J19").Value _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
|
![Til top Til top](forum_images/back_to_top.png) |
|
|
![Til top Til top](forum_images/back_to_top.png) |
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 698
|
Accepteret svar
Indlæg funktioner
Tak(1)
Citér Svar
Sendt: 27.Jun.2024 kl. 14:08 |
Hvis filstien, der slutter med mappen, står angivet i celle D5, er det sådan her:
If Dir(Range("D5"), vbDirectory) = "" Then MkDir Range("D5") End If
|
![Til top Til top](forum_images/back_to_top.png) |
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 698
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 24.Jun.2024 kl. 09:28 |
Jeg mener, du skal tilføje lidt kode, som opretter mappen, såfremt den ikke eksisterer i forvejen, f.eks. i stil med dette:
If Dir("din filsti/-mappe", vbDirectory) <> "" Then MkDir "din filsti/-mappe" End If
|
![Til top Til top](forum_images/back_to_top.png) |
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 698
|
Indlæg funktioner
Tak(1)
Citér Svar
Sendt: 24.Jun.2024 kl. 09:29 |
Hov, det skal være " = " , dvs.
If Dir("din filsti/-mappe", vbDirectory) = "" Then MkDir "din filsti/-mappe" End If
|
![Til top Til top](forum_images/back_to_top.png) |
Nignag
Forum Begynder
Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 10
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 27.Jun.2024 kl. 08:56 |
Jeg er lidt i tvivl hvordan jeg får den til at at værdien fra et felt - Eks. Range("D5") med i koden?
|
![Til top Til top](forum_images/back_to_top.png) |
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 698
|
Accepteret svar
Indlæg funktioner
Tak(1)
Citér Svar
Sendt: 27.Jun.2024 kl. 14:08 |
Hvis filstien, der slutter med mappen, står angivet i celle D5, er det sådan her:
If Dir(Range("D5"), vbDirectory) = "" Then MkDir Range("D5") End If
|
![Til top Til top](forum_images/back_to_top.png) |
Nignag
Forum Begynder
Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 10
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 27.Jun.2024 kl. 14:29 |
Det lykkedes med følgende makro - tusind tak for hjælpen
If Dir(Range("W9"), vbDirectory) = "" Then MkDir Range("W9") End If
ActiveWorkbook.SaveAs Filename:= _ Range("W9") & Range("D5") & " - " & Range("B19") & " - " & Range("J19").Value _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
|
![Til top Til top](forum_images/back_to_top.png) |