Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 и Excel / 8 сообщений из 8, страница 1 из 1
17.01.2004, 22:30
    #32379406
vaca
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и Excel
Проблема !!!
Есть форма в 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
18.01.2004, 03:32
    #32379452
andreiy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и Excel
Объяви макрос "Public" в Excel, тогда он должен быть доступен как метод.
...
Рейтинг: 0 / 0
18.01.2004, 19:16
    #32379568
vaca
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и Excel
А как будет выглядеть сам код в VB6.
...
Рейтинг: 0 / 0
19.01.2004, 01:56
    #32379639
andreiy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и Excel
Ex.aaa
...
Рейтинг: 0 / 0
19.01.2004, 03:23
    #32379649
andreiy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и Excel
точне вот так:

Код: 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
21.01.2004, 22:21
    #32383862
vaca
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и Excel
Я написал следующий код:
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
21.01.2004, 22:26
    #32383863
vaca
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и Excel
Пробовал также и следующий код:
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
22.01.2004, 10:43
    #32384176
Ardd
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB6 и Excel
Попробуй сделай ее не Sub, а Function. Должно сработать ....
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB6 и Excel / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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