---

Hej,

Jeg har en række knapper der kan bruges til at åbne excelfiler. For at
makroerne skal virke skal de indledes med

ChDir "sti".

Da der er flere bruger, der kan have filerne liggende forskellige
steder, skal stinavnet anføres i en celle, f.x. d4. [ex.C:\KJT
2003\budget]


Hvordan får jeg indholdet af celle d4 til at stå i makroen så der
kommer til at stå ChDir "C:\KJT 2003\budget" ?

Hvem kan hjælpe ?

P.s. Jeg vil gerne bruge samme idé til at indsætte tekst i sidefoden
på udskriften. Nogen forslag ?

Mvh

Peter

---

pgrandjean@jubiimail.dk (Peter Grandjean) wrote in message news:<9a5c2be3.0301081035.27888211@posting.google.com>...
> Hej,
>
> Jeg har en række knapper der kan bruges til at åbne excelfiler. For at
> makroerne skal virke skal de indledes med
>
> ChDir "sti".
>
> Da der er flere bruger, der kan have filerne liggende forskellige
> steder, skal stinavnet anføres i en celle, f.x. d4. [ex.C:\KJT
> 2003\budget]
>
>
> Hvordan får jeg indholdet af celle d4 til at stå i makroen så der
> kommer til at stå ChDir "C:\KJT 2003\budget" ?
>
> Hvem kan hjælpe ?
>
> P.s. Jeg vil gerne bruge samme idé til at indsætte tekst i sidefoden
> på udskriften. Nogen forslag ?
>
> Mvh
>
> Peter


JEG fandt selv på svaret (Eller på en mulighed).

Der skal oprettes flere navngivne celler, en for stien og en for hver
fil der skal åbnes. Herefter vil følgende skifte bibliotek og skifte
bibliotek samt åbne en fil.

Sub Skift_Bibliotek()
Dim Path As String
Path = Range("Sti")
ChDir Path
End Sub

Sub Aabn_Budgetfil()
Application.Run "Skift_Bibliotek"
Dim FN1 As String
FN1 = Range("Budgetfil")
Workbooks.Open Filename:=FN1 & ".xls"
End Sub

Andre idéer er velkomne

Mvh

Peter