maurogsc.eu mauro gamberini

home ==> Excel: come fare per ==> Excel: versione di Excel

Excel: versione di Excel - VBA

NOTA. La soluzione ed il codice sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dal codice o dalla soluzione proposta se usati impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.

1 - Routine(Sub) che mostra in una MsgBox la versione di Excel. Nel caso siano installate più versioni, viene restituita quella più recente o quella di default sulla macchina.

Public Sub m()

    Dim xlApp As New Excel.Application

    Select Case Val(Mid(xlApp.Version, 1, _
        InStr(1, xlApp.Version, ".") - 1))
        Case 14
            MsgBox "Excel 2010"
        Case 12
            MsgBox "Excel 2007"
        Case 11
            MsgBox "Excel 2003"
        Case 10
            MsgBox "Excel 2002(XP)"
        Case 9
            MsgBox "Excel 2000"
    End Select
    
    Set xlApp = Nothing

End Sub

2 - Routine(Sub) che mostra in una MsgBox la versione di Excel relativa al file che contiene il codice:

Public Sub m()

    Select Case Val(Mid(Application.Version, 1, _
        InStr(1, Application.Version, ".") - 1))
        Case 14
            MsgBox "Excel 2010"
        Case 12
            MsgBox "Excel 2007"
        Case 11
            MsgBox "Excel 2003"
        Case 10
            MsgBox "Excel 2002(XP)"
        Case 9
            MsgBox "Excel 2000"
    End Select

End Sub

3 - Routine(Function) che restituisce come valore la versione di Excel relativa al file che contiene il codice:

Public Function f() As Long
    With Application
        f = Val(Mid(.Version, 1, _
            InStr(1, .Version, ".") - 1))
    End With
End Function

Da richiamare così:

Public Sub mmm()
    MsgBox f
End Sub

Per ulteriori informazioni su Microsoft Excel ed il suo Visual Basic, utilizzate questo forum:
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads

Ultimo aggiornamento di questa pagina: 16/12/2010 - mauro gamberini