Option Compare Database
Option Explicit
 
' Entweder folgende Library ins Projekt einbinden
' Library Excel
' C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
' Microsoft Excel 11.0 Object Library
Global XAP As Excel.Application
Global XLW As Excel.Workbook
Global XLS As Excel.Worksheet
 
' , oder die Variablen so definieren
' Global XAP As Object
' Global XLW As Object
' Global XLS As Object
 
Sub beginXL()
 
On Error Resume Next
Set XAP = GetObject(, "Excel.Application")
On error goto 0 
If XAP Is Nothing Then Set XAP = New Excel.Application
Set XLW = XAP.Workbooks.Open(<path>)
Set XLS = XWL.Worksheets(1) ' oder XLW.Worksheets("<sheetname>")
 
' Beispielsweise
xls.cells(4,6)=now()
xls.cells(4,6).NumberFormat = "ddd dd-mmm"
 
' Wenn Du Bereiche im Excel Benannt hast
 
xls.range("RGNR")=xls.range("RGNR").value+1
 
' Druckbereich Festlegen
xls.PageSetup.PrintArea =xls.range(xls.cells(1),xls.cells(50,24)).address
xls.PrintOut Copies:=1, Collate:=True
 
' [...]
 
End Sub