Открыть, сохранить и закрыть любой файл

Question

Я пишу простой макрос, который откроет, сохранит и закроет файл Excel, скажем, myworkbook.xlsx, но я не могу этого сделать. Мой файл myworkbook.xlsx находится на месте:

C:\Users\Administrator\Desktop\Temp\myworkbook.xlsx

Я написал код, как

Sub openSaveClose() 
    Workbooks.Open "C:\Users\Administrator\Desktop\Temp\files\myworkbook.xlsx" // This is working fine 
    Workbooks("C:\Users\Administrator\Desktop\Temp\myworkbook.xlsx").Save 
End sub 

Ошибка:

Время работы Ошибка 9. Подстрочный из диапазона

Answer 1

Вам нужно указать путь, когда открытие файла:

Sub openSaveClose() 
    Workbooks.Open "C:\Users\Administrator\Desktop\Temp\files\myworkbook.xlsx" 
    Workbooks("myworkbook.xlsx").Save 
    Workbooks("myworkbook.xlsx").Close 
End sub 

Используя переменный объект, вы можете сделать следующее (то нет необходимости использовать имя рабочей книги в Save/Close ведомостях):

Sub openSaveClose() 
Dim wb as Workbook 
Set wb = Workbooks.Open("C:\Users\Administrator\Desktop\Temp\files\myworkbook.xlsx") 
    wb.Save 
    wb.Close 
End sub