Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Необязательный параметр в макросе / 17 сообщений из 17, страница 1 из 1
03.06.2008, 15:13
    #35351537
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
макрос
Код: plaintext
1.
2.
Sub MakeЕЕЕ(EEE as Object)

из приложения вызываю
Код: plaintext
1.
oExcel.run("MakeЕЕЕ", oObject)
работате


как позвать макрос без параметра?
Код: plaintext
1.
oExcel.run("MakeЕЕЕ")


возможно ли это?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 15:28
    #35351585
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
> Автор: 12345вышелзайчикпогулять
> макрос
>
> Sub MakeЕЕЕ(EEE as Object)

Sub MakeЕЕЕ(Optional EEE as Object)

> как позвать макрос без параметра?
>
> oExcel.run("MakeЕЕЕ")
>
>
> возможно ли это?

А вот это проверить нужно :)
Может и можно так.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 15:39
    #35351613
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
OLE error code 0x8002000f: Parameter not optional.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 15:40
    #35351619
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
получаю эту ошибку

возможен ли вызов без передачи параметра

а в макросе уже
разрулить

if not .... is nosing then
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 16:01
    #35351678
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
> Автор: 12345вышелзайчикпогулять
> получаю эту ошибку
>
> возможен ли вызов без передачи параметра
>
> а в макросе уже
> разрулить
>
> if not .... is nosing then
> ...

вообще в справке написанно:
This means that you cannot pass objects to macros by using the Run method.
что нельзя передавать объекты. Поэтому просто вызывай без параметров

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 16:22
    #35351738
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
Дружище

то-же самое

с as String

мне кажется, что наверное не там проблему смотрим

хорошо, нарисуй мне пример

макроса с ...
который можно позвать с параметром и без

или как это обойти?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 16:31
    #35351774
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
блин, как-же все сложно
на пустом месте


еще раз

есть макрос

у него я пишу аргумент - один единственный

и хочу звать этот макрос

без аргумента или с оным

можно так делать

или строго
если я объявил аргумент, то с аргументом и нужно звать

2Игорь Горбонос
прошу ответ по-существу,
тип передаваемого аргумента (параметра) не влияет,
объект засылается прекрасно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 16:39
    #35351806
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub d()

Call t("")
Call t


End Sub


Sub t(t As String)

End Sub

хочу сделать так

Call t - ошибка

как мне сделать так, чтобы передавать или не передавать

или как
это обходится???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 16:43
    #35351817
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
Дружище!

Вот примерище:

В VB6 программе:

Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim mobjExcel as new Excel.Application
    Dim objInputWorkBook As New Workbook
    
    Set objInputWorkBook = mobjExcel.Workbooks.Open(pstrInputFile, , xlReadOnly)

   mobjExcel.Run "MyMacro"
   mobjExcel.Run "MyMacro", "GoGoGoooo!"

В книге, в модуле:

Код: plaintext
1.
2.
3.
4.
Option Explicit

Public Sub MyMacro(Optional ByVal pstrMyOptionalPar As String = "")
    MsgBox "Igogo" & pstrMyOptionalPar
End Sub

Кстати, у тебя, Run со скобочками, без правой части и без Call. Это не похоже ни на VBA, ни на VB5/VB6....

Прошу прощения за интервенцию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 16:45
    #35351827
Chelovek Tapok
Chelovek Tapok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub d()

Call t("")
Call t


End Sub


Sub t (Optional t As String)

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 17:38
    #35351980
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
ребята, спасибо большое

все получилось
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 17:40
    #35351986
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
авторКстати, у тебя, Run со скобочками, без правой части и без Call. Это не похоже ни на VBA, ни на VB5/VB6....


это лиса - фокспро
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 17:43
    #35351997
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
блин
пол дня об моник бился - уже грохать
свои изменения хотел

проблема - долго ексель работает
в фоновом режиме - юзверы
снимают процессы

а я им в тулбар свой свечу сообщения
из екселя

вот и заслал в нужные макросы свое приложение,
спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 18:12
    #35352090
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
> Автор: 12345вышелзайчикпогулять
> блин
> пол дня об моник бился - уже грохать
> свои изменения хотел
>
> проблема - долго ексель работает
> в фоновом режиме - юзверы
> снимают процессы

Долго это сколько? У нас из лисы отчет готовился порядка 40 минут, в это
время бегает прогрессбар и они терпеливо ждут, провели работы по ускорению и
сократили время в два раза :)

> а я им в тулбар свой свечу сообщения
> из екселя
>
> вот и заслал в нужные макросы свое приложение,
> спасибо

Вот этого не делали, т.к. в целях безопастности, отключают использование
макросов в безопастности

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 18:32
    #35352157
12345вышелзайчикпогулять
12345вышелзайчикпогулять
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
2Игорь Горбонос

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

а Вы мне продолжаете советовать ерунду,
о чем я Вас не просил

так, что извините ....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 19:00
    #35352223
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
> Автор: 12345вышелзайчикпогулять
> 2Игорь Горбонос
>
> я советов не просил,
> я просил указать на решение проблемы
> в передаче параметров,
> что за Вас успешно сделали другие...

:)
Найди 10 отличий:
Игорь ГорбоносSub MakeЕЕЕ(Optional EEE as Object)
VladConnPublic Sub MyMacro(Optional ByVal pstrMyOptionalPar As String
= "")
Квалификаторы доступа есть и в фоксе, можно было и справку почитать

>
> а Вы мне продолжаете советовать ерунду,
> о чем я Вас не просил

В последнем посте я ничего не советовал, а спрашивал, для расширения своего
кругозора. И говорил свои особенности эксплуатации программ.
>
> так, что извините ....

:)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2008, 19:27
    #35352275
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необязательный параметр в макросе
Я прошу прощения, но на моей памяти Игорь Горбонос еще НИКОГДА не советовал ерунду! Включая этот топик.

Успехов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Необязательный параметр в макросе / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 303ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162209]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 26ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 205ms
total:  303ms
x
x
Закрыть


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