/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408849
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.