Вопрос № 32970: Приветствую вас, уважаемые Эксперты.
Продолжение вопросов <a href=http://rusfaq.ru?Step=info&Action=Question&ID=32064//>32064</a> и <a href=http://rusfaq.ru?Step=info&Action=Question&ID=32222> 32222</a>
1. <i>--- У Екселя есть соб...
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 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: DrakoN
Здравствуйте, Eugenius!
Для обединения 2 переменыых следующий текст
Например Dim str as string
Dim str1 as string
Dim str2 as string
и дальше..
str2 = str1 + str
и все ...Удачи!
--------- От Винта!
Ответ отправил: DrakoN (статус: 7-ой класс)
Отправлен: 10.01.2006, 17:23 Оценка за ответ: 5
Отвечает: AlexanderZh
Здравствуйте, Eugenius!
Вместо + правильнее использовать &
(дополнение к предыдущему ответу)
Ответ отправил: AlexanderZh (статус: 4-ый класс)
Отправлен: 10.01.2006, 23:52 Оценка за ответ: 5
Отвечает: Николай К
Здравствуйте, Eugenius!
По второму:
FullName = Path & "/" & FileName
Ответ отправил: Николай К (статус: 1-ый класс)
Отправлен: 11.01.2006, 13:47 Оценка за ответ: 5
Отвечает: Залетин Виталий Викторович
Здравствуйте, Eugenius!
1. Вышлите мыло на vbman@bigmir.net если ezhevica@mail.ru не Ваше мыло и я таки докажу, что все работает - пришлю пример.
2. Workbooks.OpenText FileName:= trim$(strPath) & "" & trim$(strFileName)
--------- Учиться никогда не поздно. Особенно программированию!