Public Function xlsInfoWindowsExcel() As ptExcelInfo
  ' Ermittlung der installierten Windows- und der Excelversion
  On Error Resume Next
  With xlsInfoWindowsExcel
     .ApplicationOperatingSystem = dynOffice.Excel.Application.OperatingSystem
     .ApplicationVersion = dynOffice.Excel.Application.Version
     .SystemVersion = dynOffice.Excel.System.Version
   End With
  On Error GoTo 0
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de