Office64-bit erkennen
28.02.2013 20:37:21
Albert
ich möchte beim Start einer Datei die Officeversion (32 oder 64 Bit) abfragen und habe folgenden Code verwendet. Das Problem ist nun, dass auf dem Rechner mit der 32 Bitversion die MsgBox eingeblendet wird, die Abfrage vom Rechner mit der 64 Bitversion jedoch übergangen wird. Wenn ich mit "Application.OperatingSystem" eine Systemabfrage auf diesem Rechner mache wird jedoch folgende Version angezeigt "Windows (64-bit) NT 6.01".
Private Sub Workbook_Open()
If Application.OperatingSystem = "Windows (64-bit) NT 6.01" Then
MsgBox ("Dies ist eine 64-Bit Officeversion und die wird von diesem Programm nicht unterstützt") _
Else
MsgBox ("Dies ist eine 32-Bit Officeversion")
End If
Auch diese Abfrage wird vom Rechner mit der 64 Bit-Version ignoriert
'#If Win64 Then
' MsgBox ("Es wird nur Office in der 32-Bitversion unterstützt")
' ActiveWorkbook.Close
' Application.Quit
'#End If
End Sub
Wer kann mir da weiterhelfen, vielen Dank im Voraus
Albert