Форум по VBA и MS Office

Sub макрос()

    Dim FN As String, bk As Workbook
   
   
    ' Записываем в переменную 'FN' полное имя (путь + имя) эксель-файла.
        ' Переменную не обязательно использовать, можно подставить полное имя прямо в код.
    FN = "C:\Users\User\Desktop\Книга1.xlsb"
   
    ' Открываем эксель-файл и присваиваем ему имя 'bk'.
        ' Далее в макросе будем обращаться к файлу по имени 'bk'.
    Set bk = Workbooks.Open(FN)
   
    ' Здесь вы делаете манипуляции с эксель-файлом.
        ' Для этого обращайтесь к файлу по имени 'bk'.
   
    ' Сохранение эксель-файла.
    bk.Save
   
    ' Закрытие эксель-файла без сохранения.
        ' Ранее мы уже сохранили, но иногда бывают ситуации, что мы ничего не делаем,
        ' но эксель предлагает нам сохранить.
    bk.Close SaveChanges:=False

End Sub