DONUT PROJECT 2024 - VBA - Desenvolvimento Obter Informações sobre a Versão do Sistema Operacional

Aqui está um código VBA que você pode usar para obter a versão do sistema operacional:

 Série Donut Project 

  

#If VBA7 Then

    Private Declare PtrSafe Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

#Else

    Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

#End If

Private Type OSVERSIONINFO

    dwOSVersionInfoSize As Long

    dwMajorVersion As Long

    dwMinorVersion As Long

    dwBuildNumber As Long

    dwPlatformId As Long

    szCSDVersion As String * 128

End Type

Function GetWindowsVersion() As String

    Dim osInfo As OSVERSIONINFO

    osInfo.dwOSVersionInfoSize = Len(osInfo)

    GetVersionEx osInfo

    

    Dim version As String

    Select Case osInfo.dwPlatformId

        Case 1 ' Windows 95/98/Me

            version = "Windows 9x"

        Case 2 ' Windows NT/2000/XP/Vista/7/8/10

            Select Case osInfo.dwMajorVersion

                Case 5

                    If osInfo.dwMinorVersion = 0 Then

                        version = "Windows 2000"

                    ElseIf osInfo.dwMinorVersion = 1 Then

                        version = "Windows XP"

                    ElseIf osInfo.dwMinorVersion = 2 Then

                        version = "Windows Server 2003"

                    End If

                Case 6

                    If osInfo.dwMinorVersion = 0 Then

                        version = "Windows Vista"

                    ElseIf osInfo.dwMinorVersion = 1 Then

                        version = "Windows 7"

                    ElseIf osInfo.dwMinorVersion = 2 Then

                        version = "Windows 8"

                    ElseIf osInfo.dwMinorVersion = 3 Then

                        version = "Windows 8.1"

                    Else

                        version = "Windows 10 or later"

                    End If

                Case Else

                    version = "Windows NT"

            End Select

    End Select

    

    GetWindowsVersion = version & " (Build " & osInfo.dwBuildNumber & ")"

End Function

 

Este código define uma função GetWindowsVersion que retorna a versão do sistema operacional Windows em que o Excel está sendo executado, juntamente com o número da versão e o número de compilação.

 Série VBA Outlook: 

  

  

  

Você pode evocar o código acima de qualquer lugar no seu código VBA e usar o valor retornado conforme necessário.

 Clique nas capas abaixo e compre também: