Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос поочередное отрытие файлов из заданной папки
 
Добрый день, специалисты!

Помогите пожалуйста доработать макрос:
Код
Sub Start()
    Range("B1").Select
    Application.Goto Reference:="R4C1:R7002C1"
    Selection.ClearContents
    Call OpenFile
End Sub

Sub OpenFile()
  Dim wApp As Object, wDoc As Object, f$
    f = Application.GetOpenFilename("Microsoft Word, *.doc,Âñå ôàéëû, *.*")
    If f = "" Then Exit Sub
    Set wApp = CreateObject("Word.Application")
        wApp.Visible = True ' 
    Set wDoc = wApp.Documents.Add(f)    ' 
    t = wDoc.Content.Copy
    Set ns = ActiveSheet
    ns.Paste Destination:=ns.Cells(2, 1)
    wApp.Quit (False) ' 
    Set wApp = Nothing
    Application.Wait (Now + TimeValue("00:00:02"))
    Call RefreshAll
End Sub

Sub RefreshAll()
    '
    Dim IsBG_Refresh As Boolean, oc
    For Each oc In ThisWorkbook.Connections        '
        IsBG_Refresh = oc.OLEDBConnection.BackgroundQuery
        '
        oc.OLEDBConnection.BackgroundQuery = False
        '
        oc.refresh
        '
        oc.OLEDBConnection.BackgroundQuery = IsBG_Refresh
    Next
    Call MySaveName
End Sub

Sub MySaveName()
    Worksheets("RESULT").Copy
    'there is now a new active workbook
    With ActiveWorkbook
        'save it
        .SaveAs Filename:="\\Mac\Home\Desktop\last docs\Docs\Work\Work form HDD - 15.12.2008\Docs CRYPT\BRP - 2010\Spare Parts\AIR\Compilation\" & Range("o2").Value & ".xlsx", FileFormat:=xlWorkbookDefault
        'optionally close it
        .Close savechanges:=False
    End With
    Call ClearAll
End Sub

Sub ClearAll()
    Range("B1").Select
    Application.Goto Reference:="R4C1:R7002C1"
    Selection.ClearContents
End Sub


В данный момент макрос работает след образом, необходимо поочередно выбирать файл DOC из папки и ждать отработку макроса.
Есть необходимость, в обработке всех файлов в папке с поочередным открытием и завершением макроса.

Заранее благодарю!
Страницы: 1
Читают тему (гостей: 1)
Наверх