Закрыть все книги миф excel - Word и Excel - помощь в работе с программами

Открытие книги Excel из кода VBA. Проверка существования книги. Создание новой книги, обращение к открытой книге и ее закрытие. Методы Open, Add и Close.

Открытие существующей книги

Существующая книга открывается из кода VBA Excel с помощью метода Open:

Workbooks.Open Filename:=«D:test1.xls»

или

Workbooks.Open («D:test1.xls»)

В кавычках указывается полный путь к открываемому файлу Excel. Если такой файл не существует, произойдет ошибка.

Проверка существования файла

Проверить существование файла можно с помощью функции Dir. Проверка существования книги Excel:

If Dir(«D:test1.xls») = «» Then

MsgBox «Файл не существует»

Else

MsgBox «Файл существует»

End If

Или, если файл (книга Excel) существует, можно сразу его открыть:

If Dir(«D:test1.xls») = «» Then

MsgBox «Файл не существует»

Else

Workbooks.Open Filename:=«D:test1.xls»

End If

Создание новой книги

Новая рабочая книга Excel создается в VBA с помощью метода Add:

Созданную книгу, если она не будет использоваться как временная, лучше сразу сохранить:

Workbooks.Add

ActiveWorkbook.SaveAs Filename:=«D:test2.xls»

В кавычках указывается полный путь сохраняемого файла Excel, включая присваиваемое имя, в примере — это «test2.xls».

Обращение к открытой книге

Обращение к активной книге:

Обращение к книге с выполняемым кодом:

Обращение к книге по имени:

Workbooks(«test1.xls»)

Workbooks(«test2.xls»)

Обратиться по имени можно только к уже открытой книге, а чтобы из кода VBA Excel книгу открыть, необходимо указать полный путь к файлу.

Открытая рабочая книга закрывается из кода VBA Excel с помощью метода Close:

Workbooks(«test1.xlsx»).Close

Если закрываемая книга редактировалась, а внесенные изменения не были сохранены, тогда при ее закрытии Excel отобразит диалоговое окно с вопросом: Вы хотите сохранить изменения в файле test1.xlsx? Чтобы файл был закрыт без сохранения изменений и вывода диалогового окна, можно воспользоваться параметром метода Close — SaveChanges:

Workbooks(«test1.xlsx»).Close SaveChanges:=False

или

Workbooks(«test1.xlsx»).Close (False)

Закрыть книгу Excel из кода VBA с сохранением внесенных изменений можно также с помощью параметра SaveChanges:

Workbooks(«test1.xlsx»).Close SaveChanges:=True

или

Workbooks(«test1.xlsx»).Close (True)

Фразы для контекстного поиска: открыть книгу, открытие книги, создать книгу, создание книги, закрыть книгу, закрытие книги, открыть файл Excel, открытие файла Excel, существование книги, обратиться к открытой книге.

Источник

SpagoR

Пользователь

Сообщений: 39
Регистрация: 01.01.1970

Ребят, как можно макросом закрыть все книги кроме активной?

Просто при работе предыдущего макроса открывает 50 книг, обрабатывает информацию из них и потом они остаются открытыми.

Мне же нужно их закрыть и продолжить работу над активным файлом

sva Пользователь Сообщений: 1027 Регистрация: 23.12.2012	Sub cl() Dim wb As Workbook For Each wb In Workbooks If wb.Name <> ActiveWorkbook.Name Then wb.Close False Next End Sub

	> при работе предыдущего макроса открывает 50 книг, обрабатывает информацию из них и потом они остаются открытыми А почему макрос не закрывает книгу после того как обработал ее? Где этот «предыдущий макрос»?

SpagoR

Пользователь

Сообщений: 39
Регистрация: 01.01.1970

{quote}{login=Казанский}{date=07.12.2011 07:04}{thema=}{post}> при работе предыдущего макроса открывает 50 книг, обрабатывает информацию из них и потом они остаются открытыми

А почему макрос не закрывает книгу после того как обработал ее?
Где этот «предыдущий макрос»?{/post}{/quote}

Ну вот собственно я и хочу чтобы он закрывал их) просто это макрос массового открытия из папки.
____________________________________

Sub Get_All_Files()
Dim sFolder As String, sFiles As String, li As Long
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Sub
sFolder = .SelectedItems(1)
End With
Application.ScreenUpdating = False
sFiles = Dir(sFolder & Application.PathSeparator & «*.xls*»)
Do While sFiles <> «»
Workbooks.Open sFiles
Sheets(«Inventarisatie»).Select
Columns(«A:Z»).Select
Selection.Copy
Windows(«Book1»).Activate
Sheets(«Sheet1»).Select
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Dim x As Variant
x = [A3] & » Inventarisatie»
On Error Resume Next
ActiveSheet.Name = x

Range(«A1»).Select

sFiles = Dir
Loop
Application.ScreenUpdating = True

End Sub

____________________________________

Ну и собственно в догонку вопрос — как убрать диалоговое окно выбора папки и сделать чтобы оно автоматически открывало файлы из конкретной папки?

sva

Пользователь

Сообщений: 1027
Регистрация: 23.12.2012

Как-то так:
Sub Get_All_Files()
Dim sFolder As String, sFiles As String, li As Long
sFolder = «D:» ‘здесь указываете свой путь
Application.ScreenUpdating = False
sFiles = Dir(sFolder & Application.PathSeparator & «*.xls*»)
Do While sFiles <> «»
Workbooks.Open sFiles
Sheets(«Inventarisatie»).Columns(«A:Z»).Select.Copy
Windows(«Book1»).Activate
Sheets(«Sheet1»).Select
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(sFiles).Close False
Dim x As Variant
x = [A3] & » Inventarisatie»
On Error Resume Next
ActiveSheet.Name = x

Range(«A1»).Select

sFiles = Dir
Loop
Application.ScreenUpdating = True

End Sub

SpagoR

Пользователь

Сообщений: 39
Регистрация: 01.01.1970

{quote}{login=sva}{date=07.12.2011 07:48}{thema=}{post}Как-то так:
Sub Get_All_Files()
Dim sFolder As String, sFiles As String, li As Long
sFolder = «D:» ‘здесь указываете свой путь
Application.ScreenUpdating = False
sFiles = Dir(sFolder & Application.PathSeparator & «*.xls*»)
Do While sFiles <> «»
Workbooks.Open sFiles
Sheets(«Inventarisatie»).Columns(«A:Z»).Select.Copy
Windows(«Book1»).Activate
Sheets(«Sheet1»).Select
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(sFiles).Close False
Dim x As Variant
x = [A3] & » Inventarisatie»
On Error Resume Next
ActiveSheet.Name = x

Range(«A1»).Select

sFiles = Dir
Loop
Application.ScreenUpdating = True

End Sub{/post}{/quote}

выдает ошибку на строчке
Workbooks.Open sFiles

sva Пользователь Сообщений: 1027 Регистрация: 23.12.2012

SpagoR

Пользователь

Сообщений: 39
Регистрация: 01.01.1970

{quote}{login=sva}{date=07.12.2011 07:57}{thema=}{post}Какую?{/post}{/quote}

Run-time error ‘1004’:

‘Andora.xls’ could not be found. Check the spelling of the file name and verify that file location is correct.

If you are trying to open the file from your list of most recently used files on the File menu, make sure that the file has not been renamed, moved, or deleted.

____________________________________-
смысл ошибки я понимаю. Но дело в том что система же захватила имя файла из указанной папки.

И ещё, путь к файлу выглядит так:
\SadnldfsnlGRNL011883GlobalGD

Тоесть файл находится не на моем жестком диске, а на корпоративном сервере.

sva Пользователь Сообщений: 1027 Регистрация: 23.12.2012	Тогда, что за файл Andora.xls Excel пытается открыть?

SpagoR

Пользователь

Сообщений: 39
Регистрация: 01.01.1970

{quote}{login=sva}{date=07.12.2011 08:11}{thema=}{post}Тогда, что за файл Andora.xls Excel пытается открыть?{/post}{/quote}

Да правильный файл. В папке по вышеуказанному адресу лежит 49 файлов с названиями стран.

Этот макрос должен все их открыть. Если делать по тому варианту который я предоставил, то всё нормально открывает (при выборе папки вручную). Если же прописать путь к файлу как вы показали, то выбивает ошибку.

sva Пользователь Сообщений: 1027 Регистрация: 23.12.2012	Путь должен выглядеть так: sFolder=»\SadnldfsnlGRNL011883GlobalGD»

SpagoR Пользователь Сообщений: 39 Регистрация: 01.01.1970	{quote}{login=sva}{date=07.12.2011 08:23}{thema=}{post}Путь должен выглядеть так: sFolder=»\SadnldfsnlGRNL011883GlobalGD»{/post}{/quote} не помогает

sva Пользователь Сообщений: 1027 Регистрация: 23.12.2012	Тогда, не знаю в чем может быть проблема. Может кто из знатоков подскажет.

AKSENOV048 Пользователь Сообщений: 523 Регистрация: 01.01.1970	#14 07.12.2011 23:02:10 предположение… а не может быть из-за того что два PathSeparator. смотрите путь к файлам sFolder=»\SadnldfsnlGRNL011883GlobalGD» и sFiles = Dir(sFolder & Application.PathSeparator & «.xls») получается sFiles = Dir(«\SadnldfsnlGRNL011883GlobalGD»& Application.PathSeparator & «.xls») может надо sFiles = Dir(«\SadnldfsnlGRNL011883GlobalGD»& «.xls») <#0>

Источник

If you are working with multiple Excel files at once, you often find yourself dealing with warning messages when trying to close them. Although it is a good thing to be warned about saving to not lose changes in a workbook, it may become annoying quickly. Thanks to VBA, you can create a macro to close them all, preferably save as well. In this guide, we’re going to show you how to close all workbooks in Excel with VBA.

Preparation

You cannot close all workbooks if your code closes the workbook which includes the code, right? You need to store your code in a special file named Personal.xlsb. Personal.xlsb is a special macro file also known as Personal Macro Workbook. This file will be created automatically when you record a macro in it deliberately. Once created, this workbook will be opened in the background whenever you start Excel.

To check whether the file has been created correctly, open a blank workbook, and activate the View tab in the Ribbon. If the Unhide button is disabled, then your Personal.xlsb file has not been created.

You can easily create it by recording a macro.

Click Record Macro in the Developer tab or Status Bar. If the Developer tab is hidden, see How to display the Excel Developer tab for using advanced features.
Select Personal Macro Workbook from the Store macro in list
Click the OK button to start recording a macro.
If you do not want to record any action, you can click the Stop Macro button right away.

Once the macro recording stops, Excel creates the Personal.xlsb file. You can either use the Unhide command to make it visible or open the VBA window and access it through there.

Write your macros in Personal.xlsb and save the file in the VBA window.

Macro

All you need is to loop through each workbook and execute Close method for the active workbook. A simple For Each loop to iterate all workbook objects in a parent Workbooks object is enough.

You can determine if the workbooks are saved or not by populating the Close method’s SaveChanges argument. The default value of this argument is False which indicates no saving. Set it as True to save changes in your workbooks.

Do not forget to save Personal.xlsb file by the Save button or command in the VBA window.

Close all workbooks without saving changes

Sub CloseAllWorkbooks()
    'Define a workbook variable
    Dim wb As workbook
    'Loop through all workbooks and close them
    For Each wb In Workbooks
        wb.Close
    Next wb
End Sub

Close all workbooks without saving changes

Sub CloseAllWorkbooksAndSave()
    'Define a workbook variable
    Dim wb As workbook
    'Loop through all workbooks, save and close them
    For Each wb In Workbooks
        wb.Close SaveChanges:=True
    Next wb
End Sub

Источник

Как закрыть сразу все книги

На чтение 2 мин. Просмотров 1.5k.

Что делает макрос: Данный макрос позволяет закрыть все открытые рабочие книги одновременно.

Содержание

Как макрос работает
Код макроса
Как работает этот код
Как использовать

Как макрос работает

В этом макросе, коллекция Workbooks перебирает все открытые рабочие книги. По мере того, как макрос проходит через каждую книгу, он сохраняет и закрывает их.

Код макроса

Sub ZakritVseKnigi()
'Шаг 1: Объявляем переменные
Dim wb As Workbook
'Шаг 2: Перебираем все открытые книги
For Each wb In Workbooks
'Шаг 3: Закрываем
wb.Close 
'Шаг 4: Сохраняем изменения
SaveChanges:=True
Next wb
End Sub

Как работает этот код

Объявляем переменную, которая представляет собой объект книга. Это позволит перебирать все открытые книги.
С помощью цикла просто проходит через все открытые книги.
Закрываем книгу (Excel затем выдаст сообщение с предложением сохранить изменения).
Сохраняем изменения. Если Вы не хотите, чтобы их сохраняли, нужно изменить аргумент Savechanges значение с True на false.

Как использовать

Лучшее место, чтобы сохранить этот макрос — это ваша книга личных макросов. Таким образом, макрос всегда будет доступен для вас. Книга личных макросов загружается при запуске Excel. В окне VBE проекта, он назван personal.xlsb.

Активируйте редактор Visual Basic, нажав ALT + F11 на клавиатуре.
Щелкните правой кнопкой мыши personal.xlb в окне Project.
Выберите Insert➜Module.
Введите или вставьте код во вновь созданном модуле.

Если вы не видите personal.xlb в окне проекта, он еще не существует. Вы должны записать макрос, используя книгу личных макросов в качестве конечного пункта.

Чтобы записать макрос в личной книге макросов, выберите пункт: Личная книга макросов в диалоговом окне записи макроса перед началом записи. Просто записать пару кликов, а затем остановить запись. Вы можете сбросить записанный макрос и заменить его с этим.

Источник

Bastis

1 / 1 / 0

Регистрация: 22.09.2009

Сообщений: 39

Закрытие книг..

30.06.2011, 15:46. Показов 15124. Ответов 30

Метки нет (Все метки)

Есть файл. Из него надо переписать необходимые данные в новый файл. Файл успешно создается, все записывается и закрывается. Но когда я затем в дальнейшем открываю этот новый записанный файл, и хочу закрыть только его, закрываются ВСЕ книги….
При записи закрываю нужный файл так

Visual Basic

1 2	Workbooks(name).Save Workbooks(name).Close

в чем баг?

~~Busine2009~~

Заблокирован

30.06.2011, 15:57

Bastis,
напишите код, как создаёте файл, как закрываете его и как открываете.

Bastis

1 / 1 / 0

Регистрация: 22.09.2009

Сообщений: 39

30.06.2011, 16:02

[ТС]

создаю

Visual Basic

 'создаем новую книгу
     Application.Workbooks.Add
  Application.ActiveWorkbook.SaveAs (katalog2 & "" & fil)
  'создаем новый лист
  Worksheets.Add.name = name_list
 Workbooks("главная книга.xlsm").Activate

дальше записываю и закрываю

Visual Basic

Sub click_el(snach, n, m)
Dim name As String
' главная процедура, записываем значения
name = "вторая книга " + Str(Date) & ".xlsx"
Dim stroka As Integer
Dim ost As Integer
Dim j As Integer
name = "вторая книга " + Str(Date) & ".xlsx"
j = 3
Dim dada As Integer
Dim ch As String
 
Workbooks("главная книга.xlsm").Activate
 Worksheets(1).Activate
 
For i = 15 To 1235 Step 1
If Cells(1, i).Value Like "изделие*" Then
stroka = Worksheets(1).Cells(n, i).Value
If Str(stroka) > 0 And stroka < 50000 Then
kol = Application.Worksheets("Лист1").Cells(n, dada).Value
ost = kol  stroka
name_isd = Worksheets(1).Cells(1, i).Value
kolvo = ost
 
Workbooks(name).Activate
Worksheets(list_name).Range("B" & j) = name_isd
Worksheets(list_name).Range("C" & j) = kolvo
j = j + 1
End If
Workbooks("главная книга.xlsm").Activate
 
End If
 
Next
Workbooks(name).Save
Workbooks(name).Close
 
End Sub

1562 / 1114 / 165

Регистрация: 23.07.2010

Сообщений: 6,454

30.06.2011, 16:12

В каком модуле закрывается книга?

1 / 1 / 0

Регистрация: 22.09.2009

Сообщений: 39

30.06.2011, 16:20

[ТС]

эм… отдельный модуль. в этом модуле все процедуры выполняются.
или я вас неправильно поняла?

pincet

1562 / 1114 / 165

Регистрация: 23.07.2010

Сообщений: 6,454

30.06.2011, 16:24

Да нет, правильно. Странно просто, у меня открыты несколько книг, что из одной

Visual Basic

1 2	' closes herself ThisWorkbook.Close

что из другой

Visual Basic

1
2
3

Workbooks("Êíèãà11.xlsm").Activate
Workbooks("Êíèãà11.xlsm").Save
Workbooks("Êíèãà11.xlsm").Close

Закрывается только нужная

~~Busine2009~~

Заблокирован

30.06.2011, 16:26

Сообщение от Bastis

Но когда я затем в дальнейшем открываю этот новый записанный файл

у вас в кодах нету этого. Файл открывается с помощью команды Open.

1 / 1 / 0

Регистрация: 22.09.2009

Сообщений: 39

30.06.2011, 16:28

[ТС]

Сообщение от Busine2009

у вас в кодах нету этого. Файл открывается с помощью команды Open.

вот в этом то и загвоздка… я его открываю и закрываю вручную а не программно!
и в новом файле никакого кода на закрытие нет, но он тупо закрывает все книги

pincet

1562 / 1114 / 165

Регистрация: 23.07.2010

Сообщений: 6,454

30.06.2011, 16:34

Сообщение от Bastis

Visual Basic

1 2	Workbooks(name).Save Workbooks(name).Close

в чем баг?

Странно конечно, но как книгу закрываете — Файл-Закрыть или программно (Close)

Добавлено через 4 минуты
не, чудес не бывает — (не хочу никого обидеть) просто закрываете быстрее всего Application, а не книгу. Только что Ваш код проверил (частично) — закрывает только то, что прошу закрыть

1 / 1 / 0

Регистрация: 22.09.2009

Сообщений: 39

30.06.2011, 16:35

[ТС]

Сообщение от pincet

Странно конечно, но как книгу закрываете — Файл-Закрыть или программно (Close)

файл-закрыть
если быть точнее обычно крестиком в правом верхнем углу (сорри, но не знаю как это грамотно называется)

~~Busine2009~~

Заблокирован

30.06.2011, 16:37

Bastis,
так запрограммировано в Excel 2003, что, нажимая на крестик в верхнем правом углу, все книги закрываются. Начиная с Excel 2007, в этом случае закрывается только активная книга.

1562 / 1114 / 165

Регистрация: 23.07.2010

Сообщений: 6,454

30.06.2011, 16:44

Обычно их там два — надо нижний нажимать

Добавлено через 1 минуту

Сообщение от Busine2009

Ой ли?

Добавлено через 5 минут
На крайний случай (нет под рукой 2003) — всегда можно выбрать Окно-Закрыть окно.
Ну, или на панель инструментов добавить кнопку Закрыть

~~Busine2009~~

Заблокирован

30.06.2011, 16:46

Сообщение от pincet

Ой ли?

у меня так.

1 / 1 / 0

Регистрация: 22.09.2009

Сообщений: 39

30.06.2011, 16:58

[ТС]

у меня 2010 офис стоит
и как бы с другими файлами такого не возникает, какой бы крестик не нажимала.

1562 / 1114 / 165

Регистрация: 23.07.2010

Сообщений: 6,454

30.06.2011, 17:00

тогда источники в студию

~~Busine2009~~

Заблокирован

30.06.2011, 17:04

Bastis,
т.е. нажимая на верхний правый крестик в Excel 2010, закрываются все книги Excel?

Сделайте скрин-шот, куда вы нажимаете, что все книги закрываются.

Gibboustooth

735 / 203 / 11

Регистрация: 23.06.2011

Сообщений: 440

30.06.2011, 17:12

В состоянии, когда после нажатия на крестик закрываются все книги, создайте процедуру

Visual Basic

1 2	Sub test() End Sub

поставьте туда курсор и нажмите 2 раза F8. Если есть какая-то процедура, которая закрывает все книги, она вылезет.
Если нет — надо конкретно смотреть по файлам. Хотя у меня нет 2010 офиса

1 / 1 / 0

Регистрация: 22.09.2009

Сообщений: 39

30.06.2011, 17:19

[ТС]

вот так вот нажимаю, так же как думаю и пользователи для которых предназначается
согласна что этим я скорее всего в принципе excel закрываю, а не отдельные книги. но почему с только этим конкретным файлом?

Миниатюры

~~Busine2009~~

Заблокирован

30.06.2011, 17:22

Bastis,
в написании кода кто-нибудь ещё участвовал кроме вас?

1562 / 1114 / 165

Регистрация: 23.07.2010

Сообщений: 6,454

30.06.2011, 17:24

сделайте скриншот, куда вошла бы панель задач Windows (если информация не коммерческая)
пысы Все-таки файлы выложите

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.06.2011, 17:24

Помогаю со студенческими работами здесь

Создайте файл каталог книг. Найдите специальность, по которой имеется наибольшее число книг
Файл « Каталог книг » ( Создайте этот файл ).
Структура записи:
— Автор (40 знаков);
-…

Получить все возможные варианты комплектов из 60 книг, если посылки комплектуются по 10, 15 и 20 книг (поиск ошибки)
#include<iostream>
using namespace std;

int main()
{
int i=0, j=0, k=0, m=0;
do
{
do…

Купить K наименований книг так, чтобы заявка была удовлетворена по количеству приобретаемых разных книг
Помогите решить?
Вечером выложу наработки.
2.3.10. В библиотечном коллекторе имеется N…

Бинарные файлы. Вывести названия книг определенного автора, изданных до 2000 года. Определить долю книг
помогите пожалуйста: В файле хранятся сведения о личной библиотеке: фамилия автора, название,…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник