Вопрос № 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