Переименование нескольких книг - PullRequest
Новая
       6

Переименование нескольких книг

0 голосов
/ 29 июня 2018

Существует book1, где в одном столбце указаны имена старых книг, а в другом - имена новых (старые нужно переименовать в новые) Произошла ошибка: Ошибка во время выполнения ‘54’ Файл не найден в строке (первый) 

    Name OldName As NewName

код: 

   Sub Êë()

    Dim OldName, NewName
    Dim book1 As Workbook
    Dim t As Long, m As Long, n As Long

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    Set book1 = Workbooks.Open("E:\Super M\Ïðîåêò ñòàâêè\Ïîèñê ðåøåíèÿ\Óñîâ 
            7\âñïîìîãàòåëüíûå ïðîãðàììû\Êíèãà â ëèñò\âèç.xlsx")
    For t = 3 To 5
      book1.Worksheets("îáù").Range("C" & t).Value = n
      book1.Worksheets("îáù").Range("C" & t).Offset(0, 1).Value = m

    OldName = "n": NewName = "m"

    Name OldName As NewName
    OldName = "E:\Super M\Ïðîåêò ñòàâêè\Ïîèñê ðåøåíèÿ\Óñîâ 7\âñïîìîãàòåëüíûå 
         ïðîãðàììû\Êíèãà â ëèñò\Îòáîðíûå óñëîâèÿ\Îòêóäà\n": NewName = 
          "E:\Super M\Ïðîåêò ñòàâêè\Ïîèñê ðåøåíèÿ\Óñîâ 7\âñïîìîãàòåëüíûå 
         ïðîãðàììû\Êíèãà â ëèñò\Îòáîðíûå óñëîâèÿ\Êóäà\m"
    Name OldName As NewName

    Next t
    book1.Close

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

    End Sub
...