Environment variabele gebruiken in properties van Excel file

[hvroosmalen]

Mijn vraag


Ik wil de waarde van een enivronment variabele gebruiken in de Custom properties van een excelfile

bv:

Variable: ResultfilePath

Value : \\appserver\%username%\result

Hierdoor kan ik voor iedere gebruiker deze waarde gerbruiken en niet voor iedere gebruiker een eigen Excel file met de betreffende verwijzing naar zijn pad.

[Witte]

Begrijp ik het goed: er is één centraal Excel document op een shared folder, en afhankelijk van wie hem opent, moet er in een cel of zo een waarde aanpast worden.

Met onderstaande code kan je 'special folders' opvissen en deze worden bij openen van de Werkmap op cellen A1 en A2 geplaatst. Plaats deze code 'ThisWorkbook'.

code:

Private Sub Workbook_Open()
Dim objShell As Object

Set objShell = CreateObject("Wscript.Shell")
Worksheets(1).Cells(1, 1) = objShell.SpecialFolders("Desktop")
Worksheets(1).Cells(2, 1) = objShell.SpecialFolders("MyDocuments")
   
Set objShell = Nothing
   
End Sub

Met de vba-functie environ() kan je omgevoingsvariablen uitlezen:
environ("PATH") geeft bijvoorbeeld het zoekpad terug.

[ Voor 9% gewijzigd door Witte op 25-01-2018 16:13 ]

[Lustucru]

De vraag is idd niet helder. Wil je een pad wegschrijven in een custom property van een file (maar die wordt dan iedere keer overschreven?) of in een cel, of gebruik je die waarde nog ergens?

Leg even de rest van t gebruik uit?