/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Brug af celleindhold i en makro
Fra : Peter Grandjean


Dato : 08-01-03 19:36

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

 
 
Peter Grandjean (09-01-2003)
Kommentar
Fra : Peter Grandjean


Dato : 09-01-03 21:55

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

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste