Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление PDF-файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление PDF-файла (Макросы Sub)
Удаление PDF-файла
Espada Дата: Среда, 09.10.2013, 15:37 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Всем доброго времени суток! Возник такой вопрос, как сдеать так, чтобы при нажатии на кнопку удалялся pdf-файл по конкретному пути( в данном случае \\server\ОТК\ВОДНЫЕ\BazaPDF\)? имя пдф файла задано 2-мя переменными pas par. Спасибо.
 
Ответить
СообщениеВсем доброго времени суток! Возник такой вопрос, как сдеать так, чтобы при нажатии на кнопку удалялся pdf-файл по конкретному пути( в данном случае \\server\ОТК\ВОДНЫЕ\BazaPDF\)? имя пдф файла задано 2-мя переменными pas par. Спасибо.
Автор - Espada
Дата добавления - 09.10.2013 в 15:37
SkyPro Дата: Среда, 09.10.2013, 16:06 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub dlt()
Kill ("\\server\ОТК\ВОДНЫЕ\BazaPDF\" & ваша_переменная)
End Sub
[/vba]
Файл должен быть закрыт в момент удаления.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 09.10.2013, 16:10
 
Ответить
Сообщение[vba]
Код
Sub dlt()
Kill ("\\server\ОТК\ВОДНЫЕ\BazaPDF\" & ваша_переменная)
End Sub
[/vba]
Файл должен быть закрыт в момент удаления.
Автор - SkyPro
Дата добавления - 09.10.2013 в 16:06
Poltava Дата: Среда, 09.10.2013, 16:15 | Сообщение № 3
Группа: Друзья
Ранг: Форумчанин
Сообщений: 232
Репутация: 50 ±
Замечаний: 0% ±

Так длинней зато пользователь получит последнее китайское и в случае неудачи узнает о том что файл не был удален
[vba]
Код
    On Error Resume Next
       Select Case MsgBox("Вы действительно хотите удалить файл:" _
                          & vbCrLf & FullNameXl _
                          , vbOKCancel Or vbQuestion Or vbDefaultButton1, Application.Name)
       Case vbOK
           Kill ПутьКФайлу
       Case vbCancel
       End Select
       If Err.Number > 0 Then
           Call MsgBox("Во время удаления произошла ошибка " & Err.Description, vbCritical, Err.Number)
       End If
       On Error GoTo 0
[/vba]


Сообщение отредактировал Poltava - Среда, 09.10.2013, 16:16
 
Ответить
СообщениеТак длинней зато пользователь получит последнее китайское и в случае неудачи узнает о том что файл не был удален
[vba]
Код
    On Error Resume Next
       Select Case MsgBox("Вы действительно хотите удалить файл:" _
                          & vbCrLf & FullNameXl _
                          , vbOKCancel Or vbQuestion Or vbDefaultButton1, Application.Name)
       Case vbOK
           Kill ПутьКФайлу
       Case vbCancel
       End Select
       If Err.Number > 0 Then
           Call MsgBox("Во время удаления произошла ошибка " & Err.Description, vbCritical, Err.Number)
       End If
       On Error GoTo 0
[/vba]
Автор - Poltava
Дата добавления - 09.10.2013 в 16:15
Espada Дата: Четверг, 10.10.2013, 09:06 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Спасибо, всё работает отлично!)
 
Ответить
СообщениеСпасибо, всё работает отлично!)
Автор - Espada
Дата добавления - 10.10.2013 в 09:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление PDF-файла (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!