Slå værdi op i regneark

Hvis det regneark, der skal slåes op i ikke er åbnet på forhånd, kan du ikke gøre det med en formel.
Så er du nødt til at bruge en makro.

okay... hvordan ser den så ud?

Sub test()
path = "F:\Kalk\"
file = Range("a2").Text & ".xls"  'cellen der indeholder filnavnet
sheet = "Ark1"
rng = "$G$19"
End Sub


Private Function GetValue(path, file, sheet, range_ref)
Dim arg As String
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(range_ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

Hmm... den kokser..

Den skal smide den værdi den finder ind i celle B2. Værdien der er filnavnet, står i celle A2.

er er gledet en linie ud :-)

Sub test()
path = "F:\Kalk\"
file = Range("a2").Text & ".xls"  'cellen der indeholder filnavnet
sheet = "Ark1"
rng = "$G$19"
Range("B2").value=GetValue(Path, File, Sheet, rng)
End Sub


Private Function GetValue(path, file, sheet, range_ref)
Dim arg As String
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(range_ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

Er lidt i tvivl om, hvordan jeg skal behandle: 'cellen der indeholder filnavnet

Skal jeg bare direkte erstatte det med A2 eksempelvis?

Nej, du skriver bare filnavnet på den fil du vil hente data fra i celle A2
feks. 1000 og så kører du makroen.
Den indsætter så værdien fra 1000.xls ark1 celle G19 i det aktive arks celle B2

Den melder fejl. "Der opstod en kompileringsfejl: Der kan ikke tildeles en skrivebeskyttet egenskab.

Sub test()
path = "F:\Kalk\"
file = Range("a2").Text & ".xls"  A2
sheet = "Ark1"
rng = "$G$19"
Range("B2").Value = GetValue(path, file, sheet, rng)
End Sub


Private Function GetValue(path, file, sheet, range_ref)
Dim arg As String
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(range_ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

fjern lige det sidste A2 i denne linie
file = Range("a2").Text & ".xls"  A2

Den melder fejl. "Der opstod en kompileringsfejl: Der kan ikke tildeles en skrivebeskyttet egenskab.

og så er path = markeret

Det forstår jeg ikke lige.
Hvilken version af excel bruger du ?
prøv at ændre alle de steder der står path til p, i det tilfælde at det skulle være fordi path er en indbygget ting der ikke må ændres.
Det virker fint ved mig på xl2000

ok.. jeg bruger 97. Prøver lige at ændre.

Det hjalp.. nu kom jeg lidt videre. Den kan ikke filen, hvor filnavnet står i A2. Leder i mappen.. mit navn, under documents and settings. Filnavnet står som: Dokumenter[8886.xls]Ark1

står der bare 8886 i a2 ?

Ja...

har du mulighed for at sende arket til tommybak@netscape.net

Sendt...

Du havde ikke ændret sheet til det rigtige ark (stod til Ark1, men men arket hedder bare A) og du manglede at ændre en path til p


Sub test()
p = "F:\KALK\"
file = Range("a2").Text & ".xls"
sheet = "A"
rng = "$G$19"
Range("B2").Value = GetValue(p, file, sheet, rng)
End Sub


Private Function GetValue(p, file, sheet, range_ref)
Dim arg As String
arg = "'" & p & "[" & file & "]" & sheet & "'!" & Range(range_ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

Tak... så virker det!

Hvor meget skal ændres i makroen, før den kan tage flere ting og smide over.

Eksempelvis skal I19 (8886) til C2 (mappe3) og
H31 til D2

?

Sådan. Du fylder bare celler på i variablen Cells2Get

Sub test()
Dim Cells2Get()
Dim szPath As String
Dim szFile As String
Dim szSheet As String

'***** B R U G E R UD F Y L D T *********************************
szPath = "F:\KALK\"                    'Sti
szFile = Range("A2").Text & ".xls"      'Filnavn
szSheet = "A"                          'Arknavn
Cells2Get = Array("G19", "I19", "H31")  'Celler, der skal hentes
'****************************************************************

For j = 0 To UBound(Cells2Get)
  ActiveCell.Offset(0, j + 1) = GetValue(szPath, szFile, szSheet, Cells2Get(j))
Next

Du skal selvfølgelig beholde funktionen

Private Function GetValue(p, file, sheet, range_ref)
Dim arg As String
arg = "'" & p & "[" & file & "]" & sheet & "'!" & Range(range_ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

Melder fejl i denne linie:

arg = "'" & p & "[" & file & "]" & sheet & "'!" & Range(range_ref).Range("A1").Address(, , xlR1C1)

zack-> den skal virker, har du ændret arknavn eller andet ?

luk