data lezen uit gesloten werkbook

[Henryk12]

Hallo
Ik heb een open werkboek ZOEK met een veld lidnr
in een andere werkboek UITSLAGEN met sheet TITEL die ik gebruik als DBase
wil ik alle resultaten van lidnr laaten zien in werkboek ZOEK te beginnen
op een pebaalde kolom in werkboek ZOEK

het bestand vindt je op

http://www.bowlingpzk.pl/pzksbs7/kaart/zoek.xls

Als iemand mij kan helpen dank op voorhand
Henryk:thumb:

 

[Wigi]

Een topic van gisterenavond nog:

http://www.helpmij.nl/forum/showthread.php?p=2347548&highlight=open#post2347548

 

[Henryk12]

Hi
bedank voor u reaktie
Nee dat is niet de oplossing
ik wil het tweede workbook niet openen

 

[Haaren101]

Als je spullen uit een doos wilt halen dan moet je de doos openen. Als je gegevens uit een workbook wilt halen dan zal je hem moeten openen. Je kunt de gegevens ophalen en daarna kan je hem weer sluiten

Ron

 

[Henryk12]

Hi
sorry dat ik het zo moet zeggen
ken niet zo veel van excel
maar kan het niet gelooven dat je data's van een andere werboek kunt halen
zonder deze te openen vanuit een cel functie
en in VBA zou het niet gaan
de reden dat ik hem niet wil openen is dat dit bestand op een server staat en niet iedereen dit bestaand moet zien
maar alvast bedankt voor u reactie

Dit werkt maar had toch graag iets gehad zonder het tweede werkboek te openen
Dim a As Integer
Dim temp As String
Dim temp2 As String
Dim temp3 As String
Dim licnr As String
Dim Leeg As String
Dim wkb As Workbook
Dim wkb2 As Workbook
Set wkb = ActiveWorkbook
Leeg = ""
licnr = Cells(1, 1).Value
i = 26
Do While i <= 34
Cells(i, 3).Value = Leeg
i = i + 1
Loop
Application.ScreenUpdating = False
Set wkb2 = Workbooks.Open("allwyniki.xls")
wkb2.Activate
i = 26
a = 1
Do While a <= 500
temp = Workbooks("allwyniki.xls").Worksheets("titel").Cells(a, 2)
temp2 = Workbooks("allwyniki.xls").Worksheets("titel").Cells(a, 3)
temp3 = Workbooks("allwyniki.xls").Worksheets("titel").Cells(a, 1)
If licnr = temp Then
wkb.Activate
Cells(i, 3).Value = temp2 + " " + temp3
wkb2.Activate
i = i + 1
a = a + 1
Else
a = a + 1
End If
Loop
wkb2.Activate
ActiveWorkbook.Close True
wkb.Activate
End Sub

 

[Warme bakkertje]

Deze link geeft een antwoord op je vraag denk ik
http://www.ozgrid.com/VBA/ExtractFromClosedWorkbook.htm

Mvg

Rudi

 

[Henryk12]

Dank je warme bakker
hiermee kan ik het doen
Groetjes
Henryk

 

[Wigi]

Je ziet niet dat dat bestand geopend wordt, en dat duurt echt niet zo lang.

Moet je natuurlijk wel de code zo optimaal mogelijk schrijven, o.a. niet die Activate's.

Wigi