Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 17.01.2011
Сообщений: 30
1

Автоматизация в Access97 (выгрузка данных в Excel)

31.07.2011, 12:00. Просмотров 1776. Ответов 4
Метки нет (Все метки)


Мне надо из Access 97 VBA заполнить лист Excel.
Выглядит это так:

Dim ExcelApp As Object, ExcelWorkbook As Object, ExcelSheet As Object
Set ExcelApp = CreateObject('Excel.Application')
ExcelApp.Workbooks.Open 'C:
eestr.xls'
Set ExcelWorkbook = ExcelApp.Workbooks(1)
Set ExcelSheet = ExcelApp.Workbooks(1).Worksheets(1)
With ExcelSheet
?
End With
ExcelApp.Visible = True

Вместо ? надо подставить код. Мне нужно объединение определенных
ячеек, установка границ ячеек для печати в виде таблицы, и
подстановка значений в ячейки.

Пробовал брать макрос из Excel, но в Access не все функции доступны.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.07.2011, 12:00
Ответы с готовыми решениями:

Help! Перенос данных из Excel в Access97
Подскажите, как это можно сделать? Разбираюсь с Access по самоучителю, но этого не нашла. Меня...

Выгрузка данных из БД в excel
Итак есть вывод данных в excel но она заполняется с перовой строчки, а нужно что б началась...

Выгрузка данных в Excel
Здравствуйте! Помогите реализовать выгрузку данных в Excel. Задумка такая. Есть форма, на ней DGV...

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

4
0 / 0 / 0
Регистрация: 08.02.2010
Сообщений: 345
01.08.2011, 14:18 2
Все можно из макроса, только надо явно ссылаться
ExcelSheet.Range
ExcelSheet.Cells
ExcelApp .Selection и т.д.
0
0 / 0 / 0
Регистрация: 17.01.2011
Сообщений: 30
01.08.2011, 18:35  [ТС] 3
Я пробовал - записанный макрос Excel переносил в Access,
не все функции опознавались, константы в Access к тому же другие.
Я нашел выход - слил все данные на 2 лист Excel с помощью
.cells(1,1)='...' и т. д., а потом запускаю макрос Excel командой
ExcellApp.Run 'Макрос1', а в нем уже прописываю действия (воспользовавшись командой записи макроса и слегка его подредактировав).
0
0 / 0 / 0
Регистрация: 11.08.2011
Сообщений: 2
11.08.2011, 11:12 4
я делаю так , InExcel - набор данных которые выводятся в excel. если надо оформление (типа рамочки стиль и проч.) пиши на мыло.

Set xlsCust = CreateObject('Excel.sheet')
Set xlaAppXL9 = xlsCust.Parent.Parent

xlsCust.Sheets('Лист1').Select
xlsCust.Sheets('Лист1').Name = 'ЗАЯВКА'
xlsCust.ActiveSheet.PageSetup.Zoom = 75
xlsCust.ActiveSheet.PageSetup.CenterFooter = 'Страница &P из &N'
xlsCust.ActiveSheet.PageSetup.LeftMargin = 70
xlsCust.ActiveSheet.PageSetup.TopMargin = 30
xlsCust.ActiveSheet.PageSetup.BottomMargin = 20
Set rst = dbsCurrent.OpenRecordset('InExcel')

intRow = Y + 1
intCol = 1

rst.MoveFirst
Do Until rst.EOF
For intCol = 1 To rst.Fields.Count
If (Not IsNull(rst.Fields(intCol - 1))) Then
xlsCust.ActiveSheet.cells(intRow, intCol).Value = rst.Fields(intCol - 1)
xlsCust.ActiveSheet.cells(intRow, intCol).Font.Size = 10
End If

Next intCol

rst.MoveNext
intRow = intRow + 1
Loop
0
0 / 0 / 0
Регистрация: 11.08.2011
Сообщений: 2
11.08.2011, 11:14 5
Да забыл...в конце еще надо

xlsCust.SaveAs (ИмяФайла)
xlsCust.Application.QUIT
Set xlsCust = Nothing
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.08.2011, 11:14

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Выгрузка данных формы в Excel
Здравствуйте! Помогите, пожалуйста, с таким вопросом. У меня есть форма, в которой создано поле со...

Выгрузка данных из Delphi в Excel
Делаю выгрузку данных через процедуру SendtoExcel. При заполнении массива пишу следующий код:...

Выгрузка данных с Firebird в Excel
Возникла проблема с выгрузкой данных в ексель из базы данных на Firebird. Есть таблица Стобец...

Выгрузка данных из Access в Excel
Здравствуйте форумчане! Подскажите в Access есть возможность выгрузить данные в Excel, как у меня в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.