Передача управления кодом от vb6 к vba и обратно

@lae1965 · Регистрация: 06.03.2015

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

Здравствуйте!
Я написал небольшую программку на vb6, которая создает форму, контролирующую доступ пользователей к базе данных (в формате xl), формирующую список объектов, позволяющую выбрать необходимый объект (определенный лист книги xl) и собственно запустить приложение Excel, создав новую книгу и скопировав в нее нужный лист. С этими задачами я справился. Никак не разберусь со следующей задачей:
- как перед "показом" листа Excel убрать форму с экрана, а после выхода из Excel вновь показать форму и продолжить работу в ней, другими словами, как понять, что Excel отработал и vb6 пора принимать управление процессом на себя?
Заранее благодарен.

@Catstail · 09.03.2015, 21:46

А как запускается Excel?

@lae1965 · 09.03.2015, 21:53 **[ТС]**

Из vb6

Visual Basic
1
2
3
CreateObject ("Excel.Application")
Application.Workbooks.Open (PATH_TO_FILES & MANAGMENT_ACCOUNT_FILE)
Application.Visible = True

@Казанский · 09.03.2015, 21:55

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

а после выхода из Excel вновь показать форму и продолжить работу в ней

Какое событие определяет "выход из Excel"? Закрытие приложения? Или книги? Или что-то еще?

@lae1965 · 09.03.2015, 22:04 **[ТС]**

Я перехватываю закрытие книги с помощью vba (Workbook_BeforeClose) и сохраняю определенным образом в базу. Вопрос в том, что мой код vb6 этого не понимает. Как ему "сказать", что я уже вышел из книги и пора ему продолжать работать?

@dzug · 09.03.2015, 22:42

Из VBA вставляете в буфер обмена WIN определённое слово, а из VB6 периодически читаете что в буф.обмена WIN, и прочитав заранее обусловленное слово продолжаете работу VB6..

@Казанский · 09.03.2015, 23:22

Ну зачем так... События Excel можно обрабатывать в VB6, VBA собственно не нужен.
Создайте форму с кнопкой, в Project - References подключите библиотеку Microsoft Excel xx.x Object Library и попробуйте такой код

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
30
31
Option Explicit
 
Dim WithEvents xlApp As Excel.Application
Dim xlWb As Excel.Workbook
 
Private Sub Command1_Click()
  Set xlApp = New Excel.Application
  Set xlWb = xlApp.Workbooks.Open("c:\temp\Лист1.xls") '==== путь к книге
  xlApp.Visible = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  On Error Resume Next
  xlApp.Quit
End Sub
 
Private Sub xlApp_WorkbookBeforeClose(ByVal wb As Excel.Workbook, Cancel As Boolean)
  If wb Is xlWb Then
    xlApp.Visible = False
    If MsgBox("VB6 - Вы уверены, что хотите закрыть книгу?", vbYesNo) = vbNo Then
      Cancel = True
      MsgBox "VB6 - ОК, продолжаем"
      xlApp.Visible = True
      Exit Sub
    Else
      xlApp.EnableEvents = False
      wb.Close True 'закрыть с сохранением
      xlApp.Quit
    End If
  End If
End Sub

Попробуйте обрабатывать и другие события Excel - в левом выпадающем списке над кодом выберите xlApp, в правом список событий.

@lae1965 · 10.03.2015, 11:44 **[ТС]**

Большое спасибо! Свою программу еще не доделал, но Ваш код обкатал, принцип понял, теперь все получится

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@lae1965 0 / 0 / 0 Регистрация: 06.03.2015 Сообщений: 8

	Передача управления кодом от vb6 к vba и обратно 09.03.2015, 20:57. Показов 1371. Ответов 7 Метки нет (Все метки) Здравствуйте! Я написал небольшую программку на vb6, которая создает форму, контролирующую доступ пользователей к базе данных (в формате xl), формирующую список объектов, позволяющую выбрать необходимый объект (определенный лист книги xl) и собственно запустить приложение Excel, создав новую книгу и скопировав в нее нужный лист. С этими задачами я справился. Никак не разберусь со следующей задачей: - как перед "показом" листа Excel убрать форму с экрана, а после выхода из Excel вновь показать форму и продолжить работу в ней, другими словами, как понять, что Excel отработал и vb6 пора принимать управление процессом на себя? Заранее благодарен. 0

@Catstail Супер-модератор 38168 / 21103 / 4307 Регистрация: 12.02.2012 Сообщений: 34,692 Записей в блоге: 14
	09.03.2015, 21:46
	А как запускается Excel? 0

@lae1965 0 / 0 / 0 Регистрация: 06.03.2015 Сообщений: 8
	09.03.2015, 22:04 [ТС]
	Я перехватываю закрытие книги с помощью vba (Workbook_BeforeClose) и сохраняю определенным образом в базу. Вопрос в том, что мой код vb6 этого не понимает. Как ему "сказать", что я уже вышел из книги и пора ему продолжать работать? 0

@dzug 695 / 236 / 18 Регистрация: 17.01.2011 Сообщений: 583 Записей в блоге: 1
	09.03.2015, 22:42
	Из VBA вставляете в буфер обмена WIN определённое слово, а из VB6 периодически читаете что в буф.обмена WIN, и прочитав заранее обусловленное слово продолжаете работу VB6.. 1

@lae1965 0 / 0 / 0 Регистрация: 06.03.2015 Сообщений: 8
	10.03.2015, 11:44 [ТС]
	Большое спасибо! Свою программу еще не доделал, но Ваш код обкатал, принцип понял, теперь все получится 0

Передача управления кодом от vb6 к vba и обратно

Решение