Finde den mappe Excel pr. default gemmer XLA filer i

I VBA kan du bruge:
Application.StartupPath

Men det kan jeg jo ikke bruge til det jeg vil.

Jeg vil lave et VB-program (en .exe - fil), der finder ud af hvor Excel gemmer sin XLA-fil pr default på den givne PC.

OK. Du sluttede med "eller?" så det så ud til at dit valg af løsning var åbent...

Denne kode leveres af VBA-Hjælp måske du kan bruge den

Sub Test()

With Worksheets(2)
    .Rows(1).Font.Bold = True
    .Range("a1:d1").Value = _
        Array("Name", "Full Name", "Title", "Installed")
    For i = 1 To AddIns.Count
        .Cells(i + 1, 1) = AddIns(i).Name
        .Cells(i + 1, 2) = AddIns(i).FullName
        .Cells(i + 1, 3) = AddIns(i).Title
        .Cells(i + 1, 4) = AddIns(i).Installed
    Next
    .Range("a1").CurrentRegion.Columns.AutoFit
End With

End Sub

Jeg skal jo helst finde ud af det uden at starte Excel ...

I Vista/Office 2007 er adressen:

C:\Users\[brugernavn]\AppData\Roaming\Microsoft\AddIns

Så mon ikke man kan gå ud fra at de to sidste levels (\Microsoft\AddIns) er generelle?
Du skal så blot finde AppData mappen.

Der findes uden tvivl en API der finder systemmmapperne, og den kan finde AppData (eller i Vista: AppData\Roaming).
I .NET findes en funktion:
Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
der gør netop dette, og den bygger uden tvivl på en API.

Men jeg vil umiddelbart tro at det nemmeste simpelthen er at aflæse adressen i Systemregisterdatabasen:
Computer\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
Nøglen AppData

Denne adresse gælder i Vista, og -vil jeg tro- de fleste tidligere versioner af Windows.

Så du skal blot finde en VB-funktion der kan aflæse nøgler i registret............

VB funktionen til at aflæse i registeret tror jeg jeg kan finde - prøver lige at kikke på det :-)

Hvordan fandt du frem til :
Computer\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

Og peger den på den unikke folder der hedder xxx\AddIns ?

Jeg kan ikke huske hvor jeg først hørte om denne nøgle, men jeg har brugt den mange gange før til at finde adressen på diverse systemmapper.

Den peger IKKE på den unikke folder xxx\AddIns, men på mappen AppData, men som jeg nævnte i sidste indlæg, så tror jeg godt du kan gå ud fra at mappen "Microsoft\AddIns" ligger i AppData, så du skal altså manuelt tilføje "\Microsoft\AddIns" til det path du får ud.

Alternativt fandt jeg lige denne side:

http://msdn.microsoft.com/en-us/library/aa140088(office.10).aspx

Men jeg tror ikke den bringer dig nærmere end AppData-mappen.

Nu fandt jeg pludselig det rigtige svar til dig:

Det viser sig at der ER en funktion i VBA til at finde systemmapper/data:

Environ("navn her")

Se her:

http://blogs.officezealot.com/charles/archive/2004/12/10/3574.aspx

Så det ser ud til at du blot skal:

Dim AddInPath as String

AddInPath = Environ("APPDATA") & "\Microsoft\AddIns"


/tjacob

Se - det vil være guld...

Og så laver jeg en On Error Goto om det hele, så brugeren kan browse sig frem ,hvis ovenstående fejler

tester det senere - men pointene er vist dine - smid svar

OK -her er svar, men tjek nu lige om det virker!

Hvad så martin, virkede det?

har fået opgaven på stand-by - skal nok få det testet om kort tid :-) Du er ikke glemt