create excel file vanuit VBA naar template

[joeriMJ]

Hallo,
Ik heb een hoop gegevens die weergegeven dienen te worden in Access, vervolgens tijdelijk gewijzigd moeten kunnen worden en dan afgedrukt worden. Nu leek me de simpelste oplossing om een excel bestand te maken gebaseerd op een template waar vaste waarden en opmaak al op aanwezig zijn. Vervolgens via VBA dit bestand opmaken met de nodige query.
Ik gebruik volgende code om een excel bestand aan te maken, maar dan is het nog niet gemaakt volgens de opmaak van een template.

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 & "\saved PBR\TestCreate.xls")

ObjWb.Close (SaveChanges = False)

Dus ik zal hier ergens een method moeten aanroepen die een template koppelt aan objWb misschien ?
Het is dan ook de bedoeling dat iedere worksheet de layout heeft van de template.
Ik heb nog geen ervaring met excel en VBA dus alle hulp zoals links is ook altijd welkom.

Alvast bedankt,
Joeri

 

[Guus2005]

Kan je niet een Excel template (XLT) openen en dan bewaren als XLS?

 

[joeriMJ]

Dit was ik ook al aan het denken. Maar het probleem is dan vrees ik mijn kennis. Dus als je goede links weet naar dit soort VBA op internet, zal ik je heel dankbaar zijn.

 

[Guus2005]

Hoezo je Excel kennis is volgens mij toereikend. Je bent er bijna.
Je hebt al een Excel object. Dit is mijn code:

    Set appExcel = New Excel.Application
    Set wbExcel = appExcel.Workbooks.Open(strFilename)
    Set wsExcel = wbExcel.Worksheets.Add

Doe er je voordeel mee. Voor Office to Office applicaties: Helen Feddema

 

[joeriMJ]

Ik heb het ondertussen gevonden. Bedankt voor de link, zeer interessant.
Ik bleef wel een probleem hebben met opslaan als .xlt maar wanneer ik de template opsloeg als .xls waren er geen problemen meer.
Dank

 

[Guus2005]

Dat was de bedoeling ook. Je wilt je template toch niet overschrijven?