Private Sub Кнопка139_Click()
Dim ExcelApp As Object, ExcelWorkbook As Object, ExcelSheet As Object
Set ExcelApp = CreateObject("Excel.Application")
'ExcelApp.Workbooks.Add
ExcelApp.Workbooks.Open "C:\Ocenka\Ocenka.xls"
Set ExcelWorkbook = ExcelApp.Workbooks(1)
Set ExcelSheet = ExcelApp.Workbooks(1).Worksheets(1)
With ExcelSheet

Здесь надо вставить код, чтобы в ячейки в Excel вставлялись данные из баззы Access'а. Вот что только не перерыл ответа так и не нашел. Были варианты, но они не подходят.


ExcelApp.Visible = True
WorkBook.Close SaveChanges:=False
Set WorkBook = Nothing
AppExcel.Quit
Set AppExcel = Nothing
End Sub

Неужели никто не подскажет. Я вообще не программировал в Access. Програмил в других. А тут по работе надо access-овскую прогу подредактировать.

Не знаю, может тебе уже не нужно, но вот пример:

Пишет Compile Error: Invalid or unqualified reference и ссылается на строчку: .ActiveSheet.Cells(k, i + 1).Value = rstSpis.Fields(i).Value именно на .ActiveSheet

Добавлено @ 05:39 
в чем трабл?

Так код, приведённый Юдифь вставь вместо 

а после Loop не забудь добавить End With

Ну это и дураку понятно, что End With добавить надо  

Добавлено @ 04:30 
Так кто-нибудь подскажет почему ошибка вылазит? Заранее благодарен!

Как то нелогично получается:
строка
".ActiveSheet.Cells(k, i + 1).Value ..."
с учетом with выглядит так:
"ExcelSheet.ActiveSheet.Cells(k, i + 1).Value ...."
т.е. "лист.лист.ячейка"

я бы тоже ругался, т.к.  (помойму) ActiveSheet определен только у Workbook

Итого, нужно так

".Cells(k, i + 1).Value ...."

Это сообщение отредактировал(а) bopoha - 4.2.2007, 15:26

Все равно ругается на эту строку   

Тогда кинь БД с этой функцией и табличкой посмотрим. Никогда с подобной ошибкой не встречался.

http://rapidshare.com/files/15152757/Ocenka.rar.html - Здесь всё. Экспорт в Excel Кнопка 160

Код должен выглядеть так:



Почему не работало:
rstSpis.Fields.Count - количество элементов, а не максимальный индекс! Поэтому элемента с номером rstSpis.Fields.Count нет. Вот и ругалось.

И еще ты забыл переходить на следующую запись: rstSpis.MoveNext.

И еще:
Объяви в начале модуля директиву Option Explicit. Она требует явного описание всех переменных. 
rstSpis нигде не объявлена. Чуть ошибешся в имени и можешь очень долго искать ошибку.

По поводу отладки:
Очень удобно пользоваться Immediate Window (Ctrl + G). Там в режиме отладки можно проверять различные выражения на работоспосоность.
Например:
?ExcelSheet.Cells(k, i + 1).Value - это заработало


?rstSpis.Fields(i).Value - это нет, значит ошибка тут!


Обработка полей, так удобней - не ошибешся:



ЗЫ: Тяжело было скачивать с рапиды. Целый день парился. В след раз просто прикрепляй к сообщению файлик.

Спасибо! Большое! Заработало!  С меня бутылка   
Теперь нужно, чтобы этот отчет формировался по заданному месяцу и году. Можно ли как нибудь сделать это через запрос или без него? Запрос есть: Format([Принадлежность];"mm.yyyy") С помощью него формируется отчет Access'овский. Как это реализовать в коде для Excel? Заранее благодарю

Цель: Вывести в заголовок Экселевского документа название отделения из базы Access.
Что получилось: В Excel выгрузить получилось.
Не получилось: Выбирать отделение в форме "Настройка" приходится два раза. В файле, который я выложил, т.е. в самой форме "настройка", только одно выпадающее меню. При выборе отделения (используется таблица Подразделения), в таблицу "Локальная настройка" заносится только kod, а столбец Name остается пустым. Создаю второе выпадающее меню и таблицу "Отделение". Теперь заносится и название, но в таблицу "Локальная настройка" и "Отделение" (созданая уже мною дополнительно). Но теперь приходится выбирать и в первом меню и во втором одно и то же отделение, что конечным пользователям будет неудобно. Как все сделать, используя одно меню?  Что я только не делал ничего не получается. А ведь по любому дело в какой-то мелочи.
Ниже привел код.
Для выпадающего меню 1:
В конструкторе -> Данные -> Источник строк: SELECT Подразделения.kod, Подразделения.Name FROM Подразделения ORDER BY [kod];
Данные: kod
Тип источника строк: Таблица или запрос
Для выпадающего меню 2:
В конструкторе -> Данные -> Источник строк: SELECT Подразделения.Name FROM Подразделения ORDER BY [Name];
Данные: Name
Тип источника строк: Таблица или запрос
Код нажатия кнопки в форме "Настройка": 
CurrentDb.TableDefs("Оценка").Fields("Код филиала").DefaultValue = [Forms]![Настройка]![ПолеСоСписком0]
CurrentDb.TableDefs("Отделение").Fields("Name").DefaultValue = [Forms]![Настройка]![ПолеСоСписком7]

Я не понял проблемы! Необходимо формировать запрос или на основании хранимого запроса с параметрами открывать Recordset и в путь...

Добавлено @ 01:14 


Брррр... ничего не понятно... но вобщем начнемс.

1. Хочешь, чтобы ты разобрался потом и тебя поняли? ПолеСоСписком0 и ПолеСоСписком7 не понятно про что. Обзывай как, напрмер, поля данных с префиксом... хоть понятней будет

Это же относится к меню 1 и меню 2.

2. Я так понял задачу: необходимо записать значение в поле, на основании выбранного значения из поля со списком. Решается это так:



Делается это на событии "посел обновления" поля  P_Source.

На основании хранимого запроса.


Да, вы правильно поняли задачу. На всякий случай прикрепил файлик программы с моими меню 1 и 2. Я вообще не программирую в Accesse, но по работе приходится. Желательно, чтобы записывалось в таблицу "Локальная настройка" или в отдельную таблицу. И вообще не пойму каким образом данные (в колонку kod) заносятся в таблицу "Локальная настройка"? Может я чего-то не туда смотрю или упускаю?


Это сообщение отредактировал(а) shurrik - 12.7.2007, 09:22

Вторая часть архива

Добавлено @ 08:25 

Можно вот с этого места подробнее? 

Это сообщение отредактировал(а) shurrik - 12.7.2007, 09:22

Не удержался и переименовал поля:
ПолеСоСписком0 - P_Podrazdeleine
ПолеСоСписком7 - P_Shapka

Вобщем необходимо добавить событие для поля P_Podrazdeleine "После обновления".
Код получился такой:

Что он делает: присваивает значение 2-й колонки из выбранной строчки в поле P_Podrazdeleine полю со списком P_Shapka,  а отсюда значение попадает прямо в таблицу. 

Спасибо! Пошло. А как сформировать отчет в Excel за выбраный период с помощью запроса? (Я уже спрашивал раньше :-)) А есть какие нибудь статьи по экспорту в Excel? (например, закрашивание ячеек и т.п.) Можешь ссылки кинуть?

Есть какие-нибудь идею по предыдущему сообщению?

Товарищи программисты, неужели нету никаких мыслей? Подскажите   

Есть, вроде. я код на форуме выкладвывал, поищи. Или в ya.ru и google.com.

Можешь ключевые слова подсказать? А то я везде искал и ничего не нашел