|
|
|
новичок
участник
Last Login: 25.03.2008 8:22
Сообщ.: 5,
Visits: 45
|
|
Скорее всего подобное на форуме есть, но у меня интернет через мобильник, по этому лопатить все просто не могу себе позволить.
Проблема такая.
Делаю Базу данных в Access, но отчеты по ней нужны в Excel (при чем не стандартный отчет).
Имеем таблицу
| Дата | Номер заготовки | Тип заготовки | Дефект |
Дата - дата осмотра
Номер - номер присваивается при производстве
Тип заготовки - сортамент (размеры)
Дефект - если пустое поле, то годная, если нет, описание и код (по перечню)
Нужно сделать таблицы в Exele нажатием кнопки в форме в Access
Табличка нужна такая:
Столбцы - дата
Строки количество деффектов (по виду)
Типа
| | Дата 1 | Дата 2 | Дата 3 |
| Дефект 1 | | | |
| Дефект 2 | | | |
| Дефект 3 | | | |
Каждый Тип заготовки на своем листе
Скрипты в Access и Excel я написать могу, но
Я не знаю как (и не боюсь в этом сознаться):
Открыть новый документ Excel (сам Excel открывается, но дальше не получается), при чем активным он должен стать после завершения создания отчета).
Вносить данные в этот документ, подразумевается (управление данными в ячейке Exele командой из Access.
В принципе, как выделить данные из базы я знаю
Алгоритм приблизительно такой (знак вопроса, там, где я не знаю, как сделать)
1 Открываем форму для указания месяца и года
2 Открываем Пустую книгу и присваеваем ей имя (год/месяц выборки + дата составления) (?)
3 Запрос к БД - узнаем типы Заготовок в этом месяце
4 Запускаем цикл по каждому типу заготовки
4.1 Создаем лист с именем соответствующим типу заготовки (?)
4.2 Запрос к БД - узнаем Виды дефектов за этот месяц по этому типу заготовки.
4.3 Запускаем цикл по каждому виду дефекта
4.3.1 Создаем в Exele строку с именем дефекта (пустое поле - годная) (?)
4.3.2 Запрос в БД - узнаем даты осмотров (еще не решил делать по всем датам или только по имеющимся)
4.3.3 Цикл по датам
4.3.3.1 Создаем заголовок столбца с датой
4.3.3.2 Запрос в БД - поиск количества записей по дате, дефекту, сорту
4.3.3.3 Присваиваем получившееся значение ячейке. (?)
Принцип понятен. непонятно только, как обращаться к Excel из Access
Я конечно мог бы и сам разобраться, но время жмет.
PS. И еще подскажите верный синтаксис UPDATE в скрипте, вносить данные в таблицу могу, а исправлять не получается.
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "SELECT * FROM [Таблица] "
stSql = stSql & "WHERE [Значение1]=" & A & " AND [Значение2]=" & B
rs.Open stSql, con, 1
При присвоении stSql запроса "Delete" работает а "update" нет.
|
|
|
|
|
новичок
участник
Last Login: 25.03.2008 8:22
Сообщ.: 5,
Visits: 45
|
|
Вроде во все разобрался (нашел ошибку в коде), но появился вопрос с форматированием ячеек.
Частично работает, но многое - нет.
Не обрабатывается:
Выравнивание текста, границы ячеек.
(Код делал в Excel через запись макроса и вставлял (подкорректировав) в свой.
|
|
|
|