Een excel template invoegen dmv macro

[svekkes]

Aan allen,

Ik zit met een volgend probleem:
ik heb een tabblad met daarop bestellingen van klanten staan. Nu had ik graag dmv een knop deze bestellingen omgezet naar een factuur. Voor deze factuur heb ik een sjabloon gemaakt met daarin de juiste formules en verwijzingen. Nu heb ik al vanalles opgezocht en uitgeprobeerd maar ik vind nergens een juiste code om deze factuur op te roepen.
Momenteel heb ik volgende code:

Sub Button3_Click()

Dim AppXls As Excel.Application
Dim ObjWb As Excel.Workbook
Dim ObjWs As Excel.Worksheet

Set AppXls = CreateObject("Excel.Application")
Set ObjWb = AppXls.Workbooks.Add

Set ObjWs = ObjWb.Worksheets.Add
ObjWs.Range("A1").Value = "1"

ObjWb.SaveAs (CurrentProject.Path & "J:\Book1.xlt")

ObjWb.Close (SaveChanges = False)

End Sub

Ook heb ik al gespeeld met de code van Ron De bruin, maar daar krijg ik steeds een foutmelding: Fout 1004.

Hopelijk ben ik een beetje duidelijk geweest en alvast bedankt voor de hulp.

 

[Wigi]

Het is gewoon:

Set ObjWb = AppXls.Workbooks.Add("padvanhettemplate")

Wigi

 

[svekkes]

Dag Wigi,

Ben niet echt mee. Waar moet ik dit stukje juist plakken?
Bijkomend vraagje: Als ik deze template ergens anders opsla (bvb op een externe schijf), hoe moet ik dan het path definiëren?

 

[Wigi]

Ben niet echt mee. Waar moet ik dit stukje juist plakken?

In de code op het moment waar je dat template opent uiteraard...

Bijkomend vraagje: Als ik deze template ergens anders opsla (bvb op een externe schijf), hoe moet ik dan het path definiëren?

Verander dat dan in de code, of zet dat pad in een cel en laat de code kijken wat in de cel staat.

 

[svekkes]

Sorry Wigi,

Het wil maar niet lukken.
Heb een er een vb bij aan gehangen. Ben al wel wat aan het knoeien geweest met mijn code.

 

[svekkes]

Aan allen,

Ik heb nog verder gezocht en ondertussen een andere oplossing gevonden.

Inieder geval bedankt voor de hulp