powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 и Excel
8 сообщений из 8, страница 1 из 1
VB6 и Excel
    #32379406
vaca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Проблема !!!
Есть форма в VB с кнопкой. При нажатии на кнопку открывается Excel файл Dim Ex As New Excel.Application
Ex.Workbooks.Open "C:\Ля-Ля-Ля"
Ex.Visible = False
В данном Excel файле есть макрос
Sub aaa ()
Range ("A1").Value = 10
End sub

Вопрос: как через VB6 запустить макрос (ааа) в окрытом Excel файле.
...
Рейтинг: 0 / 0
VB6 и Excel
    #32379452
andreiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Объяви макрос "Public" в Excel, тогда он должен быть доступен как метод.
...
Рейтинг: 0 / 0
VB6 и Excel
    #32379568
vaca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А как будет выглядеть сам код в VB6.
...
Рейтинг: 0 / 0
VB6 и Excel
    #32379639
andreiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ex.aaa
...
Рейтинг: 0 / 0
VB6 и Excel
    #32379649
andreiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
точне вот так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim wb as Object
Set wb = GetObject( "C:\Ля-Ля-Ля" , "Excel.Workbook" )
wb.Visible = True 'если оно надо'
...
wb.aaa
...
wb.Close xlSaveYes 'помоему так'
Set vb = Nothing
...
Рейтинг: 0 / 0
VB6 и Excel
    #32383862
vaca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я написал следующий код:
Private Sub Command1_Click()
Dim Ex As New Excel.Application
Ex.Workbooks.Open "C:\Мои файлы\Книга1.xls"
Ex.Visible = False
Ex.Application.Run aaa
Form1.Text1.Text = Ex.Range("A2").Text
Ex.ActiveWorkbook.Save
Ex.ActiveWorkbook.Close

Суть проблемы в том, что файл Книга1.xls открывается. Но при нажатии на кнопку в форме VB6 макрос aaa не выполняется. В чем проблема.

aaa - это макрос (Sub) в файле Книга1. Также я пробовал делать
Public sub aaa () - ничего не выходит
...
Рейтинг: 0 / 0
VB6 и Excel
    #32383863
vaca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пробовал также и следующий код:
Dim wb as Object
Set wb = GetObject("C:\Мои файлы\Книга1.xls","Excel.Workbook")
wb.Visible = True 'если оно надо'
...
wb.aaa

Но выскакивает ошибка "ActiveX component can't create object"

Помогите, очень надо
...
Рейтинг: 0 / 0
VB6 и Excel
    #32384176
Ardd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробуй сделай ее не Sub, а Function. Должно сработать ....
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 и Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]