Oprette en mappe i VBA og give mappen navnet på det Excel ark man arbejder i

et forslag

Public Sub test()
Dim Sti As String, NY As String
Sti = ThisWorkbook.Path
NY = Split(ThisWorkbook.Name, ".")(0)
MkDir (Sti & "\CSV") & NY
End Sub

der var lige smuttet en \

Public Sub test()
Dim Sti As String, NY As String
Sti = ThisWorkbook.Path
NY = Split(ThisWorkbook.Name, ".")(0)
MkDir (Sti & "\CSV\") & NY
End Sub

Alternativ:
Rem VBA-koden er placeret under ark1 i den aktuelle fil)
Const målSti = "CSV filer"
Dim minSti As String, stier As Variant, filNavn As Variant
Public Sub opretNyMappe()
Rem stien til min fil
    minSti = ActiveWorkbook.Path

Rem opdel de enkelte sti i de enkelte mapper
    stier = Split(minSti, "\")
   
Rem isoler sidste mappe
    oversti = stier(UBound(stier))
   
Rem erstat sidste mappe med målsti
    nysti = Replace(minSti, oversti, målSti)
   
Rem opdel for at isolere .extend (forventes kun et punktum)
    filNavn = Split(ActiveWorkbook.Name, ".")
   
Rem opret mappe i den nye sti
    MkDir nysti & "\" & filNavn(0)
End Sub

Hvad mener du med 'Rem'?

Rem = Remark /Kommentar

MkDir (Sti & "\CSV\") & NY

Koden melder fejl ved denne..

@ supertekst:

Jeg prøver koden.

Hvad mener du med dette?

Const målSti = "CSV filer" --> hvad står Const for?

Const betyder at "noget" defineres som en Konstant - i modsætning til Dim der er er en erklæring af en Variabel.

D.v.s - at du kan ændre Const i koden, hvis der skal anvendes en anden mappe end CSV-filer

Det var egentlig smart. Jeg har nemlig defineret den som en string, da jeg ikke vidste hvad det betød.

Koden virker upåklageligt!

Så du får selvfølgelig points, men håber, at du lige vil forklare følgende:

oversti = stier(UBound(stier))

Hvad gør denne? Har læst mig til, at Split inddeler i en array.

Og til sidst - hvorfor er (0) med i Mkdir?

Ved split får du opdelt en string i et array, som du selv nævner - d.v.s. i hver del af dette array er teksten mellem de enkelte skilletegn - her "\" - placeret.

Overstien sættes herefter til teksten i det sidste element i array - det er dette som Ubound (Upper Bound / Øverste grænse).

Replace erstatter så den nuværede mappe med den ønskede.

Filnavn er - f.eks. "MinFil.xlsx"
Der anvendes split igen med "." som skilletegn - d.v.s. at der er 2 elementer i array.
Første element i stier = stier(0) indeholder Minfil
Andet element i stier = stier(1) indeholder xlsx

Mappe skal kun hedde selve filnavn.

Tak for hjælpen.