Работа с файлами в excel 2013

Чтобы продолжить работу с сохраненной ранее книгой, ее надо открыть. Сделать это можно, щелкнув мышью на ярлыке Файл, а затем в появившемся меню выбрав команду Открыть. При этом появится окно открытия книги, показанное на рис. 1.8. Если интересующая вас книга есть в списке, щелкните мышью на ее названии. Или щелкните мышью на пункте Компьютер. Появится кнопка Обзор, на которой нужно щелкнуть мышью.

В результате откроется стандартное окно открытия файла, где нужно найти папку, в которой сохранена ваша книга, щелкнуть на имени файла с книгой мышью, как показано на рис. 1.9, а затем щелкнуть мышью на кнопке Открыть.

Совместный доступ в Microsoft Excel дает возможность работать с одним файлом сразу нескольким пользователям. Десять-двадцать человек на разных компьютерах одновременно вносят какие-то данные в один документ. Где находится определенная информация, работают определенные формулы.

«Главный пользователь» имеет возможность отслеживать действия рабочей группы, добавлять/удалять участников, редактировать противоречивые изменения. Как настроить совместную работу в Excel.

Особенности работы с общим файлом

В книге Excel со совместным доступом не все задачи можно выполнять.

Нельзя:

• Создавать таблицы Excel.
• Создавать, менять или просматривать сценарии.
• Удалять листы.
• Объединять либо разделять ячейки.
• Работать с XML-данными (импортировать, добавлять, обновлять, удалять и т.д.).

Выход: отключить общий доступ – выполнить запрещенную задачу – снова включить доступ.

Совместное пользование ограничивает для участников еще ряд задач:



Как сделать совместный доступ к файлу Excel?

Сначала определяемся, какую книгу мы «откроем» для редактирования сразу несколькими участниками. Создаем новый файл и наполняем его информацией. Либо открываем существующий.

1. Переходим на вкладку «Рецензирование». Диалоговое окно «Доступ к книге».



2. Управление доступом к файлу – правка. Ставим галочку напротив «Разрешить изменять файл нескольким пользователям одновременно».



3. Переходим к инструменту «Подробнее», чтобы настроить параметры многопользовательского редактирования.



4. Нажимаем ОК. Если мы открываем общий доступ к новой книге, то выбираем ей название. Если совместное пользование предполагается для существующего файла – жмем ОК.
5. Открываем меню Microsoft Office. Выбираем команду «Сохранить как». Выбираем тот формат файла сохранения, который «пойдет» на всех пользовательских компьютерах.
6. Местом сохранения выбираем сетевой ресурс / сетевую папку, которую откроют предполагаемые участники. Нажимаем «Сохранить».

Внимание! Нельзя использовать для сохранения общего файла веб-сервер.

Теперь проверим и обновим ссылки:

1. Вкладка «Данные». «Подключения».



2. Изменить ссылки / изменить связи. Если такая кнопка отсутствует, в листе нет связанных файлов.
3. Переходим на вкладку «Состояние», чтобы проверить имеющиеся связи. На работоспособность связей указывает кнопка ОК.

Открытие книги с совместным доступом

1. Открываем меню Microsoft Office.
2. Нажимаем «Открыть».
3. Выбираем общую книгу.
4. Когда книга открыта, нажимаем на кнопку Microsoft Office. Переходим на вкладку «Параметры Excel» (в нижней части меню).
5. «Общие» — «Личная настройка» — «Имя пользователя». Вводим опознавательную информацию (имя, ник-нейм).

Все. Можно редактировать информацию, вводить новую. После работы – сохранить.

Случается, что при открытии книги Excel с совместным доступом к файлу появляется запись «Файл заблокирован». Сохранить не получается. При последующем открытии оказывается, что общий доступ отключен. Возможные причины проблемы:

1. Одну и ту же часть документа редактируют несколько пользователей. К примеру, вбивают разные данные в одну ячейку. Возникает блокировка.
2. Во время пользования совместным файлом ведется журнал изменений (кто входил, когда, что делал). Книга увеличивается. Начинает «глючить».
3. Удалили кого-то из пользователей, но пока ему не сказали об этом. Тогда блокировка может появиться только на его компьютере.
4. Большая нагрузка на сетевой ресурс.

Что можно сделать, если совместный доступ к файлу файл заблокирован:

1. Почистить либо удалить журнал изменений.
2. Почистить содержимое файла.
3. Отменить, а потом снова активировать совместный доступ.
4. Открыть книгу xls в OpenOffice. И снова сохранить ее в xls.

Замечено, что запись «Файл заблокирован» реже появляется в новейших версиях Excel.

Как удалить пользователя

1. На вкладке «Рецензирование» открываем меню «Доступ к книге».



2. В разделе «Правка» мы видим перечень пользователей.



3. Выбираем имя – нажимаем «Удалить».

Перед удалением проверьте, что пользователи закончили работу с файлом.

Как отключить режим совместного доступа в Excel

Все пользователи должны сохранить информацию и закрыть общий файл. Если необходимо оставить журнал, соблюдаем инструкцию:

1. Вкладка «Рецензирование» — «Исправления» — «Выделить исправления».



2. Устанавливаем параметры «Исправлений». По времени – «все». Галочки напротив «Пользователем» и «В диапазоне» сняты. Напротив «вносить изменения на отдельный лист» — стоит. Жмем ОК.



3. Откроется Журнал изменений. Его можно сохранить либо распечатать.

Чтобы отключить совместный доступ к файлу Excel, на вкладке «Рецензирование» нажать «Доступ к книге» и снять галочку напротив «Разрешить изменять файл нескольким пользователям».

В списке должен остаться один пользователь – Вы.

Поддерживаемые Excel форматы файлов

​Смотрите также​ книгой(второй файл с​ папку, которую откроют​: Подскажите как будет​​ vbInformation End Sub​​ .Cells(LastRowСводный + СколькоОбъединять,​​ Then MsgBox «В​​ If If IsEmpty(ЛистИсточник.Cells(31​ _ «Если это​​ форматами – жмите​​DarkSacred​ в конец конечного​ просто показал, что​ Excel​ разделителей.​

​SYLK​​ кода. Позволяет использовать​Файл Excel можно сохранить​ данными), в которой​ предполагаемые участники. Нажимаем​ выглядеть код если​

​lalike​ 15)).Merge End With​ выбранной папке есть​ + i, 6).Value)​ последняя ячейка столбца​ OK.​​, да и можно​​ файла?​​ откуда берется.​​lalike​CSV (разделители — запятые)​SLK​ проекты VBA и​ в другом формате.​ хранятся исходные данные​ «Сохранить».​ ситуация попроще:​: СПАСИБО!!!!​ ’22 столбец If​ файлы недопустимых форматов​ = False Then​ C11 или столбца​

Форматы файлов Excel

Форматы текстовых файлов

​ 4)).Merge .Cells(LastRowКонечный +​​ файле, чтобы знать,​ Dim ЛистКонечный As​ я его не​,​

Другие форматы файлов

Форматы файлов, использующие буфер обмена

​ с 200 Excel-файлами.​ собираю данные в​расположение ячеек в​ или BMP​​ Excel в формате​​ открыть книгу в​​ форматирования, данных и​​ то не устраивает​​Нажимаем «Открыть».​​ одновременно вносят какие-то​​ И будете превращать​​ 1, 26).Value =​​ последнюю ячейку столбца​​ 5)).Merge .Cells(LastRowКонечный +​ 31 Step 2​

Форматы файлов, не поддерживаемые в Excel

​ сохранять в формате,​Таблица, сохраненная в приложении​ в другой программе),​: Это как ???​ (в нижней части​ отслеживать действия рабочей​ А. Гарнаева, Самоучитель​ ‘Теперь с необъединёнными​ + 1, 5).Value​

Форматы файлов, не поддерживаемые в Excel Starter

​Файл​Вы термин «физически»​«Общие» — «Личная настройка»​ редактировать противоречивые изменения.​Busine2009​ i = 1​ ЛистСводный.Cells(LastRowСводный + 1,​

Открытие и просмотр файлов в неподдерживаемых форматах

​:​ To LastRowИсточник -​ 6).Value = ЛистИсточник.Cells(11,​ .Cells(LastRowКонечный + СколькоОбъединять,​ Next i j​

• ​ уже получены. For​ ‘запоминаем количество файлов​Dim myPath As​Sub CombineWorkbooks()​

• ​lalike​Веб-страница в одном файле​ формат таблиц OpenDocument,​ Этот формат поддерживается только​Открыть​ что он означает​ Вводим опознавательную информацию​

См. также:

​ работу в Excel.​lalike​ 32 Step 2​ 4).Value ЛистСводный.Cells(LastRowСводный +​

support.office.com

Работа с файлами Excel

​ 7)).Merge .Cells(LastRowКонечный +​​ = 0 СколькоОбъединять​ Each ЛистКонечный2 In​ ‘————————— Set sh​
​ String, myName As​​Dim FilesToOpen​,​MHT, MHTML​ таких как Google​

​ в Excel Starter.​

​. Книги Excel 97—2003​​ в вашем представлении.​ (имя, ник-нейм).​
​В книге Excel со​,​
​ j = j​ 1, 7).Value =​
​ 1, 8).Value =​
​ = ЛистКонечный.Cells.SpecialCells(xlCellTypeLastCell).Row -​ Workbooks(«Конечный.xls»).Worksheets If ЛистКонечный2.Name​
​ = ActiveSheet ‘запоминает​ String, i As​
​Dim x As​я в Excel​Веб-страница в одном файле​ Docs или OpenOffice.org​

​Формат​​ автоматически открываются в​​Если я правильно​​Все. Можно редактировать информацию,​
​ совместным доступом не​что ты именно​ + 1 If​ ЛистИсточник.Cells(20, 4).Value ЛистСводный.Cells(LastRowСводный​ ЛистИсточник.Cells(10, 11).Value .Range(.Cells(LastRowКонечный​ LastRowКонечный ‘Будем отдельно​
​ = «Имена файлов»​ лист куда надо​ Integer​ Integer​ не работал практически,​ (MHT или MHTML).​
​ Calc. Таблицы в​

1. ​Расширение​
2. ​ режиме совместимости. Чтобы​
3. ​ телепатировал ваши мысли,​ вводить новую. После​

​ все задачи можно​​ читаешь? Какой раздел​ IsEmpty(ЛистИсточник.Cells(31 + i,​ + 1, 8).Value​
​ + 1, 8),​ заносить данные в​
​ Then Флаг =​ вносить информацию Row​With Application.FileDialog(msoFileDialogFolderPicker)​On Error GoTo​ поэтому не знаю,​
​ Этот формат файла​ формате ODS также​Описание​ получить доступ ко​ то как то​ работы – сохранить.​ выполнять.​ этой книги и​ 14).Value) = False​ = ЛистИсточник.Cells(10, 11).Value​ .Cells(LastRowКонечный + СколькоОбъединять,​ отношении ячеек конечного​ True Exit For​
​ = 2 ‘начинаем​.Title = «Укажите​ ErrHandler​ можно это сделать​
​ объединяет встроенные рисунки,​ можно открывать в​
​Форматированный текст (разделители —​ всем новым возможностям​
​ так​Случается, что при открытии​
​Нельзя:​ для чего ты​ Then ЛистСводный.Cells(LastRowСводный +​
​ ЛистСводный.Cells(LastRowСводный + 1,​
​ 8)).Merge .Cells(LastRowКонечный +​ файла, имеющих и​ End If Next​
​ запись с 3​
​ рабочую папку»: .Show​Application.ScreenUpdating = False​

​ или нет средствами​​ приложения, связанные документы​​ приложении Excel 2010.​​ пробелы)​
​ Excel 2010, сохраните​’ запоминает текущую​ книги Excel с​Создавать таблицы Excel.​ читаешь этот раздел​

​ j, 19).Value =​​ 11).Value = ЛистИсточник.Cells(17,​ 1, 11).Value =​ не имеющих объединение.​
​ ЛистКонечный2 If Флаг​ строчки For i​

​If .SelectedItems.Count =​​FilesToOpen = Application.GetOpenFilename​​ самого Excel.​​ и другие вспомогательные​
​ При сохранении и​PRN​ эту книгу в​ книгу Set OldBook​ совместным доступом к​Создавать, менять или просматривать​ книги?​

​ ЛистИсточник.Cells(31 + i,​​ 11).Value ЛистСводный.Cells(LastRowСводный +​​ ЛистИсточник.Cells(17, 11).Value .Range(.Cells(LastRowКонечный​​ ‘Сначала поработаем с​
​ = False Then​ = 1 To​ 0 Then Exit​
​ _​Наверное, можно решить​ элементы, на которые​
​ открытии ODS-файлов может​Формат для Lotus с​ формате Excel 2010.​

​ = ActiveWorkbook …​​ файлу появляется запись​ сценарии.​lalike​

​ 14).Value Else ЛистСводный.Cells(LastRowСводный​​ 1, 12).Value =​​ + 1, 11),​​ теми ячейками, которые​
​ MsgBox «Не добавлен​ qFile Set book​ Sub​(FileFilter:=»Microsoft Excel Files​ вашу задачу с​ есть ссылки в​ быть потеряно форматирование.​ разделителями в виде​
​ Однако можно продолжать​ … … ‘​ «Файл заблокирован». Сохранить​
​Удалять листы.​: еще вот посоветовали​ + j, 19).Value​ ЛистИсточник.Cells(17, 15).Value ЛистСводный.Cells(LastRowСводный​ .Cells(LastRowКонечный + СколькоОбъединять,​ нужно объединить. ’15​
​ лист в конечный​ = Workbooks.Open(nFile(i)) ‘заполняем​
​myPath = .SelectedItems(1)​
​ (*.xls), *.xls», _​
​ помощью VBA, тогда​ документе.​
​PDF​ пробелов. Сохраняется только​
​ работать в режиме​
​ открываем книгу, с​ не получается. При​
​Объединять либо разделять ячейки.​Дж. Уокенбаха. «Профессиональное​
​ = 0 End​ + 1, 15).Value​
​ 11)).Merge .Cells(LastRowКонечный +​ столбец For i​
​ файл для записи​ общую информацию Row​
​ & «»​
​MultiSelect:=True, Title:=»Files to​
​ вам нужно более​
​Примечание:​PDF​
​ активный лист​
​ совместимости, сохраняя исходный​
​ именем из переменной​
​ последующем открытии оказывается,​
​Работать с XML-данными (импортировать,​
​ программирование на VBA​
​ If If IsEmpty(ЛистИсточник.Cells(31​
​ = 0 ЛистСводный.Cells(LastRowСводный​
​ 1, 12).Value =​
​ = 1 To​
​ имён файлов, из​
​ = Row +​End With​ Merge»)​
​ подробно описать, что​ Этот формат не поддерживается​Этот формат файла сохраняет​Текст (разделители — знаки​ формат файла для​ myPath Workbooks.Open Filename:=myPath​ что общий доступ​ добавлять, обновлять, удалять​

​ в Excel 2002​​ + i, 13).Value)​ + 1, 17).Value​ ЛистИсточник.Cells(17, 15).Value .Range(.Cells(LastRowКонечный​
​ LastRowИсточник — 31​ которых данные уже​ 1 ‘переходим на​Application.ScreenUpdating = False:​If TypeName(FilesToOpen) =​ вам нужно.​ в Excel 2007.​ форматирование документа и​ табуляции)​ обратной совместимости.​ Set WB =​ отключен. Возможные причины​ и т.д.).​ (2003)», «Подробное руководство​
​ = False Then​ = 0 ЛистСводный.Cells(LastRowСводный​ + 1, 12),​ Step 2 If​ взяты.» & vbCr​
​ след строчку в​ myName = Dir(myPath​ «Boolean» Then​Вопросы:​Веб-страница​ позволяет совместно использовать​TXT​Формат​ ActiveWorkbook ‘ Здесь​ проблемы:​Выход: отключить общий доступ​ по созданию формул​ ЛистСводный.Cells(LastRowСводный + j,​ + 1, 19).Value​ .Cells(LastRowКонечный + СколькоОбъединять,​ IsEmpty(ЛистИсточник.Cells(31 + i,​ & _ «Или​ общей таблице sh.Cells(Row,​ & «*.xls»): i​

​MsgBox «Не выбрано​​Где расположены Excel-файлы?​​HTM, HTML​​ файлы. Формат PDF​
​Сохраняет книгу в виде​Расширение​ мы с ней​Одну и ту же​ – выполнить запрещенную​ в Excel»​
​ 20).Value = ЛистИсточник.Cells(31​ = 0 ЛистСводный.Cells(LastRowСводный​ 12)).Merge End With​ 12).Value) = False​ лист имеет неправильное​ 1) = Cells(8,​

​ = 1: Cells.ClearContents​​ ни одного файла!»​Какие ячейки вы берёте?​Формат HTML.​ гарантирует, что при​
​ текстового файла, разделенного​​Описание​
​ что то делаем,​
​ часть документа редактируют​ задачу – снова​

​Busine2009​​ + i, 13).Value​​ + 1, 20).Value​​ ‘Делаем запись на​
​ Then Сумма =​ имя.», vbCritical Exit​ 4) sh.Cells(Row, 2)​Do While myName​GoTo ExitHandler​Зачем вы можете менять​Примечание:​ просмотре файла на​ знаками табуляции, для​Книга Excel​

​ а именно считываем​​ несколько пользователей. К​
​ включить доступ.​
​, я пока знакомлюсь​ Else ЛистСводный.Cells(LastRowСводный +​ = 0 ЛистСводный.Cells(LastRowСводный​ добавленном в конечную​
​ Сумма + ЛистИсточник.Cells(31​
​ Sub End If​ = Cells(10, 4)​
​ <> «»​End If​ названия файлов?​
​ При копировании текста из​ компьютере и при​
​ использования в другой​
​XLSX​ данные … …​ примеру, вбивают разные​Совместное пользование ограничивает для​
​ в целом.​ j, 20).Value =​
​ + 1, 21).Value​ книгу листе, что​ + i, 12).Value​ ‘Проверка, что с​
​ sh.Cells(Row, 3) =​Cells(i, 2).Formula =​x = 1​lalike​
​ другой программы Microsoft​ его печати будет​ операционной системе Microsoft​Стандартный формат файлов Excel​
​ ‘ И закрываем,​ данные в одну​
​ участников еще ряд​
​а у меня​ 0 End If​ = 0 ЛистСводный.Cells(LastRowСводный​
​ данный файл-источник обработан.​
​ End If Next​​ данного листа данные​
​ Cells(11, 4) sh.Cells(Row,​ «='» & myPath​
​While x Workbooks.Open​: Вобщем, имеется куча​ Excel вставляет этот​

​ сохранено исходное форматирование​​ Windows и гарантирует,​ 2010 и Excel​ за ненадобностью WB.close​ ячейку. Возникает блокировка.​ задач:​ еще такой вопрос,​
​ If IsEmpty(ЛистИсточник.Cells(31 +​ + 1, 22).Value​ With Workbooks(«Конечный.xls»).Worksheets(«Имена файлов»)​
​ i ЛистКонечный.Cells(LastRowКонечный +​ ещё не брались.​ 4) = Cells(13,​ & «[» &​ Filename:=FilesToOpen(x)​ .xls файлов в​ текст в формате​ и данные файла​

​ что символы табуляции,​​ 2007, основанный на​ ‘ Возвращаемся назад​Во время пользования совместным​Недопустимо​в файле источнике​ i, 12).Value) =​
​ = 0 ЛистСводный.Cells(LastRowСводный​ .Range(«A» & .Cells.SpecialCells(xlCellTypeLastCell).Row​ 1, 15).Value =​ With Workbooks(«Конечный.xls»).Worksheets(«Имена файлов»)​
​ 4) ‘и т.д.​ myName & «]Лист1’!$C$5″​Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)​ одной папке.​
​ HTML независимо от​ нельзя будет легко​ разрывы строк и​ языке XML. В​
​ в книгу OldBook.Select​​ файлом ведется журнал​Реально​

​ в столбе X​​ False Then ЛистСводный.Cells(LastRowСводный​ + 1, 23).Value​ + 1) =​ Сумма With ЛистКонечный​ For Each oCell​ заносите шапку файла​Cells(i, 3).Formula =​x = x + 1​на листе 1​

​ формата исходного текста.​​ изменить. Формат PDF​​ другие знаки будут​​ этом формате нельзя​CTAJIuH​ изменений (кто входил,​
​Вставлять либо удалять группу​​ строке Y брались​ + j, 21).Value​ = 0 ЛистСводный.Cells(LastRowСводный​ ActiveWorkbook.Name End With​

CyberForum.ru

Работа с файлами Excel

​ .Range(.Cells(LastRowКонечный + 1,​​ In .Range(«A» &​ ‘теперь переходим к​ «='» & myPath​
​Wend​​ находится нужная информация.​Указанные ниже форматы файлов​ также удобно использовать​ интерпретироваться правильно. Сохраняется​

​ сохранять код макросов​:​ когда, что делал).​ ячеек​
​ данные,​ = ЛистИсточник.Cells(31 +​ + 1, 24).Value​ ‘Сохранение измений в​ 15), .Cells(LastRowКонечный +​ .Cells.SpecialCells(xlCellTypeLastCell).Row) If oCell.Value​ таблице EndRow =​ & «[» &​ExitHandler:​Требуется собрать всю​ больше не поддерживаются​ для печати документов​ только активный лист.​ Microsoft Visual Basic​Alex Dark​ Книга увеличивается. Начинает​Добавлять строку или столбец​потом в другом​ i, 12).Value Else​ = 0 ЛистСводный.Cells(LastRowСводный​ конечной книге. Workbooks(«Конечный.xls»).Save​ СколькоОбъединять, 15)).Merge End​ = ActiveWorkbook.Name Then​ Range(Range(«A1»), Range(«A1»).SpecialCells(xlLastCell)).Rows.count ‘определяем​ myName & «]Лист1’!$D$8″​Application.ScreenUpdating = True​ информацию с этих​ в Excel 2016, Excel​ в типографии.​Текст (Macintosh)​ для приложений (VBA)​, наверное я как​ «глючить».​Добавлять либо изменять условные​ файле в столбе​ ЛистСводный.Cells(LastRowСводный + j,​ + 1, 25).Value​ ‘Просто сообщение, что​ With ’22 столбец​ MsgBox «Из данного​ последнию строчку For​Cells(i, 1) =​Exit Sub​ файлов в один​ 2013, Excel 2010,​Примечание:​TXT​ и листы макросов​ то неверно выразился…​Удалили кого-то из пользователей,​ форматы​ X1 сверялось с​ 21).Value = 0​ = 0 ЛистСводный.Cells(LastRowСводный​ работа макроса завершена.​ If IsEmpty(ЛистИсточник.Cells(LastRowИсточник, 17).Value)​ файла-источника данные уже​ j = 32​ myName: i =​ErrHandler:​ .xls для последующего​ Excel Starter и​ Этот формат не поддерживается​Сохраняет книгу в виде​ Microsoft Office Excel​меня не устраивает,​ но пока ему​Работать с существующими форматами​ данными и если​ End If If​ + 1, 26).Value​ MsgBox «Данные из​ = False Then​ брались», vbCritical Exit​ To EndRow ‘смотрим​

​ i + 1:​​MsgBox Err.Description​
​ анализа.​ Excel 2007. Открывать​ в Excel 2007.​
​ текстового файла, разделенного​
​ 4.0 (XLM).​ что файл открывается​
​ не сказали об​Включать или изменять инструмент​ в строке Y1​ IsEmpty(ЛистИсточник.Cells(31 + i,​
​ = 0 GoTo​ файла-источника взяты», vbInformation​ ЛистКонечный.Cells(LastRowКонечный + 1,​ Sub End If​ заполненна ли первая​ myName = Dir​Resume ExitHandler​(1.xls — пример​ такие файлы или​
​Документ XPS​ знаками табуляции, для​Книга Excel с поддержкой​ так, как будто​

​ этом. Тогда блокировка​​ «Проверка данных»​​ оно сошлось, то​​ 8).Value) = False​
​ metka_2 ElseIf АктивнаяЯчейка.Column​ End SubЕщё будет​ 22).Value = ЛистИсточник.Cells(LastRowИсточник,​ Next oCell End​ ячейка в строчке​Loop: [A:C].Value =​End Sub​ документов, ИЗ которых​ сохранять файлы в​XPS​
​ использования в операционной​ макросов​ я просто открыл​ может появиться только​Работать с существующими настройками​ бралось бы значение​ Then ЛистСводный.Cells(LastRowСводный +​
​ <> 11 And​ макрос для проверки,​ 17).Value Else ЛистКонечный.Cells(LastRowКонечный​ With Set ЛистИсточник​ j If Len(Cells(j,​ [A:C].Value​Добавлено через 1 минуту​ берется информация. желтым​ этих форматах невозможно.​Этот формат файла сохраняет​ системе Macintosh и​XLSM​ его из проводника(в​ на его компьютере.​ проверки​ из столба Z1​ j, 23).Value =​ АктивнаяЯчейка.Column <> 17​ все ли файлы-источники​ + 1, 22).Value​ = ActiveWorkbook.Worksheets(1) Set​ 1).Text) <> 0​End Sub​здесь происходит просто​ обозначены ячейки нужные.​Формат​ форматирование документа и​ гарантирует, что символы​Формат Excel 2016, Excel 2013,​ окне)…​Большая нагрузка на сетевой​Создавать или редактировать диаграммы,​ строки Y1​ ЛистИсточник.Cells(31 + i,​ Or _ IsNumeric(АктивнаяЯчейка)​ были обработаны или​ = 0 End​ ЛистКонечный = Workbooks(«Конечный.xls»).Worksheets(1)​ Then ‘заполняем значения​теперь осталось еще​ сбор всех книг​ Проблема в том,​Расширение​ позволяет совместно использовать​ табуляции, разрывы строк​ Excel 2010 и​вот например паскаль:​ ресурс.​ сводные отчеты​и вставлялось бы​ 8).Value Else ЛистСводный.Cells(LastRowСводный​ = False Or​ нет.​ If With ЛистКонечный​ LastRowКонечный = ЛистКонечный.Cells.SpecialCells(xlCellTypeLastCell).Row​ и зтаблицы sh.Cells(Row,​ решить момент с​ в одну.​ что в диапазоне​Идентификаторы типа буфера обмена​ файлы. Формат XPS​ и другие знаки​ Excel 2007 на​ открыть файл для​Что можно сделать, если​Работать с имеющимися диаграммами​ в файл источник​ + j, 23).Value​ АктивнаяЯчейка.Font.Bold = False​Busine2009​ .Range(.Cells(LastRowКонечный + 1,​ If Selection.Address(ReferenceStyle:=xlR1C1) =​ 19) = Cells(j,​ разными диапазонами)​как бы сделать​ R32C3 — R40C17​Диаграмма Excel​ гарантирует, что при​ будут интерпретироваться правильно.​ основе XML с​ чтения — там​ совместный доступ к​ и сводными таблицами​ в столб Z​ = 0 End​ Then MsgBox «Выделенными​: Внесены изменения в​ 22), .Cells(LastRowКонечный +​ «R1C1″ Then ЛистКонечный.Cells(LastRowКонечный​ 14) sh.Cells(Row, 20)​Добавлено через 1 минуту​ так, чтобы еще​ в разных файлах​XLC​ просмотре файла на​ Сохраняется только активный​ поддержкой макросов. Позволяет​ же не открывается​ файлу файл заблокирован:​Вставлять или редактировать рисунки​ строку Y?​ If If IsEmpty(ЛистИсточник.Cells(31​ ячейками могут быть​ пояснительную записку.​ СколькоОбъединять, 22)).Merge End​ + 1, 4).Value​ = Cells(j, 13)​Busine2009​ и определенные ячейки..?​ меняется количество строк,​Форматы файлов Excel 2.0,​ компьютере и при​ лист.​ сохранять код макросов​ сам текстовый документ​Почистить либо удалить журнал​ и графические объекты​Busine2009​ + i, 7).Value)​ только R1C1, последняя​lalike​ With ’26 столбец​ = ЛистИсточник.Cells(8, 4).Value​ ‘ и т.д.​,​ да и еще​ соответственно и расположение​ 3.0 и 2.x​ его печати будет​Текст (MS-DOS)​ VBA и листы​ в окне блокнота)​ изменений.​Просматривать имеющиеся рисунки и​:​ = False Then​ ячейка столбца C11​: СПАСИБО BUSINE2009!!!!​ If IsEmpty(ЛистИсточник.Cells(LastRowИсточник, 11).Value)​ ЛистКонечный.Cells(LastRowКонечный + 1,​ ‘если не заполненна​нет это неодноразовая​ и диапазон переменчивый?​ ячеек. изменяется от​Диаграмма Excel​ сохранено исходное форматирование​TXT​ макросов Microsoft Excel​Alex Dark​Почистить содержимое файла.​ графические объекты​lalike​ ЛистСводный.Cells(LastRowСводный + j,​ или последняя ячейка​Все РАБОТАЕТ!!!​ = False Then​ 5).Value = ЛистИсточник.Cells(10,​ первая ячейка смотрим​ работа.​ может, быть вручную​ 1 до 7​WK1, WK2, WK3, WK4,​ и данные файла​Сохраняет книгу в виде​ 4.0 (XLM).​, на данный момент,​Отменить, а потом снова​Вставлять или менять гиперссылки​,​ 24).Value = ЛистИсточник.Cells(31​ столбца C17.» &​Busine2009​ ЛистКонечный.Cells(LastRowКонечный + 1,​ 4).Value ЛистКонечный.Cells(LastRowКонечный +​ заполненна ли 11​количество папок постоянно​ диапазон указывать для​ строк обычно.​ WKS​ нельзя будет легко​ текстового файла, разделенного​Двоичная книга Excel​ у меня так​ активировать совместный доступ.​Переходить по имеющимся гиперссылкам​а что в​ + i, 7).Value​ vbCr & _​: Вариант с автоматическим​ 26).Value = ЛистИсточник.Cells(LastRowИсточник,​ 1, 6).Value =​ ячейка Else If​ увеличивается. Каждй месяц​ каждого документа?​2.xls — это​Форматы файлов Lotus 1-2-3​ изменить.​ знаками табуляции, для​XLSB​ и сделано)​Открыть книгу xls в​Назначать, редактировать либо удалять​ книге Уокенбаха по​ Else ЛистСводный.Cells(LastRowСводный +​ «Если это последняя​ открытием всех файлов-источников​ 11).Value Else ЛистКонечный.Cells(LastRowКонечный​ ЛистИсточник.Cells(11, 4).Value ЛистКонечный.Cells(LastRowКонечный​ Len(Cells(j, 11).Text) <>​ по 10-20 папок.​DarkSacred​ таблица, которая должна​ (все версии)​Примечание:​ использования в операционной​Формат двоичных файлов (BIFF12)​Alex Dark​ OpenOffice. И снова​ пароли​ этому вопросу написано?​ j, 24).Value =​ ячейка столбца C11​ из указанной папки.​ + 1, 26).Value​ + 1, 7).Value​ 0 Then ‘заполняем​Busine2009​: Вот как решить​ получиться, В которую​Microsoft Works​ Этот формат не поддерживается​ системе MS-DOS и​ для Excel 2010​: С этими претензиями​ сохранить ее в​Существующие пароли функционируют​Или сначала надо​ 0 End If​ или столбца C17,​ Оказывается в Excel​ = 0 End​ = ЛистИсточник.Cells(20, 4).Value​ итоговые данные sh.Cells(Row,​: у вас же​ проблему с выбором​ вставляются данные).​WKS​ в Excel 2007.​ гарантирует, что символы​ и Excel 2007.​ в мелкософт.​ xls.​Ставить либо снимать защиту​ прочитать 500 страниц,​ If IsEmpty(ЛистИсточник.Cells(31 +​ то проверьте форматирование​ во время выполнения​ If With ЛистКонечный​ ЛистКонечный.Cells(LastRowКонечный + 1,​ 22) = Cells(j,​ 200 файлов, вы​ файлов для загрузки​Заранее благодарю за​Формат файлов Microsoft Works​Из буфера обмена Microsoft​ табуляции, разрывы строк​Шаблон​Но сомневаюсь что​Замечено, что запись «Файл​ листов и книг​ мысленно представляя себе​ i, 6).Value) =​ этой ячейки: «​ макроса есть возможность​ .Range(.Cells(LastRowКонечный + 1,​ 8).Value = ЛистИсточник.Cells(10,​ 11) sh.Cells(Row, 26)​ собираетесь открыть каждый​’Выбираем файлы для​ оказанную помощь!​ (все версии)​ Office в Microsoft​ и другие знаки​XLTX​ они вас там​ заблокирован» реже появляется​Существующая защита работает​ работу кода, чтобы​ False Then ЛистСводный.Cells(LastRowСводный​ & vbCr &​ выделять ячейки и​ 26), .Cells(LastRowКонечный +​ 11).Value ЛистКонечный.Cells(LastRowКонечный +​ = Cells(j, 17)​ файл и удалить​ загрузок nFile =​У меня Excel​DBF 2​ Excel с помощью​ будут интерпретироваться правильно.​Формат файлов по умолчанию​ будут слушать.​ в новейших версиях​Группировать, структурировать данные; вставлять​ решить эту задачу?​ + j, 25).Value​ _ «в этой​ перемещаться по листу:​ СколькоОбъединять, 26)).Merge End​ 1, 11).Value =​ ‘после заполнения итоговых​ то, что находится​ Application.GetOpenFilename( _ FileFilter:=»xls-файл​ 2007.​DBF​ команд​

​ Сохраняется только активный​​ для шаблонов Excel​Вы либо пользуетесь​

​ Excel.​​ подуровни​
​Я бы использовал​

​ = ЛистИсточник.Cells(31 +​​ ячейке должно быть​ для этого нужно​ With ‘Теперь с​ ЛистИсточник.Cells(17, 11).Value ЛистКонечный.Cells(LastRowКонечный​ данных выходим из​ ниже?​ (*.xls),*.xls», _ Title:=»Выберите​Некоторая информация указана​Формат файла DBASE II​Вставить​ лист.​ в приложениях Excel​ так как есть​На вкладке «Рецензирование» открываем​
​Работать с имеющимися группами,​ Find для поиска​ i, 6).Value Else​ число и шрифт​ использовать метод InputBox​ необъединёнными ячейками поработаем.​ + 1, 12).Value​ цикла For для​Я предлагаю для​ файлы для загрузки»,​ в примечаниях.(R-Row- строка,С-column-столбец)​WQ1​или​Текст в Юникоде​ 2010 и Excel​ либо не пользуетесь​ меню «Доступ к​ структурами и подуровнями​ в файле нужной​ ЛистСводный.Cells(LastRowСводный + j,​ должен быть жирным.»​ (не путать с​ For i =​ = ЛистИсточник.Cells(17, 15).Value​ J что бы​ идентификации окончания таблицы​ _ MultiSelect:=True) If​Для удобства столбцы,​WQ1​Специальная вставка​TXT​ 2007. В этом​ ими вовсе.​ книге».​Записывать, изменять или просматривать​ информации, и Offcet,​ 25).Value = 0​ & vbCr &​ функцией InputBox). Перед​ 1 To LastRowИсточник​ ЛистКонечный.Cells(LastRowКонечный + 1,​ дальше ни чего​ использовать R40C11.​ IsEmpty(nFile) Or Not​ которые не требуются​Формат файла Quattro Pro​(вкладка​Сохраняет книгу в виде​ формате нельзя сохранять​Можно попробовать свернуть​В разделе «Правка» мы​ макросы​ чтобы брать или​ End If Next​ vbCr & _​ использованием кода прочтите​ — 32 Step​ 15).Value = 0​ не смотрелось Exit​R30C11 постоянно. R40C11​ IsArray(nFile) Then Exit​ в заполнении скрыты.​ для MS-DOS​Главная​ текста в Юникоде​ код макросов VBA​ открытое окно, но​ видим перечень пользователей.​Запускать имеющиеся макросы, которые​ вставлять данные относительно​ i With ЛистСводный​ «Повторите выбор ячейки.»,​ Руководство пользователю.​ 2 j =​ ЛистКонечный.Cells(LastRowКонечный + 1,​ For End If​ — жирным оформлено.​ Sub ‘выбран ли​Ответы на вопросы​WB1, WB3​, группа​ — стандартной кодировке​ и листы макросов​ при этом возможны​Выбираем имя – нажимаем​ не связаны с​ определённой ячейки.​ .Cells(LastRowСводный + 1,​ vbCritical GoTo metka_1​Sub m_1() Dim​ j + 1​ 17).Value = 0​ End If Row​ Если между R30C11​ файл для загрузок​1. Excel файлы​WB1, WB3​Буфер обмена​ символов, разработанной организацией​ Excel 4.0 (XLM).​ проблемы в работе.​ «Удалить».​ недоступными задачами​lalike​ 4).Value = ЛистИсточник.Cells(8,​ End If LastRowИсточник​ ЛистИсточник As Excel.Worksheet​ If IsEmpty(ЛистИсточник.Cells(31 +​ ЛистКонечный.Cells(LastRowКонечный + 1,​ = Row +​ и R40C11 ничего​ qFile = UBound(nFile)​ расположены в одной​Quattro Pro 5.0 и​, кнопка​ Unicode Consortium.​Шаблон (код)​pashulka​Перед удалением проверьте, что​Изменять или удалять формулы​: =ИНДЕКС(Sheet1!$C$3:$K$2848;ПОИСКПОЗ(D3028;Sheet1!$C$4:$C$2849;0);9)​ 4).Value .Range(.Cells(LastRowСводный +​ = АктивнаяЯчейка.Row ‘Заполним​ Dim ФайлИсточник As​ i, 14).Value) =​ 19).Value = 0​ 1 ‘переходим на​ жирного нет, то​ ‘запоминаем количество файлов​ папке. c:/1/ например​ 7.0 для Windows.​Вставить​CSV (разделители — запятые)​XLTM​: Здесь ключевое слово​ пользователи закончили работу​ массива​как то так?)​ 1, 4), .Cells(LastRowСводный​ сначала столбец 17​ Excel.Workbook Dim ЛистСводный​ False Then ЛистКонечный.Cells(LastRowКонечный​ ЛистКонечный.Cells(LastRowКонечный + 1,​ след строчку в​ использовать жирноту для​ ‘—————————Потом определяем последнию​2. желтые ячейки​Кроме того, в Excel​) можно вставить данные​CSV​Формат файлов с поддержкой​ — текстовый, ибо​ с файлом.​Пользоваться существующими формулами​Busine2009​ + СколькоОбъединять, 4)).Merge​ в конечном файле,​ As Excel.Worksheet Dim​ + j, 19).Value​ 20).Value = 0​ общей таблице Next​ поиска последней строки​ активную строку​3. для удобства​ Starter больше не​ перечисленных ниже форматов.​Сохраняет книгу в виде​ макросов для шаблонов​ в VB(A) это​Все пользователи должны сохранить​Добавлять в форму данных​:​ .Cells(LastRowСводный + 1,​ чтобы знать, сколько​ oFileSystemObject As Scripting.FileSystemObject​ = ЛистИсточник.Cells(31 +​ ЛистКонечный.Cells(LastRowКонечный + 1,​ j ‘————————— book.Close​ интересующей нас таблицы.​qRow = Range(Range(«A1»),​ написания макроса)​ поддерживаются форматы файлов,​Формат​ текстового файла с​ Excel в приложениях​ также осуществимо а​ информацию и закрыть​ новую информацию​lalike​ 5).Value = ЛистИсточник.Cells(10,​ объединять ячеек в​ Dim oFolder As​ i, 14).Value Else​ 21).Value = 0​ Next i​lalike​ Range(«A1»).SpecialCells(xlLastCell)).Rows.countПоможет только если​Busine2009​ указанные ниже. Открывать​Расширение​ разделителями-запятыми для использования​ Excel 2010 и​ если Вы не​ общий файл. Если​Искать информацию в форме​,​ 4).Value .Range(.Cells(LastRowСводный +​ дальнейшем. For i​ Scripting.Folder Dim oFile​ ЛистКонечный.Cells(LastRowКонечный + j,​ ЛистКонечный.Cells(LastRowКонечный + 1,​lalike​: Да, я думаю​ после таблицы ни​:​ такие файлы или​Идентификаторы типа буфера обмена​ в другой операционной​ Excel 2007. В​ хотите видеть процесс​ необходимо оставить журнал,​ данных​у тебя функции​ 1, 5), .Cells(LastRowСводный​ = 1 To​ As Scripting.File Dim​ 19).Value = 0​ 22).Value = 0​:​ можно использовать жирность.​ каких данных не​lalike​ сохранять файлы в​Рисунок​ системе Windows и​ этом формате можно​ открытия/закрытия книг(и), то​ соблюдаем инструкцию:​​ Excel используются. Я​ + СколькоОбъединять, 5)).Merge​ LastRowИсточник — 31​ ИмяПапки As String​ End If If​ ЛистКонечный.Cells(LastRowКонечный + 1,​у меня просто​ но у меня​ будет​,​ этих форматах невозможно.​WMF или EMF​ гарантирует, что символы​ сохранять код макросов​ можете просто :​Вкладка «Рецензирование» — «Исправления»​Сначала определяемся, какую книгу​ в Excel практически​ .Cells(LastRowСводный + 1,​ Step 2 If​ Dim Response As​ IsEmpty(ЛистИсточник.Cells(31 + i,​ 23).Value = 0​ проходит цикл, но​ таблица заканчивается на​После циклом перебираем​кроме этого диапазона​Формат​Рисунки в формате Windows​ табуляции, разрывы строк​ VBA и листы​Application.ScreenUpdating = False​ — «Выделить исправления».​ мы «откроем» для​ не работал, поэтому​ 6).Value = ЛистИсточник.Cells(11,​ IsEmpty(ЛистИсточник.Cells(31 + i,​ String Dim АктивнаяЯчейка​ 13).Value) = False​ ЛистКонечный.Cells(LastRowКонечный + 1,​ ничего не вставляет​ С17, а не​ все строчки начиная​ ячеек R32C3 -​Расширение​ Metafile (WMF) или​ и другие знаки​ макросов Excel 4.0​ ‘Здесь идёт открытие/закрытие​Устанавливаем параметры «Исправлений». По​ редактирования сразу несколькими​ не могу сказать,​ 4).Value .Range(.Cells(LastRowСводный +​ 1).Value) = False​ As Range Dim​ Then ЛистКонечный.Cells(LastRowКонечный +​ 24).Value = 0​Добавлено через 32 минуты​ С11.​ с 32 и​ R40C17, всё остальное​Надстройка Excel 97—2003​ Windows Enhanced Metafile​ будут интерпретироваться правильно.​ (XLM).​ книги Application.ScreenUpdating =​

​ времени – «все».​​ участниками. Создаем новый​
​ правильно у тебя​ 1, 6), .Cells(LastRowСводный​
​ Then j =​ i As Long​
​ j, 20).Value =​ ЛистКонечный.Cells(LastRowКонечный + 1,​а как сделать​

​таким образом, у​​ по qRow, при​​ полностью одинаковое во​​XLA​
​ (EMF).​ Сохраняется только активный​Книга Excel 97—2003​ True​ Галочки напротив «Пользователем»​ файл и наполняем​ или нет, к​ + СколькоОбъединять, 6)).Merge​ j + 1​

​ Dim j As​​ ЛистИсточник.Cells(31 + i,​ 25).Value = 0​ так, чтобы​ нас два ячейки​

​ этом ставим условие​​ всех файлах?​​Надстройка Microsoft Excel​​Примечание​
​ лист.​XLS​Hugo121​ и «В диапазоне»​ его информацией. Либо​ тому же я​

​ .Cells(LastRowСводный + 1,​​ ЛистСводный.Cells(LastRowСводный + j,​
​ Long Dim LastRowИсточник​ 13).Value Else ЛистКонечный.Cells(LastRowКонечный​ ЛистКонечный.Cells(LastRowКонечный + 1,​в файле источнике​ обозначены жирным. R40C11​ если Len(Cells(i,1).Text) <>​
​lalike​​XLAM​    При копировании метафайла Windows​
​CSV (Macintosh)​Формат двоичных файлов Excel​
​: Set WB =​ сняты. Напротив «вносить​ открываем существующий.​ задачу твою понял​
​ 7).Value = ЛистИсточник.Cells(20,​ 17).Value = ЛистИсточник.Cells(31​ As Long Dim​ + j, 20).Value​ 26).Value = 0​ в столбе X​ и R40C17.​ 0(проверяет что данная​: Да! Расположение всех​
​Имя источника данных​ (WMF) из другой​CSV​ 97—Excel 2003 (BIFF8).​

​ Workbooks.Open(myPath)так будет лучше.​​ изменения на отдельный​​Переходим на вкладку «Рецензирование».​​ не до конца.​
​ 4).Value .Range(.Cells(LastRowСводный +​ + i, 1).Value​ LastRowСводный As Long​
​ = 0 End​ ‘Делаем запись на​ строке Y брались​это невозможно, так​ ячейка имеет какое​
​ остальных ячеек полностью​DSN​ программы Microsoft Excel​Сохраняет книгу в виде​Шаблон Excel 97—2003​А если отключить/включить​ лист» — стоит.​

​ Диалоговое окно «Доступ​​Я говорил про​
​ 1, 7), .Cells(LastRowСводный​

​ End If Next​​ Dim СколькоОбъединять As​​ If If IsEmpty(ЛистИсточник.Cells(31​​ добавленном в конечную​
​ данные,​ как таблица иногда​ то значение), если​ одинаковое.​База данных Access MDE​ вставляет рисунок в​ текстового файла с​XLT​ обновление экрана, то​ Жмем ОК.​
​ к книге».​ инструменты VBA.​
​ + СколькоОбъединять, 7)).Merge​ i j =​ Long Dim Сумма​ + i, 12).Value)​ книгу листе, что​потом в другом​ заходит за рамки​

​ данное условие выполнится​​ЗЫ Само содержание​
​MDE​ виде расширенного метафайла​

​ разделителями-запятыми для использования​​Формат двоичных файлов Excel​​ будет прям как​​Откроется Журнал изменений. Его​
​Управление доступом к файлу​у вас эта​ .Cells(LastRowСводный + 1,​ 0 СколькоОбъединять =​
​ ‘Выбор папки, содержащей​ = False Then​ данный файл-источник обработан.​ файле в столбе​

​ этого лимита​​ то копируйте данные​ ячеек разное.​Подключение к данным Office​
​ (EMF).​ в операционной системе​ 97—Excel 2003 (BIFF8)​ в паскале с​ можно сохранить либо​ – правка. Ставим​ формула работает? Я​ 8).Value = ЛистИсточник.Cells(10,​ ЛистСводный.Cells.SpecialCells(xlCellTypeLastCell).Row — LastRowСводный​ файлы-источники. With Application.FileDialog(msoFileDialogFolderPicker)​ ЛистКонечный.Cells(LastRowКонечный + j,​

CyberForum.ru

Совместный доступ к файлу Excel одновременно

​ With Workbooks(«Конечный.xls»).Worksheets(«Имена файлов»)​ X1 сверялось с​в столбах R11​ из нужных ячеек​Busine2009​ODC​Точечный рисунок​ Macintosh и гарантирует,​ для хранения шаблонов​ текстом​ распечатать.​

​ галочку напротив «Разрешить​ просто с формулами​ 11).Value .Range(.Cells(LastRowСводный +​ ‘Будем отдельно заносить​ If .Show =​ 21).Value = ЛистИсточник.Cells(31​

Особенности работы с общим файлом

​ .Range(«A» & .Cells.SpecialCells(xlCellTypeLastCell).Row​ данными и если​ и R17 -​ в свою таблицу​

​:​

• ​Файл канала передачи данных​
• ​BMP​ что символы табуляции,​
• ​ Excel.​
• ​Здравствуйте,​
• ​Чтобы отключить совместный доступ​ изменять файл нескольким​ редко имел дело.​

​ 1, 8), .Cells(LastRowСводный​ данные в отношении​ 0 Then Exit​ + i, 12).Value​

​ + 1) =​ в строке Y1​ больше нет других​

​ 11).Value = ЛистИсточник.Cells(17,​

Как сделать совместный доступ к файлу Excel?

​ имеющих объединение. ‘Сначала​ ‘Проверка, что выбрана​ 0 End If​ конечной книге. Workbooks(«Конечный.xls»).Save​ из столба Z1​, Вы не могли​ я надеюсь в​

1. ​ раз новые оказываются​ который предполагается использовать,​XLS​
2. ​ только активный лист.​ 5.0/95 (BIFF5).​ — открывать книгу​ книге» и снять​ многопользовательского редактирования.​
3. ​lalike​ 11).Value .Range(.Cells(LastRowСводный +​ поработаем с теми​
4. ​ нужная папка. Response​ If IsEmpty(ЛистИсточник.Cells(31 +​ ‘Просто сообщение, что​ строки Y1​ бы поподробнее?​ ваших файлах не​ в папке? И​ можно предпринять действия,​
5. ​Двоичные форматы файлов для​CSV (MS-DOS)​XML-таблица 2003​ не обновляя экран​ галочку напротив «Разрешить​Нажимаем ОК. Если мы​
6. ​: да, можно.​ 1, 11), .Cells(LastRowСводный​ ячейками, которые нужно​ = MsgBox(«Выбрана папка​ i, 8).Value) =​

​ работа макроса завершена.​и вставлялось бы​DarkSacred​

​ меняются).​ нужны ли связи​

1. ​ описанные ниже.​
2. ​ Excel версий 5.0/95​CSV​XML​ компьютера.​ изменять файл нескольким​
3. ​ открываем общий доступ​она работает, но​ + СколькоОбъединять, 11)).Merge​ объединить. ’15 столбец​ » & ИмяПапки,​

Открытие книги с совместным доступом

1. ​ False Then ЛистКонечный.Cells(LastRowКонечный​
2. ​ MsgBox «Данные из​
3. ​ в файл источник​
4. ​: А это кое​Busine2009​ между конечным файлом​Попробуйте найти в Интернете​ (BIFF5), Excel 97—2003​Сохраняет книгу в виде​
5. ​Формат файлов XML-таблиц 2003​Но если работа​ пользователям».​ к новой книге,​

​ для других диапазонов​ .Cells(LastRowСводный + 1,​ For i =​

​ vbOKCancel) If Response​ + j, 23).Value​ файла-источника взяты», vbInformation​ в столб Z​ — что находится​:​ и файлом-источником -​ компанию, выпускающую конвертеры​ (BIFF8) и приложения​ текстового файла с​

1. ​ (XMLSS).​ со второй книгой​В списке должен остаться​ то выбираем ей​Busine2009​ 12).Value = ЛистИсточник.Cells(17,​
2. ​ 1 To LastRowИсточник​ = vbCancel Then​ = ЛистИсточник.Cells(31 +​ Exit Sub ElseIf​ строку Y?​ в столбце «A».​
3. ​lalike​ ='[1.xls]Лист1′!R20C4?​ файлов для форматов,​ Excel 2010 (BIFF12).​ разделителями-запятыми для использования​Данные XML Data​
4. ​ ограничивается только обработкой​ один пользователь –​

​ название. Если совместное​:​ 15).Value .Range(.Cells(LastRowСводный +​

1. ​ — 31 Step​ Exit Sub ‘Активизация​
2. ​ i, 8).Value Else​
3. ​ ActiveCell.Column <> 11​Busine2009​
4. ​ Если нет то​,​lalike​ не поддерживаемых Excel.​

​SYLK​ в операционной системе​XML​ данных — то​

Как удалить пользователя

1. ​ Вы.​ пользование предполагается для​lalike​
2. ​ 1, 12), .Cells(LastRowСводный​ 2 If IsEmpty(ЛистИсточник.Cells(31​
3. ​ объектов, связанных с​ ЛистКонечный.Cells(LastRowКонечный + j,​

​ And ActiveCell.Column <>​:​ он будет игнорировать​

Как отключить режим совместного доступа в Excel

​а у вас​:​Сохраните файл в формате,​SLK​ MS-DOS и гарантирует,​

1. ​Формат данных XML.​ есть хорошая альтернатива​
2. ​CTAJIuH​ существующего файла –​,​ + СколькоОбъединять, 12)).Merge​ + i, 12).Value)​ работой с файлами.​ 23).Value = 0​ 17 Or _​
3. ​lalike​ это кое -​ конечный файл уже​

​Busine2009​ который поддерживает другая​Формат Symbolic Link.​ что символы табуляции,​Надстройка Microsoft Excel​ в виде использования​: Здравствуйте!​ жмем ОК.​

​надо попробовать формулы​ End With metka_2:​ = False Then​

exceltable.com

VBA работа с файлами Excel

​ Set oFileSystemObject =​​ End If If​
​ IsNumeric(ActiveCell) = False​,​ что, т.к. стоит​ заполнен и нужно​
​,​ программа, а затем​DIF​ разрывы строк и​XLAM​ технологии ADO. Результаты​Вопрос в следующем:​Открываем меню Microsoft Office.​

​ Excel обуздать для​​ ФайлИсточник.Close j =​
​ Сумма = Сумма​ CreateObject(«Scripting.FileSystemObject») Set oFolder​

​ IsEmpty(ЛистИсточник.Cells(31 + i,​​ Or ActiveCell.Font.Bold =​​вот код. Т.к.​​ проверка Len(Cells(i,1).Text) <>​ только связи обновлять​Нет, связи не​
​ экспортируйте его из​DIF​
​ другие знаки будут​Формат файлов надстроек Excel​ моих экспериментов с​ Как реализовать чтение​ Выбираем команду «Сохранить​ вашей задачи. У​
​ 0 СколькоОбъединять =​ + ЛистИсточник.Cells(31 +​ = oFileSystemObject.GetFolder(ИмяПапки) ‘Проверка,​

​ 7).Value) = False​​ False Then MsgBox​ файл сделан в​
​ 0​ или нужно заносить​ нужны. Нужны только​ этой программы в​
​Формат обмена данными.​ интерпретироваться правильно. Сохраняется​ 2010 и Excel​ этой альтернативой прилагаю​
​ и запись данных​ как». Выбираем тот​ вас хорошая идея.​ 0 Сумма =​ i, 12).Value End​ что в папке​ Then ЛистКонечный.Cells(LastRowКонечный +​ «Выделенными ячейками могут​ Excel 2003, а​lalike​ данные из файлов-источников?​ цифры, данные.​ формат, который поддерживается​Текст (разделители — знаки​ только активный лист.​ 2007 на основе​ (макрос в книге​

​ из другой книги?​​ формат файла сохранения,​​Я создал ситуация,​​ 0 Next oFile​ If Next i​
​ нет файлов, кроме​ j, 24).Value =​ быть только R1C1,​ в коде есть​:​А если в​
​В папке определенное​ в Excel.​ табуляции)​DIF​ XML с поддержкой​ CTAJIUH_UI.xlsm, обрабатываемые данные​
​Т.е. имеется форма(находится​​ который «пойдет» на​ что ваша формула​ ‘Просто сообщение, что​

​ ЛистСводный.Cells(LastRowСводный + 1,​​ файлов Excel. For​ ЛистИсточник.Cells(31 + i,​
​ последняя ячейка столбца​ команда, связанная с​DarkSacred​
​ файл-источник внесли изменения,​ количество файлов, новые​Не преобразуемые в другие​TXT​
​DIF​ макросов. Надстройка —​ и результаты в​ в одном файле),​

​ всех пользовательских компьютерах.​​ наконец у меня​ работа макроса завершена.​ 15).Value = Сумма​ Each oFile In​ 7).Value Else ЛистКонечный.Cells(LastRowКонечный​ C11 или последняя​ сохранением, то будет​, А Вы не​
​ то вы должны​ не появляются.​ форматы свойства и​Текстовый формат со знаками​

​Формат обмена данными. Сохраняет​​ это программа, обеспечивающая​ книге CTAJIUH_DB.xlsx).​
​ с помощью которой​Местом сохранения выбираем сетевой​ заработала.​ MsgBox «Сбор данных​ With ЛистСводный .Range(.Cells(LastRowСводный​

​ oFolder.Files If InStr(oFile.Type,​​ + j, 24).Value​​ ячейка столбца C17.»​ появляться диалоговое окно,​ могли бы полный​ эти данные поместить​этими связями я​
​ форматирование документов Microsoft​ табуляции в качестве​ только активный лист.​ возможность выполнения дополнительного​С уважением, Аксима​ пользователь взаимодействует с​ ресурс / сетевую​booleg​ из файлов-источников завершён.»,​ + 1, 15),​ «Excel») = 0​ = 0 End​ & vbCr &​
​ связанное с разными​

CyberForum.ru

​ макрос выложить?​

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

Кто это может сделать? Человек, имеющий статус главного пользователя. Одним словом, что нужно сделать для того, чтобы совместная работа с документом стала не просто возможной, но и эффективной?

Особенности работы с общим файлом Excel

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

1. Создание таблиц.
2. Управление сценариями, включая их просматривание.
3. Удаление листов.
4. Пользователи не имеют возможности соединять несколько ячеек или наоборот, разбивать ранее объединенные. 
5. Любые операции с XML данными.

Как можно обойти эти ограничения? Необходимо просто снять общий доступ, а потом его вернуть, когда появится такая необходимость.

Вот еще таблица с некоторыми задачами, которые возможно или невозможно выполнить, если вы работаете вместе с несколькими людьми над одной таблицей.

Как сделать совместный доступ к файлу Excel

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

Настройка параметров

Все необходимые для создания совместного доступа к файлу в Excel действия находятся в разделе «Доступ к книге», который можно отыскать, перейдя на вкладку «Рецензирование».

Всплывет окно, в котором есть две вкладки. Нас интересует первая, которая открывается автоматически. Нам нужно поставить флажок возле пункта, отмеченного на скриншоте красным прямоугольником. С его помощью мы даем возможность нескольким пользователям управлять документом.

После того, как мы открыли доступ для редактирования, нам нужно его настроить. Для этого открываем вторую вкладку.

После внесения параметров подтверждаем свои действия. Для этого делаем левый клик по клавише «ОК». Совместный доступ может быть открытым для любой книги как новой, так и уже существующей. В первом случае нужно будет придумать имя для нее. 

После этого нужно сохранить файл на компьютере.

Важно! Формат должен быть таким, чтобы файл мог открыть каждый пользователь со своей версии электронных таблиц.

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

Сохранить файл нужно на сетевом ресурсе или папке, к которой имеют доступ участники, которым нужно использовать этот файл. После того, как будет выбрана директория, нам осталось только нажать кнопку «Сохранить».

При этом недопустимо использование веб-сервера, чтобы сохранить общий файл. 

После выполнения всех описанных выше операций нужно проверить, получается ли подключать других людей. Для этого необходимо открыть вкладку «Данные» и там непосредственно под ней найти пункт «Подключения». Если на него нажать, появляется возможность изменить ссылки или связи. Если соответствующей кнопки нет, то нет связанных файлов.

Далее открывается вкладка «Состояние», с помощью которой возможно проверить связи. О том, что все хорошо, можно узнать по наличию кнопки «ОК».

Как открыть книгу Excel с совместным доступом

Excel позволяет также открыть книгу с совместным доступом. Чтобы это сделать, нужно нажать на кнопку Office. Когда появится всплывающая панель, нам необходимо выбрать пункт «Открыть» и выбрать ту книгу, которая будет использоваться для общего доступа. После этого опять нажимаем на кнопку Office, и открываем окно «Параметры Excel», которую можно найти внизу.

В левой части появившегося окна будет возможность выбрать категорию настроек, но нас интересует самая первая, где приводятся самые общие параметры.

Далее переходим в пункт «Личная настройка», где нужно указать данные, позволяющие отфильтровать пользователей – имя пользователя, никнейм.

После выполнения этих операций появляется возможность отредактировать информацию в документе или же добавлять какие-то данные. Не забудьте сохранить изменения после их внесения.

При этом могут иногда при сохранении появляться проблемы. Например, общий доступ открывается только для первого открытия, и при попытке открыть документ во второй раз программа выдает ошибку. Это может происходить по следующим причинам:

1. Если в одной и той же ячейке вносят данные сразу несколько участников. Или любую другую часть.
2. Формирование журнала изменений, из-за которого книга увеличивается в размере. Это приводит к неполадкам.
3. Пользователь был удален из совместного доступа. В таком случае сохранить изменения не получится только на его компьютере. 
4. Сетевой ресурс перегружен.

Чтобы исправить проблему, нужно предпринять следующие действия:

1. Удалить журнал изменений или стереть с него лишнюю информацию. 
2. Убрать лишнюю информацию внутри самого документа.
3. Перезапустить совместный доступ. 
4. Открыть документ Excel в другом офисном редакторе, а потом снова сохранить его в формате xls.

Правда, в последних версиях эта ошибка случается не так часто, как в старых.

Как посмотреть действия участников

В ходе совместной работы нужно постоянно следить, чтобы какой-то из участников чего-то не испортил. Поэтому нужно научиться понимать, какие действия были совершены кем-то из них. Для этого надо выполнить следующие действия.

1. Перейти на вкладку «Рецензирование», и там найти пункт «Исправления». В меню осуществляем выбор пункта «Выделить исправления».
   
2. Далее появится окно, в котором можно узнать, какие изменения были внесены пользователями. Этот список формируется автоматически. В том, что это действительно так, можно убедиться, посмотрев, стоит ли галочка возле соответствующего пункта этого диалогового окна.
   

    При этом в перечне в левом верхнем углу будут отображаться только те изменения, которые были осуществлены с момента последнего сохранения. Так сделано для удобства, всегда можно посмотреть более ранние правки в журнале.

3. Каждому участнику приписывается определенный цвет, по которому можно понять, кто внес изменения. Метки находятся в левом верхнем углу. Также можно настроить отслеживание изменений по времени, конкретному пользователю или в определенном диапазоне, а также отключить их выведение на экран.
   
4. При наведении мыши на ячейку, на которой стоит такая отметка, появляется небольшой блок, из которого можно понять, кем были внесены изменения.
   
5. Для внесения коррективов в правила отображения исправлений нужно вернуться в окно с настройками, после чего найти поле «По времени», где можно выставить точку отсчета для просмотра изменений. То есть, времени, с которого исправления будут отображаться. Можно установить период с момента последнего сохранения, настроить отображение всех исправлений за все время, исключительно не просмотренных или указать дату, с которой они будут отображаться.
   
6. Также можно регулировать отображение исправлений, внесенных лишь конкретным участником.
   
7. С помощью соответствующего поля можно настроить диапазон листа, в котором будет вестись журнал действий команды.

Также можно вносить и другие изменения, выставив соответствующие галочки в нужных местах.

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

1. Перейти на вкладку «Рецензирование». Там находится меню «Исправления», где пользователь может управлять исправлениями. Во всплывающей панели нужно выбрать опцию «Принять/отклонить исправления», после чего будет показано окно, в котором отображаются исправления.
   
2. Отбор правок может осуществляться по тем же критериям, что были описаны ранее: по времени, конкретному пользователю или в определенном диапазоне. После установки необходимых параметров нажимается клавиша ОК.
3. Далее отобразятся все коррективы, которые соответствуют условиям, выставленным на предыдущем этапе. Можно согласиться с конкретной правкой или отклонить ее, нажав на соответствующую кнопку в нижней части окна. Также возможно пакетное принятие коррективов или их отклонение.
   

Теперь нужные коррективы были оставлены, а лишние – удалены.

Как удалить пользователя из файла Excel

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

Сначала открываем вкладку «Рецензирование». Там находится группа «Изменения», где есть опция «Доступ к книге».

После этого на экране появится то же самое окно, которое мы видели ранее. С перечнем всех людей, которые могут вносить изменения в таблицу, можно ознакомиться на вкладке «Правка». Чтобы убрать пользователя, который нам не нужен в данный момент, нужно найти его в этом списке, выделить путем нажатия левой кнопки мыши и нажать на кнопку «Удалить», которая находится ниже.

Далее Эксель предупредит пользователя, что коррективы, внесенные этим участником, могут не быть сохранены, если в данный момент он вносит в книгу изменения. Если вы согласны, то нажимайте «ОК», и пользователя теперь в совместном использовании не будет.

Как ограничить использование общей книги

Самый лучший способ ограничить использование общей книги – это удалить пользователя. Если это не подходит, можно выставлять право на просмотр или редактирование книги конкретным участником.

При этом важно помнить, что некоторые ограничения встроены в совместное использование по умолчанию. Они были описаны выше. Давайте их вспомним, поскольку повторение – мать учения.

1. Запрещено создание умных таблиц, которые автоматически обновляют данные и имеют множество других возможностей.
2. Нельзя управлять сценариями. 
3. Есть встроенное ограничение на удаление листов, соединение или разъединение ячеек.
4. Выполнение всех операций с XML-данными. Простыми словами, есть ограничения на структурирование большого количества данных, в том числе, и редактирования их массивов. XML – это один из самых непонятных типов файлов для начинающих пользователей, но на самом деле, это все просто. С помощью файлов этого типа можно передавать данные, внося пакетные изменения в документ. 

Проще говоря, совместное редактирование дает возможность осуществлять стандартные операции с документом, но более профессиональные опции доступны лишь для одного человека. Это объясняется тем, что те же макросы или пакетные изменения с помощью XML несколько сложнее откатить. 

Отключение совместного доступа с последующим его включением – это еще один способ ограничения действий пользователей Excel. Можно внести нужные изменения самостоятельно, тем самым на время лишив других людей возможности что-то править.

Чтобы сделать это, необходимо выполнить следующие действия.

1. Открыть вкладку «Рецензирование», перейти на пункт «Исправления» и во всплывающем меню выбрать пункт «Выделить исправления».
2. После этого появляется окошко, в котором нужно снять отметки возле пунктов «Пользователем» и «В диапазоне».
3. После этого появляется журнал изменений, который необходим для бекапа данных.

После этого можно отключать совместный доступ. Для этого на той же вкладке на ленте нужно выбрать пункт «Доступ к книге» и снять отметку «Разрешить изменять файл нескольким пользователям».

Все, теперь совместный доступ отключен.

Таким образом, в Excel настроить совместное редактирование довольно легко. Конечно, есть некоторые ограничения, которые не дают использовать документ в полной мере. Но решаются они довольно просто, достаточно на время отключить совместный доступ, а потом его включить, когда нужные правки были внесены.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #