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

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

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

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

mobile · 08.02.2014, 21:17

Версия Excel наверное такая же как и Access. В Access можно опросить для 2010:

Visual Basic
1
2
?Version
14.0

Если 2007, то ответ будет 12.0. Для 2003 11.0. Ну и так далее

@Серж_87 · 08.02.2014, 21:23 **[ТС]**

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

Версия Excel наверное такая же как и Access.

программа будет в mdb формате, у части сотрудников 2003 стоит и аксес и эксель, а у части уже 2007.
Вот поэтому в зависимости от версии будут разные действия (костыли конечно

)

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

?Version
14.0

а как это использовать подскажите? на VBA не похоже

mobile · 08.02.2014, 21:32

Это в ВБА. В области отладки (Immediate) редактора ВБЕ. Знак ? равнозначен Debug.Print для выдачи в Immediate в коде. В функции можно опрашивать так

Visual Basic
1
2
3
4
5
6
7
8
Select Case Version
  Case "14.0" 
  'что-то делаем в случае 2010
  Case "12.0" 
  'что-то делаем в случае 2007
  Case "11.0" 
  'что-то делаем в случае 2003
End Select

@Серж_87 · 08.02.2014, 21:45 **[ТС]**

Ничего не понял из вышесказанного

В отладку вставлял ничего не произошло.
Пожет я не так выразился, мне нужно код в процедуру вставить, как то так

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Кнопка1_Click()
Select Case Version
  Case "14.0"
  msgbox ("2010")
  Case "12.0"
  msgbox ("2007")
  Case "11.0"
  msgbox ("2003")
End Select
End Sub

Добавлено через 2 минуты
Сработало, извиняюсь

Спасибо

@Андрэич · 09.02.2014, 01:40

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Versions()
 
  Dim xls As Object
  Set xls = CreateObject("Excel.Application")
 
  MsgBox Application.Version & _
              vbNewLine & _
         xls.Application.Version
 
  Set xls = Nothing
End Sub

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

Андрэич, спасибо,узнать версию самого экселя это именно и нужно.
Только вопрос возник по вашему коду, результат процедуры это два значения получется. Для чего два и что каждая означает подскажите, пожалуйста?

Visual Basic
1
2
3
Application.Version & _      'Узнаем версию экселя?
vbNewLine & _              'ставим enter
xls.Application.Version   'Здесь еще раз версию или чем отличие от строки выше?

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

emenem97, для наглядности, если установлены разные версии Акса и Экселя (у меня, например, 12 и 14 соответственно)

Добавлено через 2 минуты
То есть, 1-ая строка в сообщений - версия Акса, 2-ая - Экселя

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

Понял теперь, то есть в моем случае убрать первый параметр и оставить второй (только эксель интересует). Спасибо

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

Но вообще, нужно ещё как минимум обрабатывать ошибки, например, делать что-либо, если Эксель не установлен и т.д.

@Серж_87 · 09.02.2014, 09:21 **[ТС]**

Сообщение от Андрэич

делать что-либо, если Эксель не установлен и т.д.

Андрэич, случайно не знаете какой вернет результат ваша процедура, если эксель отсутствует на ПК? Проверить не на чем, а сносить эксель не сильно хочется

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

Наберите в Справке редактора кода что-то типа Object reqired. Вроде :-)

Добавлено через 3 минуты
reqUired
(забыл: слово латинское, а там Ку всегда с буквой У

)

iifat · 09.02.2014, 09:34

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

какой вернет результат ваша процедура, если эксель отсутствует на ПК?

В общем-то, вывалится с какой-нить ошибкой, имхо. На строчке с CreateObject.

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

Да, точно: ерунду там какую-нить в скобках надо написать

@Серж_87 · 09.02.2014, 09:39 **[ТС]**

Сейчас на испытательном полигоне (вирт машина) снесу эксель, точную ошибку напишу потом.
Мне просто она нужна чтобы исключение настроить, то есть не примерная а точная ошибка

iifat · 09.02.2014, 09:44

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

Версия Excel наверное такая же как и Access

Ну, кстати говоря, держать на компе разные версии Excel и Access, конечно, глупость, но в жизни ещё и не такое случается.

Добавлено через 1 минуту

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

нужна чтобы исключение настроить, то есть не примерная а точная ошибка

А разве для настройки исключений нужна прям точная ошибка? Проверить, если не лень, конечно, стоит.

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

Так попробуйте:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Versions()
 
  Dim xls As Object
  Set xls = CreateObject("emenem97Excel.Application")
 
  MsgBox Application.Version & _
              vbNewLine & _
         xls.Application.Version
 
  Set xls = Nothing
End Sub

@Серж_87 · 09.02.2014, 09:50 **[ТС]**

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

Ну, кстати говоря, держать на компе разные версии Excel и Access, конечно, глупость, но в жизни ещё и не такое случается.

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

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

держать на компе
разные версии Excel и Access,
конечно, глупость

Не по теме:

- Если ты такой умный, то почему такой бедный?
- А ты почему богатый, но такой глупый?
(С) Анекдот из жизни
:D

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

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

Ну, кстати говоря, держать на компе разные версии Excel и Access, конечно, глупость, но в жизни ещё и не такое случается.

а на предприятиях, там каждый компонент по отдельности стоит и ставится. Установили к примеру эксель 2003 в 2005 году сотруднику, потом ему через 3 года понадобился аксес и ставят только аксес 2007 уже. Сносить купленный эксель 2003 и платить еще за 2007 никто не будет

Добавлено через 2 минуты

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

А разве для настройки исключений нужна прям точная ошибка?

Я вот этим и занимаюсь в этой теме, вначале определю версию экселяи и есть ли он, потом в зависимости от полученного результата будут различные действия

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

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

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

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	09.02.2014, 09:12
	emenem97, для наглядности, если установлены разные версии Акса и Экселя (у меня, например, 12 и 14 соответственно) Добавлено через 2 минуты То есть, 1-ая строка в сообщений - версия Акса, 2-ая - Экселя 1

@Серж_87 1303 / 509 / 63 Регистрация: 09.08.2012 Сообщений: 2,056
	09.02.2014, 09:13 [ТС]
	Понял теперь, то есть в моем случае убрать первый параметр и оставить второй (только эксель интересует). Спасибо 1

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	09.02.2014, 09:15
	Но вообще, нужно ещё как минимум обрабатывать ошибки, например, делать что-либо, если Эксель не установлен и т.д. 1

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	09.02.2014, 09:33
	Наберите в Справке редактора кода что-то типа Object reqired. Вроде :-) Добавлено через 3 минуты reqUired (забыл: слово латинское, а там Ку всегда с буквой У ) 1

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	09.02.2014, 09:37
	Да, точно: ерунду там какую-нить в скобках надо написать 0

@Серж_87 1303 / 509 / 63 Регистрация: 09.08.2012 Сообщений: 2,056
	09.02.2014, 09:39 [ТС]
	Сейчас на испытательном полигоне (вирт машина) снесу эксель, точную ошибку напишу потом. Мне просто она нужна чтобы исключение настроить, то есть не примерная а точная ошибка 0

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

Решение