Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Асмик Александровна
Статус: Академик
Рейтинг: 7454
∙ повысить рейтинг »
Vasiliy83
Статус: Профессионал
Рейтинг: 2022
∙ повысить рейтинг »
Megaloman
Статус: Профессор
Рейтинг: 1707
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Basic/VBA

Номер выпуска:1060
Дата выхода:08.03.2011, 13:30
Администратор рассылки:lamed (Профессор)
Подписчиков / экспертов:193 / 88
Вопросов / ответов:3 / 7

Вопрос № 32970: Приветствую вас, уважаемые Эксперты. Продолжение вопросов 32064 и 32222 1. --- У Екселя есть соб...


Вопрос № 76359: Уважаемые эксперты. Всем доброго дня Имеется объект (image или picture), который перемещается по форме под управлением клавиатуры. Как сделать, чтобы координаты этого объекта измерялись не от левого верхнего угла объекта, а например от центра объ...
Вопрос № 55171: Салют! А подскажите, как можно зарегистрировать в системе библиотеку msadr1.dll? Обычный regsvr32 не спасает, rundll32 msador15,DllRegisterServer - тоже. Что делать? Куды бечь?...

Вопрос № 32970:

Приветствую вас, уважаемые Эксперты.

Продолжение вопросов 32064 и 32222

1. --- У Екселя есть событие Private Sub Workbook_Open

Поставил как сказали - в заголовок макроса встроенной книги personal.xls:

Private Sub Workbook_Open
Text_Code
End Sub

Компилятор этого не понял не стал автоматом запускать, хотя и предупредил об открытии файла с макросами
Мне бы хотелось чтобы Ексел можно было запускать с обработкой макроса из внешнего файла, так как на входе текстовый файл, а не книга (XLS).

2. Думал это будет просто, ан нет.
Мне необходимо чтобы внутри макроса можно было открывать файл используя комбинацию 2 переменных
Напр. Workbooks.OpenText FileName:="exFilePath"\"exFileName", другими словами объединить две текстовых пременных в одну.
Каким образом это можно реализовать?

Спасибо. Eugenius.

Отправлен: 10.01.2006, 16:36
Вопрос задал: Eugenius (Практикант)
Всего ответов: 4
Страница вопроса »


Отвечает DrakoN (Практикант) :
Здравствуйте, Eugenius!
Для обединения 2 переменыых следующий текст
Например Dim str as string
Dim str1 as string
Dim str2 as string
и дальше..
str2 = str1 + str
и все ...Удачи!
Украина, Киев

Ответ отправил: DrakoN (Практикант)
Ответ отправлен: 10.01.2006, 17:23

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 78947 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    Отвечает Журавлёв Александр AlexanderZh (Специалист) :
    Здравствуйте, Eugenius!
    Вместо + правильнее использовать &
    (дополнение к предыдущему ответу) Россия, Калининградская обл.
    Тел.: +7 921 7969582
    Организация: Пытаюсь начать свое дело.
    Адрес: Калининградская обл., г. Гурьевск, Калининградское шоссе 5, кв 25
    Адрес сайта: ТАМ Гаврилова В.А.
    ICQ # 477530955
    Mail.ru-агент: alexanderzh@mail.ru

    -----
    Чтобы вернуть её нужно вернуть себя!

    Ответ отправил: Журавлёв Александр AlexanderZh (Специалист)
    Ответ отправлен: 10.01.2006, 23:52

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 78995 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    Отвечает Николай К :
    Здравствуйте, Eugenius!
    По второму:

    FullName = Path & "/" & FileName

    Ответ отправил: Николай К
    Ответ отправлен: 11.01.2006, 13:47

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 79074 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    Отвечает Залетин Виталий Викторович (Практикант) :
    Здравствуйте, Eugenius!
    1. Вышлите мыло на vbman@bigmir.net если ezhevica@mail.ru не Ваше мыло и я таки докажу, что все работает - пришлю пример.
    2. Workbooks.OpenText FileName:= trim$(strPath) & "\" & trim$(strFileName) Украина, Кировоград

    -----
    Учиться никогда не поздно. Особенно программированию!

    Ответ отправил: Залетин Виталий Викторович (Практикант)
    Ответ отправлен: 14.01.2006, 14:05

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 79528 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Вопрос № 76359:

    Уважаемые эксперты. Всем доброго дня
    Имеется объект (image или picture), который перемещается по форме под управлением клавиатуры. Как сделать, чтобы координаты этого объекта измерялись не от левого верхнего угла объекта, а например от центра объекта
    Буду благодарен за ответ
    Конт

    Отправлен: 19.02.2007, 01:12
    Вопрос задал: Kont kontovich
    Всего ответов: 1
    Страница вопроса »


    Отвечает Присяжнюк Анатолий Васильевич :
    Здравствуйте, Kont kontovich!
    Координаты центра можно привязать к координатам левого верхнего угла так:
    Xc = Picture.Left + picture.width / 2
    Yc = Picture.Left + Picture.Height / 2
    и дальше можете работать с координатами центра...
    С уважением - АВП

    Ответ отправил: Присяжнюк Анатолий Васильевич
    Ответ отправлен: 19.02.2007, 06:48

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 144616 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Вопрос № 55171:

    Салют! А подскажите, как можно зарегистрировать в системе библиотеку msadr1.dll? Обычный regsvr32 не спасает, rundll32 msador15,DllRegisterServer - тоже. Что делать? Куды бечь?

    Отправлен: 12.09.2006, 15:49
    Вопрос задал: Skif
    Всего ответов: 2
    Страница вопроса »


    Отвечает VLK (Студент) :
    Здравствуйте, Skif!

    Совсем не обязательно регистрировать DLL-ку в системе, несмотря на постоянные внушения нам об этом. Я никогда не регистрирую их - в лучшем случае кину в System32 (NT) или в System (9Х). А привязать прогу можно и к незарегистрированной библиотеке : "Project" - "References" - кнопка Browse - выбор библиотеки. Россия, Кемерово

    Ответ отправил: VLK (Студент)
    Ответ отправлен: 14.09.2006, 19:05

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 116764 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    Отвечает Залетин Виталий Викторович (Практикант) :
    Здравствуйте, Skif!
    Попробуйте обычным способом установить ссылку на нее (Project\References), в появившемся окне нажмите кнопку Browse и найдите Вашу библиотеку. Если и тут ничего не поможет, то это уже не библиотека классов, а АПИшная ДЛЛка - функции из нее можно вызывать только через Declare. Хотя есть еще вариант, что она, может, не поддерживает IDispatch-интерфейс, то тогда - прямая дорога к СОМ-АПИ. В таком случае ознакомьтесь вот с этим: http://www.vbstreets.ru/VB/Articles/65974.aspx Украина, Кировоград

    -----
    Учиться никогда не поздно. Особенно программированию!

    Ответ отправил: Залетин Виталий Викторович (Практикант)
    Ответ отправлен: 16.09.2006, 12:53

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 116985 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    подать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.



    В избранное