vba verwijzing naar extern bestand

[perry99]

Hallo,

Wie kan mij helpen met het oplossen van een VBA probleem.
Ik wil graag een verwijzing maken naar een extern bestand omdat het bestand te groot wordt en te traag opstart.
80% van het bestand bestaat uit een adressen-bestand welke ik graag nu buiten het bestand wil laten.

Gaarne zou ik graag onderstaande VBA laten verwijzen naar:
G:\overzicht\adressen\adressen.xls
waarbij het Blad adressen heet

sAdres = Sheets("ADRESSEN").Columns(1).Find(What:=Target, After:=Range("A1"), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Address
        
    If sAdres = "" Then 'het nummer is niet gevonden!
        MsgBox "Geen match gevonden...", vbOKOnly, "Mismatch"
        Exit Sub
    End If

Ik hoop dat iemand mij kan helpen, krijg het zelf niet voor elkaar.

Bij voorbaat dank voor jullie hulp. :thumb::thumb::thumb::thumb:

 

[Demeter]

'zet boven in je code de declaratie
Dim oWbk As Workbook

Set oWbk = Workbooks.Open("G:\overzicht\adressen\adressen.xls")
    
 code wat er in deze file gebeuren moet

'sluit het werkblad
oWbk.Close True

 

[perry99]

Bedankt Demeter,

Het werkt, echter het adressen bestand is te groot om er een extern bestand van te maken denk ik, staan 33000 adressen in.
Krijg namelijk bij zowel openen als opslaan van het bestand de melding "Er zijn ovoldoende bronnen beschikbaar om deze taak te voltooien. Kies minder gegevens of sluit andere toepassingen."

Misschien dat jij een andere oplossing weet.

Alvast bedankt voor het meedenken.

Groetjes,

Perry

 

[Avalondra]

je zou ook kunnen kijken of je die adressen in meerdere bestandjes kunt zetten en dan in de macro meerdere locaties aangeven die hij moet aanhalen.

(zo heeft een vriend van mij 1 hoofdbestand en 13 sub bestandjes en alle 13 moeten openstaan als hij wilt dat het hoofdbestand met de formules werkt.)


Greetz AvA


ps. ik weet dat het via formules mogenlijk is dat heb ik zelf al eens toegepast maar met macro's zal het ook gaan maar ik weet alleen niet hoe.