| Forfatter |
 Emne Søg  Emne funktioner
|
Nignag 
Forum Begynder
Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 19
|
 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 |
 |
|
|
|
|
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 716
|
 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 |
|
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 716
|
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
|
|
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 716
|
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
|
|
Nignag
Forum Begynder
Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 19
|
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?
|
|
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 716
|
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 |
|
Nignag
Forum Begynder
Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 19
|
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
|
|
Forum start
Forummets regler
Sådan uploader du filer
Del dine regneark
Excel-regneark.dk
