Перехід даних із Аccess в Exel

[Рома1715]

Привіт!!! Допоможіть будь ласка вирішити задачку.

Існує таблиця "Військовослужбовці" в Access, в якй є стовбці під назвами:Посада, Військове звання, Прізвище,Ім'я, По батькові, Дата народження Адреса та багато інших. Також існує деяка таблиця "Відомість" в Exel.
Мені необхідно описати кнопку в Exel, при натисканні на яку дані із таблиці "Військовослужбовці" поміщалися в таблицю "Відомість", при чому треба забезпечити перехід даних лише вказаних стовбців, таких як Посада, Військове звання, Прізвище,а дані стовбці Ім'я, По батькові, Дата народження,... не переходили.

Дякую Вам, і надіюся на Вашу ДОПОМОГУ!!!!

[Teslenko_EA]

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

Одним из способов передать табличные данные из MS Access на лист Excel является копирование рекордсета. Для этого обязательно должна быть подключена библиотека Excel в проекте VВA базы данных (меню Tools / References)
В Вашем случае рекордсет (Recordset - набор записей) можно получить из источника записей формы на которой будет размещаться Кнопка. В качестве Источника записей формы должен применяться подобный запрос:
Select [Посада], [Військове звання], [Прізвище] From Військовослужбовці
затем в коде формы, в процедуре обработки нажатия кнопки, разместите подобный код:

Sub Кнопка0_Click
Dim XL As Object, XLS As Object
Set XL = CreateObject("Excel.Application") 'Создание объекта Excel
XL.Workbooks.Open ("C:\Книга1.xls")     'Открытие файла
Set XLT = XL.Worksheets(1)  'Первый лист Excel
    
XLT.Cells.ClearContents
XLT.Range("B2").CopyFromRecordset Me.Recordset ' рекордсет формы в ячейку B2
XL.Application.Visible = True 'îотображение созданного XL
XLT.Activate
...

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

[doober]

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

Посмотрите здесь видеоролик,как создать подключение

[Рома1715]

Благодарю за оказаную помощь. Извиняите за неудобности с украинским языком. ещё раз ЩИРО ДЯКУЮ:-)