Как из VBA узнать версию Exсel у объекта Excel.Application

@GenaY · Регистрация: 29.05.2013

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

Здравствуйте.
Заполняю создаю и заполняю данными Excel файл из Access с помощью кода:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Эксель, Книга, Лист As Object
Set Эксель = CreateObject("Excel.Application")
Set Книга = Эксель.Workbooks.Add("C:\Test\Xlt\Шаблон.xlt")
Set Лист = Книга.Sheets(1)
 
'Дальше, что то похожее на это только длиннее и скучнее:
Лист.Cells(1, 1) = 1 
Лист.Cells(2, 1) = 2 
Лист.Cells(3, 1) = 3
Лист.Cells(4, 1) = 4
 
'Сохраняю все в файл
Книга.SaveAs "C:\Test\Xls\Результат.xls"
 
'Закрываю Excel 
    If Not (Эксель Is Nothing) Then
        Эксель.Quit
        'Эксель.Visible = True 'если нужно увидеть что получилось сразу
        Set Лист = Nothing
        Set Книга = Nothing
        Set Эксель = Nothing
    End If

Может кто знает, как из VBA узнать версию Exсel у объекта Excel.Application
Мне в зависимости от версии Exсel 2003 или Exсel 2010 по разному заполнять файл нужно.

mobile · 20.11.2013, 02:07

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

Может кто знает, как из VBA узнать версию Exсel у объекта Excel.Application
Мне в зависимости от версии Exсel 2003 или Exсel 2010 по разному заполнять файл нужно.

Свойство Version переменной типа Excel.Application:

Visual Basic
1
debug.print Эксель.Version

@Серж_87 · 20.11.2013, 18:59

Не по теме:

Вопроса темы не касается...

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

Dim Эксель, Книга, Лист As Object

разве в ВБА так прокатит? по по-моему каждую отдельно нужно писать
Dim Эксель As Object
Dim Книга As Object
Dim Лист As Object

mobile · 20.11.2013, 19:20

Так, конечно, очень неаккуратно. Но пройдет, поскольку переменная с необъявленным типом будет иметь тип Variant, который может принимать любые типы.
Но вы,emenem97, правы еще и в том смысле, что ТС видимо не точно знает как объявлять типы в ВБА. Каждой переменной следует объявлять тип по отдельности, групповые назначения (одно на строку) не катят.

@GenaY · 20.11.2013, 20:42 **[ТС]**

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

Так, конечно, очень неаккуратно. Но пройдет, поскольку переменная с необъявленным типом будет иметь тип Variant, который может принимать любые типы.
Но вы,emenem97, правы еще и в том смысле, что ТС видимо не точно знает как объявлять типы в ВБА. Каждой переменной следует объявлять тип по отдельности, групповые назначения (одно на строку) не катят.

В VB прокатывало. Исправлю конечно же.

Visual Basic
1
Dim Эксель As Object, Книга As Object, Лист As Object

@Серж_87 · 20.11.2013, 20:44

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

В VB прокатывало

на сколько я знаю в VBA и VB6 это не прокатит. А в VB.net можно

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока 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? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

mobile 26825 / 14505 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	20.11.2013, 19:20
	Сообщение было отмечено как решение Решение Так, конечно, очень неаккуратно. Но пройдет, поскольку переменная с необъявленным типом будет иметь тип Variant, который может принимать любые типы. Но вы,emenem97, правы еще и в том смысле, что ТС видимо не точно знает как объявлять типы в ВБА. Каждой переменной следует объявлять тип по отдельности, групповые назначения (одно на строку) не катят. 3

Как из VBA узнать версию Exсel у объекта Excel.Application

Решение