MyTetra Share
Делитесь знаниями!
Определение используемой версии Excel
31.07.2019
22:38
Текстовые метки: версия_офиса, битность_офиса
Раздел: !Закладки - VBA
Определение используемой версии Excel - Процедуры - VBA - Готовые решения$ - Мир MS Excel

Определение используемой версии Excel


'http://www.cyberforum.ru/vba/thread1851214.html

Sub Bitnost()

MsgBox "Welcome to Microsoft Excel version " & _

Application.Version & " running on " & _

Application.OperatingSystem & "!"

End Sub



11.12.2013, 17:27

[ Файл-пример (59.0 Kb) ]

Для определения текущей версии Excel используйте такой код:



Sub Version()  

Dim Ver as String  

 Select Case Val(Application.Version)  

 Case Is <= 8: Ver = "Microsoft Excel 20-го века"  

 Case 9: Ver = "Microsoft Excel 2000"  

 Case 10: Ver = "Microsoft Excel 2002"  

 Case 11: Ver = "Microsoft Excel 2003"  

 Case 12: Ver = "Microsoft Excel 2007"  

 Case 14: Ver = "Microsoft Excel 2010"  

 Case 15: Ver = "Microsoft Excel 2013"  

 Case 16: Ver = "Microsoft Excel 2016"  

 Case Else: Ver = "Версия не определена"  

 End Select  

 MsgBox "Вы работаете в " & Ver  

End Sub  


Добавил: Serge_007 |

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования