[vb]Excel template oppennen

[kippy]

Het oppenen van een Excel bestand of template steld niet zo heel veel voor. Nu wil ik alleen het volgende.

Ik open een Excel bestand in bijv "C:\Excel" in deze dir staat ook de template. Ik start via een macro een VB progje. Dit progje bevat een button en wanneer ik hier op clickoppend hij de teplate selecteerd alles en plakt het in het Excel sheet. Aleen is nu het probleem dat ik het volledige pad van de dir moet aangeven, omdat de Workbooks.Open Filename:= altijd in mijn documenten begind. Ik wil dat hij altijd in de zelde dir begint als het excel sheet, ik heb al op google en in het form gezocht maar kan nix vinden. Het zal vast heel makkelijk zijn maar na 2 uur zoeken.........

Dit heb ik al:

code:

Private Sub Button1_Click()
    Workbooks.Open Filename:="ProbeermA.XLT", Editable:=True
    Range("A1:J58").Select
    Selection.Copy
    Windows("Book1.xls").Activate
    Range("A41").Select
    ActiveSheet.Paste
    
    Range("B1").Select
    Selection.Clear
    Windows("ProbeermA.XLT").Activate
    ActiveWindow.Close
    
End Sub

[OZ-Gump]

Je zou natuurlijk in je macro de huidige locatie van het bestand kunnen meegeven als opstartparameter voor je VB applicatie. Die kan de directory dan oppikken en er het juiste template bestand bij zoeken.

[kippy]

OZ-Gump schreef op donderdag 10 maart 2005 @ 09:06:
Je zou natuurlijk in je macro de huidige locatie van het bestand kunnen meegeven als opstartparameter voor je VB applicatie. Die kan de directory dan oppikken en er het juiste template bestand bij zoeken.

Ja zo iets zoek ik, alleen kan niet vinden hoe. Meschien is hint of stukje code.

[Daos]

kippy schreef op donderdag 10 maart 2005 @ 09:17:
[...]

Ja zo iets zoek ik, alleen kan niet vinden hoe. Meschien is hint of stukje code.

code:

Workbooks.Open Filename:=ThisWorkbook.Path + "\ProbeermA.XLT", Editable:=True

Bedoel je zoiets?

[kippy]

Zucht dat had ik zelf kunnen bedenken, maar soms zit je gewoon helemaal in de verkeerde richting te denken.

Maar als nog heel erg bedankt