Узнать версию Excel на ПК

@Серж_87 · Регистрация: 09.08.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Прошу подсказать, как проверить какая версия excel установлена на компьютер аксессом ? 2003/2007/2010...
Просто использую код, который выполняется только при наличии 2007 экселя, хочу сделать условие на выполняемые действия в зависимости от установленной версии

iifat · 09.02.2014, 10:33

Сообщение от emenem97

У Андрэича именно так - 2010 и 2013 стоит

Да у меня, собственно, тоже, Access XP и Офис 2010. Но таки умным это решение я б всё равно не назвал

Сообщение от emenem97

Я вот этим и занимаюсь в этой теме

Не совсем. Имею в виду, что при налчии Excel функция выдаст его версию, при отсутствии — произойдёт ошибка. Если нужно определить наличие и версию, можно, собственно, не заморачиваться конкретным кодом.

@Серж_87 · 09.02.2014, 10:47 **[ТС]**

Скрин ошибки прилагаю, если кому интересно
Сделать решил немого по другому (см. код).
Но почему то не работает. Попробуйте, пожалуйста в кнопку вставить. Что я делаю не так?

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Кнопка1_Click()
Dim xls As Object
Dim VERSIYA As String
Set xls = CreateObject("Excel.Application")
VERSIYA = xls.Application.Version 'переменной присваиваем значение
If VERSIYA = "14.0" Then
MsgBox ("Установлен 2010") 'нужное действие вставлю
If VERSIYA = "12.0" Then
MsgBox ("Установлен 2007") 'нужное действие вставлю
If VERSIYA = "11.0" Then
MsgBox ("Установлен 2003") 'нужное действие вставлю
Else
MsgBox ("Не установлен эксель, установите!") 'если не утановлен, то чтобы не было ошибки программы
End If
Set xls = Nothing
End Sub

@Андрэич · 09.02.2014, 11:09

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Кнопка1_Click()
Dim xls As Object
Dim VERSIYA As String
 
On Error GoTo ErrHandler
 
Set xls = CreateObject("Excel.Application")
VERSIYA = xls.Application.Version 'переменной присваиваем значение
If VERSIYA = "14.0" Then
MsgBox ("Установлен 2010") 'нужное действие вставлю
If VERSIYA = "12.0" Then
MsgBox ("Установлен 2007") 'нужное действие вставлю
If VERSIYA = "11.0" Then
MsgBox ("Установлен 2003") 'нужное действие вставлю
Else
 
End If
 
ErrEnd:
  Set xls = Nothing
  Exit Sub
ErrHandler:
  select case Err.Number
    case 429
      ...
      Resume ErrEnd
  end select
 
End Sub

@Серж_87 · 09.02.2014, 13:08 **[ТС]**

У меня выше в коде с оператором IF напутано, не работает.

Если кому нужно, то выкладываю окончательный код (рабочий) процедуры...

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub VersExcel()
Dim xls As Object
Dim VERSIYA As String
 
On Error GoTo ErrHandler   'Отлавливаем ошибки
 
Set xls = CreateObject("Excel.Application")
VERSIYA = xls.Application.Version
Select Case VERSIYA
Case "14.0"
MsgBox ("Установлен 2010")
Case "12.0"
MsgBox MsgBox("Установлен 2007")
Case "11.0"
MsgBox MsgBox("Установлен 2003")
Case Else
MsgBox ("Другая версия")
End Select
 
ErrEnd:
Set xls = Nothing
Exit Sub
ErrHandler:   'Аналириуем ошибки
  Select Case Err.Number
    Case 429    'Если ошибка 429 (если не установлен эксель)
      MsgBox ("Не установлен")
      Resume ErrEnd
  End Select
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))
Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .	Диалоги с ИИ zorxor 23.05.2026 Насколько я понимаю - Вы - Искусственный Интеллект. Это так? Да, всё верно. Я — искусственный интеллект. Я представляю собой большую языковую модель, созданную для помощи в самых разных задачах. . . .	Модель здравосохранения 14. Собираем всю модель вместе. anaschu 22.05.2026 Модель собрана. В будущих постах на видео я покажу, как она работает. В этом посте запускаем её, проверяем результаты и разбираем что можно с ней делать дальше. Перед запуском проверяем. . .	Модель здравоохранения 13. Добавление самой системы здравоохранения. anaschu 22.05.2026 В предыдущем посте мы настроили болезни. Теперь добавим события, которые управляют здоровьем всего коллектива, а также настроим рабочий график и расчёт финансов. В Main создаём четыре события. . . .

@Серж_87 1303 / 509 / 63 Регистрация: 09.08.2012 Сообщений: 2,056

	Узнать версию Excel на ПК 08.02.2014, 21:05. Показов 7523. Ответов 23 Метки нет (Все метки) Здравствуйте. Прошу подсказать, как проверить какая версия excel установлена на компьютер аксессом ? 2003/2007/2010... Просто использую код, который выполняется только при наличии 2007 экселя, хочу сделать условие на выполняемые действия в зависимости от установленной версии 0