Примеры работы с файлами в excel

Перейти к содержанию

Чтение и запись в файл, открытый с помощью оператора Open. Операторы Input, Line Input, Write и функция EOF. Примеры использования в VBA Excel.

Операторы чтения и записи в файл

Оператор Input #

Оператор Input # считывает данные из открытого файла с последовательным доступом и присваивает эти данные переменным.

Оператор Input # используется только с файлами, открытыми в режиме Input или Binary. При прочтении стандартные строковые или числовые значения присваиваются переменным без изменения.

Синтаксис оператора Input #:

Input #Номер_файла, Переменные

Компоненты оператора Input #:

• Номер_файла – обязательный параметр, представляющий из себя номер, присвоенный файлу при открытии с помощью оператора Open.
• Переменные – обязательный параметр, представляющий из себя список переменных, разделенных запятой, которым присваиваются значения, считанные из файла.

Особенности применения оператора Input #:

• Элементы данных в файле должны быть указаны в том же порядке, что и переменные в списке Переменные, и соответствовать им по типу данных. Если переменная числовая, а данные текстовые, этой переменной будет присвоено нулевое значение.
• Если при чтении данных достигнут конец файла, чтение прерывается и возникает ошибка. Для ее предупреждения в коде VBA Excel используется функция EOF.
• Чтобы данные из файла могли быть правильно прочитаны и записаны в переменные с помощью оператора Input #, они должны быть записаны в файл с помощью оператора Write #. Он обеспечивает правильное разделение каждого из полей (элементов) данных.

Оператор Line Input #

Оператор Line Input # считывает одну строку из открытого файла с последовательным доступом и присваивает ее значение строковой переменной.

Оператор Line Input # считывает из файла по одному символу до тех пор, пока не встретится символ возврата каретки (Chr(13)) или последовательность символа возврата каретки и перевода строки (Chr (13) + Chr(10)).

Синтаксис оператора Line Input #:

Line Input #Номер_файла, Переменная

Компоненты оператора Line Input #:

• Номер_файла – обязательный параметр, представляющий из себя номер, присвоенный файлу при открытии с помощью оператора Open.
• Переменная – обязательный параметр, представляющий из себя имя переменной, объявленной как String или Variant, которой присваивается строка, считанная из файла.

Оператор Write #

Оператор Write # записывает данные в файл с последовательным доступом.

Синтаксис оператора Write #:

Write #Номер_файла, [Данные]

Компоненты оператора Write #:

• Номер_файла – обязательный параметр, представляющий из себя номер, присвоенный файлу при открытии с помощью оператора Open.
• Данные – необязательный параметр, представляющий из себя одно или несколько числовых или строковых выражений, разделенных запятой, которые нужно записать в файл.

Особенности применения оператора Write #:

• Данные, записанные с помощью оператора Write #, считываются из файла с помощью оператора Input #.
• Если опустить параметр Данные и добавить запятую после Номер_файла, в файл будет добавлена пустая строка.
• Несколько выражений в списке Данные могут быть разделены точкой с запятой или запятой.
• Числовые данные всегда записываются с точкой в качестве разделителя целой и дробной части.
• Оператор Write # вставляет запятые между элементами и прямые парные кавычки вокруг строк при их записи в файл.
• После записи в файл последнего символа из параметра Данные оператор Write # вставляет символы возврата каретки и перевода строки (Chr (13) + Chr(10)).

Функция EOF

Функция EOF возвращает логическое значение True, когда достигнут конец файла, открытого для последовательного (Input) или произвольного (Random) доступа.

Синтаксис функции EOF:

Номер_файла – это номер, присвоенный файлу при открытии с помощью оператора Open.

Функция EOF используется для предупреждения ошибок, вызываемых попытками выполнить чтение после конца файла. Она возвращает значение False, пока не будет достигнут конец файла.

Примеры чтения и записи в файл

Пример 1
Открытие (или создание, если он не существует) текстового файла для чтения и записи и запись в него одной строки, состоящей из двух текстовых и одного числового значений. Файл с именем myFile1.txt будет создан в той же папке, где расположен файл Excel с кодом VBA.

Sub Test1() Dim ff As Integer ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем (или создаем) файл для чтения и записи Open ThisWorkbook.Path & «myFile1.txt» For Output As ff ‘Записываем в файл одну строку Write #ff, «Дает корова молоко!», _ «Куда идет король?», 25.35847 ‘Закрываем файл Close ff ‘Открываем файл для просмотра ThisWorkbook.FollowHyperlink (ThisWorkbook.Path & «myFile1.txt») End Sub

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

Пример 2
Открытие (или создание, если он не существует) файла без расширения для чтения и записи и запись в него трех строк: двух текстовых и одной в числовом формате. Файл с именем myFile2 будет создан в той же папке, где расположен файл Excel с кодом VBA.

Так как у файла нет расширения, Windows выведет диалоговое окно для выбора открывающей его программы. Выберите любой текстовый редактор или интернет-браузер.

Sub Test2() Dim ff As Integer ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем (или создаем) файл для чтения и записи Open ThisWorkbook.Path & «myFile2» For Output As ff ‘Записываем в файл три строки Write #ff, «Дает корова молоко!» Write #ff, «Куда идет король?» Write #ff, 25.35847 ‘Закрываем файл Close ff ‘Открываем файл для просмотра ThisWorkbook.FollowHyperlink (ThisWorkbook.Path & «myFile2») End Sub

Пример 3
Считываем строку, разделенную на отдельные элементы, из файла myFile1.txt и записываем в три переменные, по типу данных соответствующие элементам.

Sub Test3() Dim ff As Integer, str1 As String, _ str2 As String, num1 As Single ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем файл myFile1.txt для чтения Open ThisWorkbook.Path & «myFile1.txt» For Input As ff ‘Считываем строку из файла и записываем в переменные Input #ff, str1, str2, num1 Close ff ‘Смотрим, что записалось в переменные MsgBox «str1 = « & str1 & vbNewLine _ & «str2 = « & str2 & vbNewLine _ & «num1 = « & num1 End Sub

Попробуйте заменить в этом примере строку Input #ff, str1, str2, num1 сначала на строку Input #ff, str1, затем на строку Line Input #ff, str1, чтобы наглядно увидеть разницу между операторами Input # и Line Input #.

В следующих примерах (4 и 5) замена оператора Input # на Line Input # не приведет ни к каким изменениям, так как данные в строках файла myFile2 не разделены на элементы (поля).

Пример 4
Считываем поочередно три строки из файла myFile2 и записываем в три элемента массива, объявленного как Variant, так как в этот файл ранее были записаны две строки с текстом и одна с числом.

Sub Test4() Dim ff As Integer, a(2) As Variant, i As Byte ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем файл myFile2 для чтения Open ThisWorkbook.Path & «myFile2» For Input As ff ‘Считываем строки из файла и записываем в элементы массива    For i = 0 To 2       Input #ff, a(i)    Next Close ff ‘Смотрим, что записалось в элементы массива MsgBox «a(0) = « & a(0) & vbNewLine _ & «a(1) = « & a(1) & vbNewLine _ & «a(2) = « & a(2) End Sub

Пример 5
Считываем с помощью цикла Do While… Loop все строки из файла myFile2 и записываем построчно в переменную, объявленную как String (число из третьей строки запишется как текст). Для остановки цикла при достижении конца файла используем функцию EOF.

Sub Test5() Dim ff As Integer, a As Variant, b As String ‘Получаем свободный номер для открываемого файла ff = FreeFile ‘Открываем файл myFile2 для чтения Open ThisWorkbook.Path & «myFile2» For Input As ff ‘Считываем строки из файла и записываем в элементы массива    Do While Not EOF(ff)       Input #ff, a       b = b & a & vbNewLine    Loop Close ff ‘Смотрим, что записалось в переменную MsgBox b End Sub

---

Предыдущая часть темы об открытии файла для ввода и вывода информации опубликована в статье: Оператор Open (синтаксис, параметры). Смотрите также связанную статью: Функция FreeFile.

Смотрите, как создавать и открывать текстовые файлы с помощью методов CreateTextFile и OpenTextFile. Чтение файла, запись и добавление информации с помощью объекта TextStream.

---

• Надстройка FillDocuments для MS Excel: общие сведения

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

• 

  Надстройка Parser для Excel — простое и удобное решение для парсинга любых сайтов (интернет-магазинов, соцсетей, площадок объявлений) с выводом данных в таблицу Excel (формата XLS* или CSV), а также скачивания файлов.
  Особенность программы — очень гибкая настройка постобработки полученных данных (множество текстовых функций, всевозможные фильтры, перекодировки, работа с переменными,…

• Надстройка PastePictures для MS Excel: общие сведения

  Предназначение программы: вставка изображений в таблицу Excel, поиск картинок в папке или в Google, экспорт картинок из таблицы в папку.
  Основные функции программы:

  вставка фото из папки (поиск по имени файла)
  вставка картинок по ссылкам из таблицы
  поиск изображений в гугл по данным с листа Excel
  экспорт изображений с листа в файлы…

• 

  Функция FilenamesCollection предназначена для получения списка файлов из папки, с учётом выбранной глубины поиска в подпапках.
  Используется рекурсивный перебор папок, до заданного уровня вложенности.
  В процессе перебора папок, пути у найденным файлам помещаются в коллекцию (объект типа Collection) для последующего перебора.
  К статье прикреплено 2 примера файла с макросами на основе этой…

• Функции GetFileName и GetFilePath по сути аналогичны, и предназначены для вывода диалогового окна выбора файла
  (при этом можно указать стартовую папку для поиска файла, и тип/расширение выбираемого файла)
  Функция GetFilenamesCollection позволяет выборать сразу несколько файлов в одной папке.
  Функция GetFolderPath работает также, только служит для вывода диалогового окна выбора папки.
  Function…

• 

  
  Макрос предназначен для программного создания документов Word на основе шаблона
  (без использования функции слияния в Word)

  В прикреплённом к статье архиве находятся 2 файла:

  шаблон договора в формате Microsoft Word (расширение .dot)

  файл Excel с макросом

  Настройки макроса задаются в коде:
  Const ИмяФайлаШаблона = «шаблон.dot»
  Const КоличествоОбрабатываемыхСтолбцов = 8…

• Данные функции предназначены для работы с текстовыми файлами из VBA Excel.
  Используя эти функции, вы при помощи одной строки кода сможете записать текст из переменной в файл, или наоборот, загрузить содержимое текстового файла в переменную.
  Подразумевается, что текстовые файлы имеют формат ANSI (он же ASCII, он же windows-1251)

  ВНИМАНИЕ: См. также функции чтения и сохранения текста в файл в…

• 

  
  Программа предназначена для формирования (заполнения) договоров купли-продажи.
   
  Исходными данными выступает таблица сделок, и шаблон договора, в который при помощи формул подставляются значения из заданной строки таблицы сделок.
  Для запуска программы достаточно нажать зеленую кнопку — и сразу же начнётся формирование договоров (файлов Excel из одного листа) в автоматически созданной папке…

• 

  Надстройка позволяет экспортировать все изображения с листа Excel в графические файлы.
  Доступен выбор типа создаваемых файлов (поддерживаются форматы JPG, GIF и PNG)
  Кроме того, можно указать имя папки, в которую будут помещены созданные файлы
  (эта папка будет создана автоматически в том же каталоге, где расположен обрабатываемая книга Excel)

  Если нужно сохранять картинки под именами из…

• Как известно, VBA-функция MkDir может создать только папку в существующем каталоге (папке).
   
  Например, код MkDir «C:Папка» отработает корректно в любом случае (создаст указанную папку),
  а код MkDir «C:ПапкаПодпапкаКаталог» выдаст ошибку Run-time error ’76’: Path not found
  (потому что невозможно создать каталог Подпапка в несуществующем ещё каталоге Папка)…

• 
  Макрос предназначен для создания текстовых файлов в кодировке UTF-8.
  Исходными данными является таблица Excel из 12 столбцов.
  Сначала, макрос создаёт папку для будущих текстовых файлов.
  Папка создаётся в том же каталоге, где расположена книга Excel.
  Далее, для каждой строки таблицы, макрос формирует подпапку,
  используя в качестве её названия текст из 7-го столбца таблицы.
  И потом, когда папка…

• К примеру, есть у вас несколько десятков (или сотен) текстовых файлов с подобным содержимым:
  (количество файлов, и количество строк данных в каждом файле не ограничено)
  1c04;1J0-698-151-G;1 комплект тормозных накладок;1J0698151G;1J0698151G;5;1
  1c04;1H0698151A;Тормозные колодки;1H0698151A;1H0698151A;1;1
  1c04;1K0-698-151-B;Тормозные колодки;1K0698151B;1K0698151B;2;1
  А надо из всего этого…

• 

  
  Можно ли прикрепить (вложить) произвольные файлы в обычную книгу Excel?
  А потом извлечь эти файлы в заданную папку, и работать с ними?
  Казалось бы, Excel такого не позволяет. (а если и позволяет, то извлечь вложенные файлы без из запуска — весьма проблематично)
  Но, при помощи макросов, можно реализовать что угодно (и сохранениеизвлечение файлов в том числе)

  Теперь прикрепить к книге Excel…

• 

  
  Надстройка предназначена для облегчения импорта данных в Excel из текстовых файлов с разделителями (например, из CSV)

  Пока во вложении — обычный файл Excel с нужными макросами, надстройку выложу позже

  В надстройке применена функция получения ссылки на заданную пользователем ячейку.
  Основой для надстройки послужила функция загрузки CSV файла в двумерный массив

  Использовать функции…

• 

  Программа предназначена для автоматизации формирования договоров комиссии и купли автотранспортного средства.
  В качестве исходных данных выступают:

  таблица Excel с реквизитами создаваемых документов
  папка с шаблонами договоров (в формате dot)

  В исходной таблице Excel занесены все необходимые исходные данные для заполнения бланков договоров, а также, при помощи пользовательских формул (UDF),…

• 
  Представляю вашему вниманию инструментарий для работы с файлами по FTP

  Как известно, отправить файл на FTP сервер (или загрузить файл с FTP, создать папку на FTP сервере, и т.д.) можно при помощи таких API-функций из библиотеки wininet.dll, как FtpPutFile, FtpGetFile, FtpRenameFile, FtpDeleteFile, FtpRemoveDirectory, FtpCreateDirectory, FtpFindFirstFile и т.д…

• 

  
  Если вам нужно рассылать письма из Excel,
  воспользуйтесь готовым решением в виде надстройки FillDocuments
  Ознакомьтесь с возможностями и способами рассылки писем из Excel,
  а также с инструкцией по настройке рассылки через TheBAT

  Макроc предназначен для автоматизированной рассылки почты из Excel.
  Для рассылки используется почтовая программа TheBAT!
  (подразумевается, что эта программа на…

• 

  
  Программа предназначена для загрузки списка товаров из актов о приеме-передаче основных средств.
  Поддерживаются акты по формам № ОС-3.1 и № ОС-3.3, возможно добавить поддержку актов других форм (в формате Excel).
  При запуске макроса, выводится диалоговое окно выбора папки, после чего, в выбранной папке, производится поиск всех файлов Excel.
  Для каждого из найденных файлов Excel, программа…

• 
  Данный макрос позволяет быстро (одним нажатием кнопки) пересохранить текущий файл Excel в другом формате.

  Например, вы работаете с книгой Excel в формате Excel 97-2003 (расширение XLS), и вам понадобилось преобразовать этот файл в формат «двоичная книга Excel» (расширение XLSB)
  Для чего это нужно? К примеру, файлы в формате XLSB занимают намного меньше места на диске, и не…

• 

  
  Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании.

  Программа позволяет хранить и редактировать базу данных объектов (в виде файлов Excel), просматривать существующие трассы и формировать новые.

   

  Особенность программы — возможность учёта и администрирования узлов связи с нестандартными…

• Function PasteOLEobject(ByVal filename$, ByRef TopLeftCell As Range, _
  Optional ByVal Width%, Optional ByVal Height%) As ShapeRange
  ‘ вставляет на лист объект OLE (из файла filename$)
  ‘ и размещает его в нужном месте, совмещая левый верхний угол с ячейкой TopLeftCell
  ‘ если указаны размеры Width% или Height% — они задаются вствляемому объекту
  On Error…

• 
  Функция TextFile2Array предназначена для преобразования файла CSV в двумерный массив
  Очень часто при работе с текстовыми файлами (и, в частности, с файлами CSV) приходится их загружать на лист Excel, предварительно производя фильтрацию данных в этом файле.
  Чтобы упростить весь процесс — от выбора файла CSV в диалоговом окне, до разбиения загруженного из файла текста в двумерный массив, и была…

• 
  Функция предназначена для разбивки текстового файла на несколько файлов меньшего размера — в каждом из которых будет не более заданнного количества строк

  Разделитель строк (обычно это перевод строки — константа vbNewLine) задаётся в качестве параметра функции Delimiter$

  Создаваемые файлы получают имена вида filename(1).txt, filename(2).txt и т.д.

  Если задан параметр функции…

• При попытке сохранить файл под именем, заданным пользователем, вы можете получить ошибку — если в имени файла (папки) присутствуют запрещённые символы.
  Этого легко избежать, если в процессе формирования имени файла удалить из него недопустимые символы, заменив их символом подчёркивания:
  Function Replace_symbols(ByVal txt As String) As String
  St$ = «~!@/#$%^&*=|`»»…

• 
  Данный макрос позволяет получить список папок, расположенных в выбранной папке (каталоге)
  Если надо получить список папок, имена которых удовлетворяют определённому критерию, используйте маску поиска (параметр Mask$)
  Код функции и пример использования:
  Sub ПоискПодходящихПодпапок()
  ‘ считываем в колекцию coll подходящие полные пути папок
  ‘ (поиск папок с названием, начинающимся на 09…

• 

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

  Особенности надстройки:

  задаваемая пользователем глубина поиска в подпапках

  простановка гиперссылок на листе Excel на найденные файлы

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

  (размер файла, дата создания файла, полный путь)

  изменяемая маска поиска (поиск по части имени файла, по…

• 

  Надстройка предназначена для переименования файлов в заданной папке.
  В качестве исходных данных (исходные и конечные имена файлов) выступает таблица Excel
  В настройках программы задаётся, в каких столбцах таблицы Excel брать имена файлов.
  При необходимости, можно указать префикс и суффикс для имен файлов.
  После запуска надстройки, на ленте Excel на вкладке НАДСТРОЙКИ появляется панель…

• Этот макрос выводит информацию о папке — например, её размер, и количество файлов в ней:
  Sub ПодсчётКоличестваФайловВПапке()
  ‘ задаём папку
  FolderPath = «C:Documents and SettingsAdminРабочий стол»
   
  ‘ получаем характеристики папки
  Set FSO = CreateObject(«Scripting.FileSystemObject»)
  КоличествоФайловВПапкеБезУчётаПодпапок = FSO.GetFolder(FolderPath…

• 

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

  Принцип работы программы:

  надстройка отслеживает изменение выделенной области на активном листе

  если выделена одна ячейка (или несколько ячеек одной строки), то

  производится поиск столбцов, в первой ячейке…

• 
  В некоторых случаях, при запуске файла Excel с макросами (к примеру, надстройки Excel), для обеспечения работы макросов требуется, чтобы был полный доступ к файлу (а не «только чтение»), или же файл был сохранён в заданной папке.

  Полный доступ к файлу необходим, например, для работы автоматического обновления надстройки,
  а постоянный путь может потребоваться, если вы хотите…

• 

  
  Программа предназначена для предпечатной подготовки, и последующего вывода на печать (на виртуальный ПДФ принтер) документов Excel.
   
  Программа позволяет:

  подгонять файлы, выгруженные из 1С, под печать на одной странице

  изменять ориентацию страницы для счетов-фактур

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

  вставлять…

• 

  
  Узнать продолжительность (время) звучания аудиофайла (MP3, WAV и т.д.), или длительность видеофайла (видеоролика) из Excel совсем несложно.
  Используйте функцию ПродолжительностьМедиафайла:
  (функцию можно использовать как в макросах, так и на листе Excel)
  Sub Пример_Использования_Функции_ПродолжительностьМедиафайла()
  Путь = «E:MusicMODERN_TALKING With_a_little_love.mp3″…

• 
  Функция предназначена для получения файлов, извлечённых из архива ZIP.
  Разархивирование выполняется средствами Windows, файлы извлекаются в специально созданную папку в каталоге для временных файлов (C:WINDOWSTemp)
  При запуске макроса папка UNZIPPED FILES сначала удаляется, а потом создаётся заново.
  (таким образом, выполняется удаление файлов, которые могли оказаться в папке при предыдущем…

• Sub ПримерИспользования()
  ‘ задаём полный путь к обрабатываемому файлу
  ПутьКФайлу$ = ThisWorkbook.Path & «» & «Contract.XLS»
   
  Application.ScreenUpdating = False ‘ отключаем обновление экрана
  arr = LoadArrayFromWorkbook(ПутьКФайлу$, «a2», 30) ‘ загружаем данные

  ‘ выводим результаты в окно Immediate
  Debug.Print «…

• 
  Функция LastFile предназначена для поиска самого свежего файла в заданной папке

  (производится поиск файлов по маске, и из найденных файлов выбирается тот, дата последнего изменения которого максимальна)
   
  Пример использования функции:
  Sub ПримерИспользованияФункции_LastFile()
  ‘ Ищем на рабочем столе все файлы TXT, и выводим имя самого нового файла.
  ‘ Просматриваются папки с…

• 
  Функция FileToVBAFunction предназначена для сохранения произвольного файла в виде VBA кода.
  В любой момент вы можете вызвать сгенерированную функцию — она моментально создаст во временной папке необходимый файл, и вернет путь к созданному файлу.

  Основное применение функции — сохранение небольших файлов (в основном, графических — иконок и маленьких картинок) в книге Excel.

  Для того, чтобы…

• Данная функция формирует (создаёт) новую книгу Excel с одним листом (на основании шаблона — листа sh_template), после чего сохраняет новый файл по пути NewFilename$
  Если путь не указан, сохранения нового файла не происходит.
  Function NewWorksheet(ByRef sh_template As Worksheet, Optional ByVal NewFilename$) As Worksheet
  Application.ScreenUpdating = False: On Error Resume Next: Err.Clear…

• 

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

  Доверенность (doc)

  Заявление на…

• Функции WIF и RIF являются обёртками для WinAPI функций WritePrivateProfileString и GetPrivateProfileString, и предназначены для записи и чтения параметров из файлов конфигурации INI.
  INI-файлы — это обычные текстовые файлы, предназначенные для хранения настроек программ.
  Примерный вид структуры INI -файла:

  ; комментарий
  [Section1]
  var1 = значение_1
  var2 = значение_2
  [access]
  changed=02.06…

• 

  
  Макрос предназначен для загрузки в Excel списка подпапок заданной папки
  Для каждой из найденных папок производится поиск всех подпапок, и для каждой подпапки из списка выводится необходимая информация (в частности, количество файлов и подпапок, а также размер папки в байтах)
  Для всех ячеек с названиями папок и подпапок макрос проставляет гиперссылки, позволяющие быстро получить доступ к нужному…

• 

  
  Программа предназначена для объединения однотипных отчётов, сформированных программой 1С
  Обрабатываемые отчёты (файлы Excel) хранятся в одной папке, и имеют структуру, изображенную на скриншоте:

  В итоговой таблице, загруженные строки группируются (объединяются) при совпадении значений в 2 полях — «модель» и «название»,
  при этом количество в объединяемых…

• 

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

  Выбор папки с данными по всем компьютерам…

• 

  
  Программа предназначена для создания отчётов по детализации телефонных звонков (междугородная и международная связь), последующей упаковки созданных детализаций в ZIP архив, и автоматизированной рассылки сформированных писем абонентам.
  При запуске программа ищет в заданной папке исходные файлы с детализацией (упакованные в ZIP файлы DBF), и на основании из этих файлов формирует (по шаблону, с…

• 

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

  Список объектов должен содержать следующую информацию (в отдельных столбцах):

  адрес рекламной конструкции (щита)

  сторона рекламного щита или перетяжки (А, Б, В, и т.п.)

  ссылки на фото и карту рекламной конструкции
  (…

• 
  Вашему вниманию предлагается шестнадцатеричный редактор HexEdit.
  Для чего нужен шестнадцатеричный редактор?
  Для просмотра и корректировки любой информации, содержащейся в файлах.
  Кому это может быть нужно и при каких обстоятельствах?
  Например, тому, кто хочет заглянуть внутрь файла (любой структуры) и что-либо найти (и поправить). НехEdit будет особенно полезен в тех случаях, когда политика…

• Данный код выводит список полных путей файлов, выбранных пользователем в диалоговом окне, отсортированный по дате создания файла:
  Function GetFilenamesCollection(Optional ByVal Title As String = «Выберите файлы для обработки», _
  Optional ByVal InitialPath As String = «c:») As FileDialogSelectedItems
  ‘ функция выводит диалоговое окно выбора…

• 

  Макрос FolderStructure предназначен для вывода в таблице 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

​К коду в​	​ ли несколько диапазонов​	​lalike​
​Busine2009​	​: какой процедурой выплняется​	​CSV​Формат Symbolic Link. Сохраняет​ листы макросов Excel​ Для этого на​ и результаты.​Внимание! Нельзя использовать для​Есть около 1000​использовал на все​ IsEmpty(ЛистИсточник.Cells(LastRowИсточник, 17).Value) =​ (не Excel).», vbCritical​ ЛистКонечный.Cells(LastRowКонечный + j,​
​ C17, то проверьте​ файле Word приложена​	​ выделять и определять​	​: после таблице в​: т.е. только данные​ сборка информации с​Формат с разделителями-запятыми​ только активный лист.​ 4.0 (XLM).​ вкладке​Alex Dark​ сохранения общего файла​
​ файлов с абсолютно​	​ 100%.​	​ False Then ЛистСводный.Cells(LastRowСводный​ Exit Sub End​ 25).Value = ЛистИсточник.Cells(31​
​ форматирование этой ячейки:​	​ пояснительная записка, которую​	​ положение конечных ячеек?​ источнике еще есть​ внутри этих файлов​ эксель файлов?​Форматированный текст (разделители —​Примечание:​Надстройка Excel 97—2003​Файл​: Очень просто.​
​ веб-сервер.​	​ одинаковыми таблицами (отличаются​	​очень удобно и​ + 1, 22).Value​ If Next oFile​ + i, 6).Value​ » & vbCr​ нужно обязательно прочитать​lalike​ кое-что, но я​ меняются что ли?​Комментарий модератора​
​ пробелы)​	​ При сохранении книги в​	​XLA​выберите пункт​
​Макросом открываешь файл,​	​Теперь проверим и обновим​	​ только данные) и​ сэкономило столько времени.​ = ЛистИсточник.Cells(LastRowИсточник, 17).Value​ ‘Собственно заполнение сводного​
​ Else ЛистКонечный.Cells(LastRowКонечный +​	​ & _ «в​	​ и если что-то​: какой процедурой выплняется​
​ могу это удалить.​	​lalike​	​Именуйте темы осмысленно.​RTF​
​ любом текстовом формате​	​Надстройка Excel 97-2003, дополнительная​	​Сохранить как​
​ считываешь данные, закрываешь.​	​ ссылки:​	​ необходимо получить в​я вот думаю,​ Else ЛистСводный.Cells(LastRowСводный +​ файла данными из​ j, 25).Value =​ этой ячейке должно​ не понятно, то​ сборка информации с​Busine2009​:​ Название темы должно​
​RTF. Только из Excel.​	​ теряются все элементы​	​ программа, предназначенная для​. Форматы файлов, доступные​CTAJIuH​Вкладка «Данные». «Подключения».​ сводный файл такую​
​ как бы сделать​	​ 1, 22).Value =​	​ файлов-источников. For Each​ 0 End If​ быть число и​ спросить.​ эксель файлов?​,​Busine2009​ максимально полно отражать​Внедренный объект​ форматирования.​
​ выполнения дополнительного кода.​	​ в диалоговом окне​	​:​Изменить ссылки / изменить​ же таблицу но​ ​ эту програмку универсальной..​​ 0 End If​ oFile In oFolder.Files​

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

​ Next i With​	​ шрифт должен быть​	​Sub m_1() Dim​
​Комментарий модератора​файл-источник не изменяется.​	​,​	​ ее содержание.​GIF, JPG, DOC, XLS​Формат​ Поддерживает использование проектов​
​Сохранение документа​Alex Dark​	​ связи. Если такая​	​ содержащую результат обработки​Busine2009​ With ЛистСводный .Range(.Cells(LastRowСводный​ Set ФайлИсточник =​ ЛистКонечный .Cells(LastRowКонечный +​ жирным.», vbCritical Exit​ ЛистКонечный2 As Excel.Worksheet​Именуйте темы осмысленно.​нужно заносить данные​В одной папке​dzug: Той которую напишите..​
​ или BMP​	​Расширение​	​ VBA.​, зависят от типа​, Видимо что то​ кнопка отсутствует, в​ исходных таблиц (​:​ + 1, 22),​ Workbooks.Open(oFile.Path) Set ЛистИсточник​ 1, 4).Value =​ Sub End If​ Dim Флаг As​
​ Название темы должно​	​ из файлов-источников.​	​ около 200 Excel​lalike​Объекты Microsoft Excel, объекты​Описание​Книга Excel 4.0​ активного листа (обычный​ лагануло… последняя строка​ листе нет связанных​ например сумму значений​lalike​ .Cells(LastRowСводный + СколькоОбъединять,​
​ = ФайлИсточник.Worksheets(1) Set​	​ ЛистИсточник.Cells(8, 4).Value .Range(.Cells(LastRowКонечный​	​ LastRowИсточник = ActiveCell.Row​ Boolean Dim oCell​ максимально полно отражать​Busine2009​ документов. Каждый документ​
​: хм, я здесь​	​ правильно зарегистрированных программ,​	​DBF 3, DBF 4​XLW​ лист, лист диаграммы​ не отправилась…​ файлов.​ соответствующих ячеек) ?​,​ 22)).Merge End With​ ЛистСводный = Workbooks(«Сводный.xls»).Worksheets(1)​ + 1, 4),​ ‘Заполним сначала столбец​
​ As Excel.Range Dim​	​ ее содержание.​	​:​ разный. Я беру​ недавно, может подскажете:​ поддерживающих OLE 2.0​.DBF​Формат файла Excel 4.0,​ или другой тип​Все это дело​Переходим на вкладку «Состояние»,​Совместный доступ в Microsoft​
​в смысле «универсальной»?​	​ ’26 столбец If​	​ LastRowСводный = ЛистСводный.Cells.SpecialCells(xlCellTypeLastCell).Row​ .Cells(LastRowКонечный + СколькоОбъединять,​ 17 в конечном​ ЛистИсточник As Excel.Worksheet​DarkSacred: Вот смотри, только​lalike​ данные из определенных​есть иного .xls​ (OwnerLink), а также​dBase III и IV.​
​ в котором сохраняются​	​ листа).​	​ нужно сделать программно…​ чтобы проверить имеющиеся​
​ Excel дает возможность​	​ Начните изучать потихоньку​	​ IsEmpty(ЛистИсточник.Cells(LastRowИсточник, 11).Value) =​ metka_1: Set АктивнаяЯчейка​

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

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

​ ячеек, но в​	​ файлов,​	​ Picture или другой​
​ Файлы этого формата​	​ только обычные листы,​	​Примечание:​Т.е. на данный​ связи. На работоспособность​ работать с одним​ VBA, я помогу​ False Then ЛистСводный.Cells(LastRowСводный​ = Application.InputBox(«Выберите ячейку:​
​ 1, 5).Value =​	​ сколько объединять ячеек​	​ Excel.Worksheet Dim i​ проверял, если что​т.е. у вас​ некоторых документах диапазон​собираю все в​ формат презентации​ можно открывать в​ листы диаграмм и​ При сохранении файла в​ момент у меня​ связей указывает кнопка​ файлом сразу нескольким​ на первых порах,​ + 1, 26).Value​ R1C1, последнюю ячейку​ ЛистИсточник.Cells(10, 4).Value .Range(.Cells(LastRowКонечный​
​ в дальнейшем. For​	​ As Long Dim​	​ спрашивай​ одноразовая работа что​ определенных ячеек изменен.​ один,​Связанный объект​ Microsoft Excel, но​ макросов. В приложении​ другом формате может​ «физически» открывается файл,​ ОК.​ пользователям. Десять-двадцать человек​ т.к. обладаю только​ = ЛистИсточник.Cells(LastRowИсточник, 11).Value​ » & _​ + 1, 5),​ ​ i = 1​​ j As Long​’Выбираем файлы для​
​ ли: есть папка​	​Из них я​	​беру определенные ячейки,​GIF, JPG, DOC, XLS​ сохранять файлы Microsoft​ Excel 2010 можно​ быть утрачена часть​ а это как​Открываем меню Microsoft Office.​ на разных компьютерах​ неполными базовыми знаниями.​ Else ЛистСводный.Cells(LastRowСводный +​ «столбца C11 или​ .Cells(LastRowКонечный + СколькоОбъединять,​ ​ To LastRowИсточник -​​ Dim LastRowКонечный As​ загрузок nFile =​

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

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

​ Long Dim LastRowИсточник​	​ Application.GetOpenFilename( _ FileFilter:=»xls-файл​	​ Вы заносите нужные​
​ один документ.​	​ некоторых местах меняется.​	​OwnerLink, ObjectLink, Link, Picture​ dBase нельзя.​ этом формате, но​ возможностей.​ ​ меня.​​Выбираем общую книгу.​ данные в один​ этот код в​ 0 End If​ C17.», Type:=8) If​ 1, 6).Value =​
​ If IsEmpty(ЛистИсточник.Cells(31 +​	​ As Long Dim​	​ (*.xls),*.xls», _ Title:=»Выберите​ данные из этих​
​данные меняются внутри​	​названия файлов могу​	​ или другой формат.​Таблица OpenDocument​ сохранить в нем​Чтобы открыть файл, созданный​Можно ли как​
​Когда книга открыта, нажимаем​	​ документ. Где находится​	​ универсальный.​
​ With ЛистСводный .Range(.Cells(LastRowСводный​	​ АктивнаяЯчейка.Address(ReferenceStyle:=xlR1C1) = «R1C1″​	​ ЛистИсточник.Cells(11, 4).Value .Range(.Cells(LastRowКонечный​
​ i, 1).Value) =​ СколькоОбъединять As Long​	​ файлы для загрузки»,​	​ 200-х файлов в​ документа 1.xls и​ менять.​
​Рисованный объект Office​	​ODS​	​ файл Excel нельзя.​
​ в другом формате​ то не открывая​	​ на кнопку Microsoft​	​ определенная информация, работают​
​lalike​	​ + 1, 26),​ Then ЛистСводный.Cells(LastRowСводный +​	​ + 1, 6),​ False Then j​ Dim Сумма ‘Проверка,​ _ MultiSelect:=True) If​ конечный файл и​ других подобных, из​
​пока только занимаюсь​	​EMF​Таблица OpenDocument. Файлы приложения​	​Works 6.0—9.0​ (в более ранней​
​ «физически» отредактировать файл​	​ Office. Переходим на​	​ определенные формулы.​: отлично! огромное спасибо,​
​ .Cells(LastRowСводный + СколькоОбъединять,​	​ 1, 4).Value =​	​ .Cells(LastRowКонечный + СколькоОбъединять,​
​ = j +​	​ что добавлен лист​	​ IsEmpty(nFile) Or Not​ на этом работа​ которых я собираю​ все делаю вручную,​Формат объекта-рисунка Office или​ Excel 2010 можно​XLR​ версии Excel или​Alex Dark​ ​ вкладку «Параметры Excel»​​«Главный пользователь» имеет возможность​ я сейчас читаю​
​ 26)).Merge End With​	​ ЛистИсточник.Cells(8, 4).Value ЛистСводный.Cells(LastRowСводный​	​ 6)).Merge .Cells(LastRowКонечный +​ ​ 1 ЛистКонечный.Cells(LastRowКонечный +​​ в конечную книгу​ IsArray(nFile) Then Exit​ завершена?​ все в один​ но такими темпами​ Picture (EMF).​

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

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

​ 1, 7).Value =​	​ j, 17).Value =​	​ для записи в​
​ Sub ‘выбран ли​	​lalike​	​ документ => 2.xls​ мне не справиться…​
​Текст​	​ который позволяет открывать​ Microsoft Works версий​	​ откройте вкладку​ Телепатически что ли?​
​ меню).​	​ группы, добавлять/удалять участников,​	​ VBA.​ ячейками поработаем. For​
​ = ЛистИсточник.Cells(10, 4).Value​	​ ЛистИсточник.Cells(20, 4).Value .Range(.Cells(LastRowКонечный​	​ ЛистИсточник.Cells(31 + i,​
​ нём имён файлов,​	​ файл для загрузок​	​:​кажется это может​
​Busine2009​	​TXT​	​ их в приложениях​ 6.0—9.0.​

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

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

​ + 1, 7),​	​ 1).Value End If​
​ из которых данные​	​ qFile = UBound(nFile)​
​Sub Main()​	​ пригодиться​
​:​	​Отображаемый текст, текст ПВТ.​
​ электронных таблиц, поддерживающих​	​Примечание:​
​и выберите команду​	​ для нас расшифруйте,​
​ — «Имя пользователя».​	​ Как настроить совместную​

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

​:​ 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​ больше нет других​

​ (строку вы знаете​	​lalike​
​UDL​Рисунки, сохраненные в растровом​	​ разрывы строк и​
​Книга Microsoft Excel 5.0/95​CTAJIuH​	​ к файлу Excel,​
​ пользователям одновременно».​ Т.е. в одну​	​ + СколькоОбъединять, 8)).Merge​ ячеек конечного файла,​
​ Sub ИмяПапки =​ Else ЛистКонечный.Cells(LastRowКонечный +​	​ ActiveWorkbook.Name End With​ оно сошлось, то​
​ ячеек помеченных жирным.​ это переменная цикла​	​,​Если Microsoft Excel не​
​ формате (BMP).​	​ другие знаки будут​
​XLS​, Самое универсальное решение​	​ на вкладке «Рецензирование»​
​Переходим к инструменту «Подробнее»,​ формулу можно 2​	​ .Cells(LastRowСводный + 1,​
​ имеющих и не​ .SelectedItems(1) End With​	​ j, 21).Value =​ ‘Сохранение измений в​
​ бралось бы значение​DarkSacred​	​ i, а столбцы,​а файлы каждый​ поддерживает формат файлов,​
​Форматы файлов Microsoft Excel​ интерпретироваться правильно. Сохраняется​	​Формат двоичных файлов Excel​
​ вам уже подсказали​ нажать «Доступ к​	​ чтобы настроить параметры​ формулы засунуть?​

​ 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

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