Переименование файлов в папке макросом

[Hugo121]

Не факт что Лист1 -у меня например таких почти нет...

[SAS888]

1. В ячейке А1 файла со скриптом ссылка останется в том случае, если макрос завершился с ошибкой. Т. е. не отработал до конца.
2. Макрос получает значение из ячеек "A1" всех файлов в папке из листов с именем "Лист1". Если такого листа нет - будет ошибка. Уточните, из каких листов нужно получать данные? Чему они должны соответствовать и что делать если данные не соответствуют требованиям, либо отсутствуют?
3. Если макрос запускается из Excel 2007, то файлы с расширением, соответствующим маске "*.xls*" должны обрабатываться без ошибок.

Думаю, что проблема связана с пунктом 2. Давайте ее решим, затем поработаем дальше.
Еще лучше, если Вы прикрепите файл Excel (можно пустой, только с значением в ячейке "A1"), который не обрабатывается без пересохранения.

[MIKID]

Лист оказывается в документах xls называется Sheet1. Но я в скрипте заменил, все равно не работает. Только после пересохранения, он меняется на Лист1 и тогда все работает.

[MIKID]

Файл прикрепил

[SAS888]

Где файл?
Если листы "Sheet1" по умолчанию есть в файлах, то измените в коде имя листа при формировании ссылки.

[MIKID]

Добрый вечер.
Файлы примеры, которые переименовываются только после пересохранения в архиве задача.rar.
В скрипте менял на "Sheet1" не помогает.

[SAS888]

Попробуйте это:

Sub Main()
    Dim p As String, f As String, myDir As String, s As String, x As Object, fso
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Укажите рабочую папку": .ButtonName = "Выбрать": .Show
        If .SelectedItems.Count = 0 Then Exit Sub Else p = .SelectedItems(1) & "\"
    End With
    Application.ScreenUpdating = False
    myDir = "C:\Error\": f = Dir(p & "*.xls*")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Do While f <> ""
        If f <> ThisWorkbook.Name Then
            Set x = GetObject(p & f): s = x.Sheets(1).[A1]: x.Close False
            If Not s Like "######" Then s = "error_" & s
            If fso.FileExists(p & fso.GetBaseName(p & f) & ".pdf") Then
                Name fso.GetFile(p & fso.GetBaseName(p & f) & ".pdf") As p & s & ".pdf"
                Kill p & f
            Else
                s = myDir & s & "." & fso.GetExtensionName(p & f)
                If fso.FileExists(s) Then Kill s
                Name fso.GetFile(p & f) As s
            End If: [A1].ClearContents
        End If: f = Dir
    Loop
End Sub

ВАЖНО: Если в папке есть файл, в ячейке "A1" которого, например, "ABCD" (т. е. не соответствует маски из 6-ти цифр), то такой файл будет переименован в "error_ABCD". Правильно? Но... Пусть, например, в папке присутствует два Excel файла, в которых ячейка "A1" пуста. В этом случае (т. к. это значение Не 6 цифр) файл будет переименован в "error_". Затем, при обработке 2-ого файла с пустой ячейкой "A1", файл будет переименован в такое же имя, и, соответственно, 1-ый файл будет заменен. То же произойдет, если в разных файлах значения в ячейках "A1" одинаковы.
Укажите, что в таких случаях делать макросу.

[MIKID]

Добрый день.
Да не додумано, я оказался не подготовленным, извините за украденное время.
Могут же еще и присутствовать символы в А1, которые нельзя применять в имени файла.
Тогда прошу проще:
1. Если в А1 цифры и их 6, то переименовать PDF этим значением и XLS удалить.
2. Во всех остальных случаях и в случаях совпадений значений в А1- значением из А1 PDF не переименовывать, а переименовать PDF "error_ 1,2,3, и т д по порядку, XLS так же после обработки удалить.
Во вложении разные варианты в ячейках А1, а так же PDF ки и файл со скриптом последний вариант. Он сейчас не работает.
Запускаю скрипт под Excel 2007.

Спасибо!!!!!!

[MIKID]

Файл оказался большим, оставил только правильную пару.

[MIKID]

Еще раз извините, макрос работает, это я накосячил, вставил неопределенные условия в А1. Те о которых Вы и спрашивали.
Очень прошу поправить по условиям, что чуть выше.

Спасибо!!