tvc
Seniormester
24. august 2009 - 12:51
Der er
2 kommentarer og
1 løsning
Variabel reference til lukkede filer
Hej
Jeg har en fil, der skal hente data fra andre filer.
Disse andre filer har næsten samme filnavn:
- budget 2006
- budget 2007
- budget 2008
- budget 2009
- budget 2010
Da min fil skal være kunne opdateres med fem års tal, skal referencen til filerne være variabele.
2006 (årstallet) skal altså kunne styres fra en celle.
='[Budget 2006.xls]Ark1'!$B$12
Jeg vil ligeledes gerne kunne styre hvilket ark, der skal hentes fra.
Arkene er navngivet med afdelingsnavn (eks. København).
='[Budget 2006.xls]København'!$B$12
Er der en der kan hjælpe mig med en løsning på dette?
Hilsen
TVC
tvc
Seniormester
26. august 2009 - 13:27
#1
Denne har bak udarbejdet i 2004. Er der en der kan hjælpe mig med at få den tilpasset så variablerne er sti, filnavn, ark?
'Sti og filnavn i Kolonne A, Ark og celle i kolonne B.
'Marker i kolonne C, de celler der ønskes udfyldt og kør makroen
Sub GetTheCell()
Dim Sti_Fil As String, Ark_Adr As String
Dim Sti As String, Fil As String, Ark As String, Adr As String
Dim lTest As Long
Dim rng As Range
Set rng = Selection
On Error Resume Next
For Each c In rng
If IsEmpty(c.Offset(0, -1)) Then GoTo igen
Sti_Fil = c.Offset(0, -2)
Ark_Adr = c.Offset(0, -1)
lTest = InStrRev(Sti_Fil, "\")
Sti = Left(Sti_Fil, lTest)
Fil = Mid(Sti_Fil, lTest + 1)
lTest = InStrRev(Ark_Adr, "!")
Ark = Left(Ark_Adr, lTest - 1)
Adr = Mid(Ark_Adr, lTest + 1)
c.Value = hentceller(Sti, Fil, Ark, Adr)
igen:
Next
End Sub
Function hentceller(p, f, s, c)
hentceller = "='" & p & "[" & f & "]" & s & "'!" & Range(c).Address(, , xlA1)
End Function
