Bestem biblioteket for den aktuelle projektmappe

Anonim

En makro viser lagringsstien

Hvis du vil bruge en makro til at bestemme i hvilken mappe den aktive projektmappe gemmes, kan du bruge ejendommen Sti brug. Det returnerer stien, hvorunder en fil kan findes.

For at bestemme stien til den aktuelle projektmappe skal du anvende ejendommen på objektet ActiveWorkbook på. Følgende makro viser, hvordan dette ser ud i praksis:

Sub Vis lagermappe ()
Dim bibliotek som streng
Directory = ActiveWorkbook.Path
Hvis bibliotek "" Så
MsgBox "Den aktuelle projektmappe er i det følgende" & _
"Katalog gemt:" & vbLf & bibliotek
Andet
MsgBox "Den aktuelle projektmappe er endnu ikke oprettet" & _
"gemt."
Afslut Hvis
Afslut Sub

Når den er startet, viser makroen stien til den aktive projektmappe i et vindue. Følgende projektmappe viser, hvordan resultatet kan se ud:

Hvis projektmappen endnu ikke er gemt, vender ejendommen tilbage Sti en tom tekst tilbage. I dette tilfælde reagerer makroen med et andet meddelelsesvindue:

Tip: Hvis du gerne vil vide, hvordan du indtaster og starter makroer i Excel, finder du en kort beskrivelse her: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html