Ошибка в макросе, закрытие документа

@vika11 · Регистрация: 29.04.2014

Author24 — интернет-сервис помощи студентам

Помогите найти ошибку. Макрос Active Worbook.Close закрывает только рабочую область.

Visual Basic

Sub Home_Allotment()
'
' Home_Allotment Macro
' Macro recorded 01.08.2012 by Captain
'
 
'
    Sheets("22aHome allotment").Select
    Sheets("22aHome allotment").Copy
    Sheets("22aHome allotment").Select
    ActiveWorkbook.Sheets("22aHome allotment").Tab.ColorIndex = -4142
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
        :=False, Transpose:=False
    Range("B2").Select
    Application.CutCopyMode = False
    ChDir "C:\Users\Captain\Desktop"
    ActiveWorkbook.SaveAs
Filename:="C:\Users\Captain\Desktop\Allotment.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("MAIN").Select
    Range("G3:J3").Select
    ActiveWorkbook.Save
End Sub

@Казанский · 30.04.2014, 00:14

Что не так? Макрос копирует лист "22aHome allotment" в новую книгу, в новой книге заменяет формулы на значения и сохраняет ее на рабочий стол. Исходная книга сохраняется, но не закрывается.

@vika11 · 30.04.2014, 10:59 **[ТС]**

А как сделать так чтобы закрывалось?

@kalbasiatka · 30.04.2014, 11:39

Код

ActiveWorkbook.Close

@vika11 · 30.04.2014, 21:02 **[ТС]**

спасибо!!!

Добавлено через 8 часов 32 минуты
заменила Save на Close , но все равно спрашивает сохранять или нет, если к Save добавить Close то и закрывает и сохраняет рабочую область, но сам документ остается открытым. Что делать?

@Казанский · 01.05.2014, 09:50

vika11, перед End Sub добавьте

Visual Basic

1	ActiveWorkbook.Close 0

Если нужно закрыть Excel, добавьте еще

Visual Basic

1	application.quit

Если не поможет, выкладывайте книгу.

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	30.04.2014, 00:14	2
	Что не так? Макрос копирует лист "22aHome allotment" в новую книгу, в новой книге заменяет формулы на значения и сохраняет ее на рабочий стол. Исходная книга сохраняется, но не закрывается. 0

@vika11 0 / 0 / 0 Регистрация: 29.04.2014 Сообщений: 6
	30.04.2014, 10:59 [ТС]	3
	А как сделать так чтобы закрывалось? 0

@kalbasiatka 416 / 263 / 83 Регистрация: 27.10.2012 Сообщений: 861
	30.04.2014, 11:39	4
	Код ActiveWorkbook.Close 0

@vika11 0 / 0 / 0 Регистрация: 29.04.2014 Сообщений: 6
	30.04.2014, 21:02 [ТС]	5
	спасибо!!! Добавлено через 8 часов 32 минуты заменила Save на Close , но все равно спрашивает сохранять или нет, если к Save добавить Close то и закрывает и сохраняет рабочую область, но сам документ остается открытым. Что делать? 0

	01.05.2014, 09:50