Вопрос № 123692: Пожалуйста подскажите может кто сталкивался
имеется книга с макросами, работает прекрасно, без проблем
но стоит только ее перенести на другой компьютер как на строчку:
Application.Worksheets(1).Cells(1, 1).Value = text
выдае...Вопрос № 123697: Здравствуйте!
Пожалуйста, подскажите, как сделать конструктор, деструктор классов на vb6. И возможно ли такое в принципе?
sub new() ругается
sub finalize() не срабатывает
А ещё меня интересует наследование классов,...Вопрос № 123800: Уважаемые эксперты. Помогите в решении задачи. Необходимо по известному пути открыть текстовый файл, найти определенный кусок текста и вставить его в ячейку....
Вопрос № 123.692
Пожалуйста подскажите может кто сталкивался
имеется книга с макросами, работает прекрасно, без проблем
но стоит только ее перенести на другой компьютер как на строчку:
Application.Worksheets(1).Cells(1, 1).Value = text
выдает ошибку:
40036
Application-defined or object-defined error.
Версии экселя одни и те же (2003), обновления SP3. Все абсолютно идентично.
Подскажите пожалуйста как вылечить эту гадость.
Отправлен: 18.02.2008, 16:36
Вопрос задал: Pithon (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: NewFL
Здравствуйте, Pithon!
Вероятно всего в книге используется компонент отсутствующий на другом ПК.
Хотя может быть битый ОФИС.
Ответ отправил: NewFL (статус: Заблокирован)
Ответ отправлен: 18.02.2008, 23:08
Вопрос № 123.697
Здравствуйте!
Пожалуйста, подскажите, как сделать конструктор, деструктор классов на vb6. И возможно ли такое в принципе?
sub new() ругается
sub finalize() не срабатывает
А ещё меня интересует наследование классов, как я понял, у microsoft и на это тоже свой вариант? impliment или что там,а главное где это писать и что это мне даст?
Отвечает: MMAX
Здравствуйте, Талипов А Н!
вы правильно все поняли
//Цитата
· Initialize - это событие возникает в момент создания (появления) нового объекта класса при работе приложения.
· Terminate - это событие возникает в момент уничтожения объекта.
Это похоже на нужное, но вот как мне теперь в классе создать процедуры , которые будут отрабатывать по этим событиям? Имя-то объекта я не знаю?
//Цитата
ну так вот в теле класса создаете процедуру следующеко вида
Private Sub Class_Initialize()
...
начальная инициализация переменных класса
...
End Sub
далее когда вы будете создавать класс например таким оброзом
dim clsMyClass1 as New clsMyClass
далее вызовется процедура Class_Initialize которая и проинициализирует переменные класса
процедуру следующеко вида созданная в классе позволит произвести процедуру "уничтожения" класса
Private Sub Class_Terminate()
Set mvarParent = Nothing
End Sub
она будет автоматически вызвана в следующем условии
Set clsMyClass1 = Nothing
Ответ отправил: MMAX (статус: 2-ой класс)
Ответ отправлен: 19.02.2008, 13:30 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное. Понял, попробовал и оно сработало как мне нужно!
Вопрос № 123.800
Уважаемые эксперты. Помогите в решении задачи. Необходимо по известному пути открыть текстовый файл, найти определенный кусок текста и вставить его в ячейку.
Отправлен: 19.02.2008, 04:01
Вопрос задал: Mombassa (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Mombassa!
Интересная постановка вопроса. Если текст известен, то зачем его искать, можно сразу вставить:
Workbooks("Название книги.xls").Worksheets("Название листа").Range("A1").Value = "Известный текст"
И всё же:
см. Приложение
Из вводных данных следует, что путь к файлу известен, тогда
Puty = "C: emp
Приложение:
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 19.02.2008, 18:49 Оценка за ответ: 5
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Mombassa!
Передайте в функцию полный путь к текстовому файлу и искомый текст. Если текст присутствует в файле, функция его вернет.
Пользовательскую функцию можно использовать непосредственно в ячейке:
=textInFile("C:Файл.txt", "Искомый текст")
Евгений.
Приложение:
Ответ отправил: Тесленко Евгений Алексеевич (статус: Студент)
Ответ отправлен: 19.02.2008, 23:49 Оценка за ответ: 5
Вы имеете возможность оценить этот выпуск рассылки. Нам очень важно Ваше мнение!
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
