Öppna Excel-mall


För att öppna en riktig Excel-mall (med filändelsen xlt), där en kopia genereras vid anrop, krävs en speciell teknik vilket detta tips demonstrerar.

Vi behöver ange referenser till följande bibliotek:

 

Samma teknik kan användas i såväl VBA som i VB.NET
 

Option Explicit

 

Private Sub Open_Excel_Template()

 '© 2004 Alla rättigheter XL-Dennis

  Dim xlApp As Excel.Application

  Dim xlTemp As Excel.Workbook

 

  Set xlApp = New Excel.Application

  Set xlTemp = xlApp.Workbooks.Add("c:\Template.xlt")

 

  With xlApp

    .Visible = True

    .UserControl = True

  End With

 

End Sub