Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11730
Последний выпуск: 19.06.2015

Как удалить файлы из директории с помощью VBA

97K
24 февраля 2016 года
Станислав Тюленев
1 / / 24.02.2016
Доброй ночи всем. Ищу помощи уже третий день.
Есть макрос в экселе который запускает ворд файлы находящиеся с ним в папке и выгружает инфу. Нужно сделать так, что бы потом все отработанные файлы удалялись. Мне уже кажется что это не возможно так как нашел я лишь одну команду за 3 дня. Kill. и ту преминить не получается((
Буду благодарен, если кто то сможет помочь.

Код:
Private Sub йцу1()
    Dim i%, j%, k%, LastRow&, s$, MyPath$, MyFileName$, MyFullName$, Arr, WA As Object, oMyDoc As Object
    LastRow = Cells(Rows.Count, "C").End(xlUp).Row
    Arr = Range("C1:C" & LastRow).Value ' Массив с номерами заказов
    MyPath = ActiveWorkbook.Path & ""  '
Файлы word ищутся в той же папке, где лежит заполняемый файл Excel
    Set WA = CreateObject("Word.Application")
    WA.Visible = True
    For i = 3 To UBound(Arr)
        Arr(i, 1) = Trim(Arr(i, 1))
        Arr(i, 1) = Replace(Arr(i, 1), "/", "?")
        MyFileName = Dir(MyPath & Arr(i, 1) & ".doc*")
        Do Until MyFileName = ""
            MyFullName = MyPath & MyFileName
            Set oMyDoc = WA.Documents.Open(MyFullName)
            For j = 1 To 50: DoEvents: Next
            For j = 1 To oMyDoc.Tables(1).Columns.Count
              s = oMyDoc.Tables(1).cell(1, j).Range.Text
              s = Replace(s, Chr(7), "") 'Удаление символа конца ячейки Word
              Cells(i, j + 4) = s
            Next j
            oMyDoc.Close 0
           
            MyFileName = Dir
        Loop
    Next i
    WA.Quit False
    Set oMyDoc = Nothing: Set WA = Nothing

End Sub
не нашел здесь код VBA вставил PHP
1.9K
24 февраля 2016 года
Kuzya
183 / / 19.03.2008
А ошибки при этом какие-нибудь выдаются? еще можешь попробовать через FileSystemObject (FSO)
6
24 февраля 2016 года
@pixo $oft
3.4K / / 20.09.2006
Ещё попытайся отладить свой макрос и посмотри, какие значения у тебя получаются. Вдруг формат имени файла некорректный.
236
27 февраля 2016 года
pashulka
978 / / 19.09.2004
 
Код:
MyPath = ActiveWorkbook.Path & "\"
   
'Здесь Вы мучаете документы
   
Kill MyPath & "*.doc*"

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог