Объединение двух файлов

[Zig-Zag]

Добрый день!
Помогите, пожалуйста, написать макрос, который объединял бы таблицы из двух файлов в один. Я бухгалтер и программирую, мягко говоря, не очень..

В 1 файле таблица с колонками:
Наименование отдела
Таб. номер сотрудника
ФИО

Во 2 файле таблица с колонками:
Таб. номер сотрудника
Сумма, руб.

Нужно получить третий файл:
Наименование отдела
Таб. номер сотрудника
ФИО
Сумма, руб.

И, если во второй таблице встретятся такие таб. номера, которых не найдётся в первой таблице с отделами, вывести эти таб. номера и суммы в отдельный файл. Файлы очень большие (более 4000 строк)

[R Dmitry]

Сообщение от Zig-Zag

Добрый день!
Помогите, пожалуйста, написать макрос, который объединял бы таблицы из двух файлов в один. Я бухгалтер и программирую, мягко говоря, не очень..

В 1 файле таблица с колонками:
Наименование отдела
Таб. номер сотрудника
ФИО

Во 2 файле таблица с колонками:
Таб. номер сотрудника
Сумма, руб.

Нужно получить третий файл:
Наименование отдела
Таб. номер сотрудника
ФИО
Сумма, руб.

И, если во второй таблице встретятся такие таб. номера, которых не найдётся в первой таблице с отделами, вывести эти таб. номера и суммы в отдельный файл. Файлы очень большие (более 4000 строк)

надо пример 1 и 2 файла
что бы все индентично было

[Zig-Zag]

Ой, сейчас

[nilem]

Вот смотрите. Это файл-обработчик, его нужно поместить в одну папку с файлами "табл_1" и "табл_2".
По зеленой кнопке создаются объединенный файл "табл_3.xls" и файл с нераспределенными таб. номерами "табл_4.xls" (все файлы будут в одной папке).
Проверяйте.

[Zig-Zag]

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

Вот смотрите. Это файл-обработчик, его нужно поместить в одну папку с файлами "табл_1" и "табл_2".
По зеленой кнопке создаются объединенный файл "табл_3.xls" и файл с нераспределенными таб. номерами "табл_4.xls" (все файлы будут в одной папке).
Проверяйте.

Спасибо вам огромное!! работает так, как надо!
Единственно странно: выдаёт ошибку "Compile error: variable not defined" и ругается при этом на FileFormat:=xlExcel8. У меня оффис 2003. Я заменила xlExcel8 на код 56, теперь ошибку не выдает. но предлагает задать имя файла при сохранении -т.е. вместо табл_3 и табл_4 сохраняет Книга1 и Книга2

[Zig-Zag]

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


ой, пардон, этот вопрос снимаю, т.к. нашла нужный код)

[nilem]

Сообщение от Zig-Zag

...ругается при этом на FileFormat:=xlExcel8...

Попробуйте заменить на FileFormat:=xlOpenXMLWorkbook (или 51). У меня 2003-го нет, но вроде должно подойти.

Или уж в лоб FileFormat:=ThisWorkbook.FileFormat

[doober]

FileFormat:=xlWorkbookNormal или(-4143)
Так должно пройти
Public Enum XlFileFormat
' Доступные форматы 2003
xlAddIn = &H12
xlCSV = 6
xlCSVMac = &H16
xlCSVMSDOS = &H18
xlCSVWindows = &H17
xlCurrentPlatformText = -4158
xlDBF2 = 7
xlDBF3 = 8
xlDBF4 = 11
xlDIF = 9
xlExcel2 = &H10
xlExcel2FarEast = &H1B
xlExcel3 = &H1D
xlExcel4 = &H21
xlExcel4Workbook = &H23
xlExcel5 = &H27
xlExcel7 = &H27
xlExcel9795 = &H2B
xlHtml = &H2C
xlIntlAddIn = &H1A
xlIntlMacro = &H19
xlSYLK = 2
xlTemplate = &H11
xlTextMac = &H13
xlTextMSDOS = &H15
xlTextPrinter = &H24
xlTextWindows = 20
xlUnicodeText = &H2A
xlWebArchive = &H2D
xlWJ2WD1 = 14
xlWJ3 = 40
xlWJ3FJ3 = &H29
xlWK1 = 5
xlWK1ALL = &H1F
xlWK1FMT = 30
xlWK3 = 15
xlWK3FM3 = &H20
xlWK4 = &H26
xlWKS = 4
xlWorkbookNormal = -4143
xlWorks2FarEast = &H1C
xlWQ1 = &H22
xlXMLSpreadsheet = &H2E
End Enum

[Zig-Zag]

Добрый вечер!
Очень надеюсь на вашу помощь в очередной раз!
Теперь нужно полученные данные вывести не в новый файл, а в уже существующем добавить новые столбцы. Т.е. есть 3 файла, их структура:

1 файл:
Наименование отдела
Таб. номер сотрудника
ФИО

2 файл:
Таб. номер сотрудника
Сумма, руб.

3 файл:
Наименование отдела
Таб.номер сотрудника
квартал
Фиксированное пособие
Размер разовой выплаты

Нужно в 3 файл добавить в середину два столбца -ФИО и Сумма с соответствующими табельным номерам данными из первых двух файлов. В результате должна получиться структура:
Наименование отдела
Таб.номер сотрудника
ФИО
Сумма, руб.
квартал
Фиксированное пособие
Размер разовой выплаты


подскажите, пожалуйста, как можно видоизменить макрос?

[nilem]

Есть вопросы:
Таб. номера в табл3 нужно писать программно или они забиваются вручную?
В табл1 Иванов, Петров и дд не имеют сумм из табл2. Эти фамилии не пишем в табл3 или заносим фамилию без суммы?
В табл2 есть таб. номера, не имеющие совпадений в табл1. Эти номера не пишем в табл3?