MsgBox "Excel-Version:" & modOffice.xlsInfoWindowsExcel.ApplicationVersion

MsgBox "Betriebsystem-Version:" & _
  modOffice.xlsInfoWindowsExcel.ApplicationOperatingSystem

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

*greetz*
Tim
.
http://www.DotNetWorld.de