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

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


Информационный Канал Subscribe.Ru

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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 38
от 29.03.2005, 14:00

Администратор:Калашников О.А.
В номере:Вопросов: 2, Ответов: 2


Вопрос № 18656: оПХБЕР!!! уНВС Я ОНЛНЫЭЧ ЛЮЙПНЯЮ ДНАЮБХРЭ НОПЕДЕКЕММНЕ ЙНКХВЕЯРБН КХЯРНБ ХГ ЕЙЯЕКЭ ДНЙСЛЕМРНБ Б НДХМ ХРНЦНБШИ (ХУ РЮЛ ЦДЕ 50 ЬРСЙ). бНР ЙЮЙ НРЙПШРЭ Х ДНАЮБХРЭ ЩРХ КХЯРШ Ъ ГМЮЧ, Ю БНР ЙЮЙ ОПНБЕПХРЭ МЮКХВХЕ Б НОПЕДЕКЕММНИ ОЮОНВЙЕ *.xls ДНЙСЛЕМРЮ МЕ...
Вопрос № 18674: Здраствуйте уважаемые эксперты! Скажите пожалуйста, как в ListBox вывести все ключи раздела реестра "HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindowsCurrentVersionRun" и программно их от туда удалять. Заранее спасибо.<...

Вопрос № 18656
оПХБЕР!!!
уНВС Я ОНЛНЫЭЧ ЛЮЙПНЯЮ ДНАЮБХРЭ НОПЕДЕКЕММНЕ ЙНКХВЕЯРБН КХЯРНБ ХГ ЕЙЯЕКЭ ДНЙСЛЕМРНБ Б НДХМ ХРНЦНБШИ (ХУ РЮЛ ЦДЕ 50 ЬРСЙ). бНР ЙЮЙ НРЙПШРЭ Х ДНАЮБХРЭ ЩРХ КХЯРШ Ъ ГМЮЧ, Ю БНР ЙЮЙ ОПНБЕПХРЭ МЮКХВХЕ Б НОПЕДЕКЕММНИ ОЮОНВЙЕ *.xls ДНЙСЛЕМРЮ МЕ ЛНЦС ПЮГНАПЮРЭЯЪ.
оНЛНЦХРЕ ЙРН ЛНФЕР.
Отправлен: 23.03.2005, 14:35
Вопрос задал: Edhart (статус: Посетитель)
Всего ответов отправлено: 1

Отвечает: DSota
Здравствуйте, Edhart!
Есть несколько способов:
1. С помощью функции найти файл (ниже)
2. Просто поставив on error:

on error goto nofile 'определили процедуру ошибки
'процедуры работы с внешним файлом
goto endx
nofile:
msgbox "file not found"
endx:
on error goto 0'нормальная обработка ошибок

Приложение:

Ответ отправил: DSota (статус: Студент)
Отправлен: 23.03.2005, 14:58
Оценка за ответ: 5
Комментарий оценки:
Спасибо, правда я пока дождался ответа уже и сам разобрался (пришлось хелп переводить :))) ).
Я правда сделал чуть иначе:
сначала определил ошибку вот таким макаром:
Public Function VerifyFile(FileName$) As Boolean
On Error Resume Next
Open FileName$ For Input As #1
If Err Then VerifyFile = False
Else VerifyFile = True: Close #1
End If
End Function
А потом использовал в теле макроса:
Private Sub CommandButton7_Click()
Dim FileName$
FileName$ = "Имя файла"
If VerifyFile(FileName$) Then
Workbooks.Open ("Имя файла")
Windows("Имя файла").Activate
Sheets("Имя листа").Select
Sheets("Имя листа").Move before:=Workbooks("itogcv.xls").Sheets(1)
Else: MsgBox ("Файл " & FileName$ & "отсутствует" )
End If
End Sub
Но ща попробую, как вы предложили, так вроде писанины меньше :)))


Вопрос № 18674
Здраствуйте уважаемые эксперты!
Скажите пожалуйста, как в ListBox вывести все ключи раздела реестра
"HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindowsCurrentVersionRun"
и программно их от туда удалять.
Заранее спасибо.
Отправлен: 23.03.2005, 20:07
Вопрос задал: Матвеев Стас (статус: Посетитель)
Всего ответов отправлено: 1

Отвечает: Licvidator
Здравствуйте, Матвеев Стас!
Все необходимые функции для чтения/записи/удаления из реестра можно почерпнуть в http://www.1phpstreet.com/vb/scripts/ShowCode.asp?txtCodeId=45471&lngWId=1
Ответ отправил: Licvidator (статус: Профессор)
Отправлен: 23.03.2005, 21:01


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

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.


http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться

В избранное