Код VBA для закрытия неактивной рабочей книги

Я попытался под кодом VBA закрыть неактивную книгу, но она не работает.Код VBA для закрытия неактивной рабочей книги

Workbooks(VBA.Environ("Username") & ".xls").Close True 
Workbooks(“p468904.xls").Close SaveChanges:=True 
Workbooks.Close Filename:=VBA.Environ("Username") & ".xls" 
Workbooks(VBA.Environ("Username") & ".xls").Close SaveChanges:=True

источник

2015-09-18 Gaus Shaikh

** Не работает ** недостаточная информация при запросе об ошибке. Код, который вы предоставили, выглядит правильно, и я успешно проверил пару из них. – Jeeped

Я просто открываю файл с нижестоящим кодом и закрываю то же самое с помощью выше кода без каких-либо обновлений, но файл не закрывается. Workbooks.Open Имя файла: = myFileNameDir, UpdateLinks: = 0, Password: = "yourpassword" –

Вы пробовали 'Workbooks (myFileNameDir) .Close SaveChanges: = True'? – findwindow

Если вы хотите, чтобы закрыть все книги, кроме того, код находится,

For Each wkb In Workbooks 
    If Not wkb Is ThisWorkbook Then wkb.Close SaveChanges:=False ' or True, depending 
    Next wkb

источник

2015-09-19 00:05:03 shg

Код VBA для закрытия неактивной рабочей книги

ответ

Смежные вопросы