помогите обработать ошибку

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
АндрейБ
Бывалый
Бывалый
 
Сообщения: 276
Зарегистрирован: 18.12.2004 (Сб) 17:00
Откуда: Санкт-Петербург

помогите обработать ошибку

Сообщение АндрейБ » 02.04.2005 (Сб) 10:19

У меня есть код на VB
по ходу пьесы мне надо создать новый файл Ексель-формата.
Когда такого файла нет, то создает без проблем, когда такой файл уже есть, то он спрашивает ЗАМЕНИТЬ?
И когда ответчаешь нет, то выдает ошибки:
Метод SaveAs из класса Workbook завершен не верно.

У меня код такой:
Exl.Workbooks.Add
Exl.ActiveWorkbook.SaveAs (RST2!Path + "/" + Format(Text1) + ".xls")

Как сделать так что бы либо заменяло без вопросов, либо ошибки не выдовало?
Кто ищет, тот всегда найдет ...

Bonesnapper
Постоялец
Постоялец
 
Сообщения: 434
Зарегистрирован: 12.09.2004 (Вс) 15:39

Сообщение Bonesnapper » 02.04.2005 (Сб) 18:19

Узнай есть ли этот фаил - s=Dir(RST2!Path + "/" + Format(Text1) + ".xls")
и если есть то удали
if len(s)<>0 then kill(RST2!Path + "/" + Format(Text1)

hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 02.04.2005 (Сб) 18:29

Код: Выделить всё
Exl.DisplayAlerts = False
Exl.ActiveWorkbook.SaveAs (RST2!Path + "/" + _
Format(Text1) + ".xls")
Exl.ActiveWorkbook.Saved = True
Моду создают модоки, а распространяют модозвоны.

АндрейБ
Бывалый
Бывалый
 
Сообщения: 276
Зарегистрирован: 18.12.2004 (Сб) 17:00
Откуда: Санкт-Петербург

Сообщение АндрейБ » 04.04.2005 (Пн) 13:59

Экстремал - ты молодец.
Спасибо.
Кто ищет, тот всегда найдет ...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Bing-бот и гости: 187

    TopList