Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 3
1

Выгрузка в Excel данных, хранящихся в таблицах Access

23.04.2013, 15:06. Просмотров 1070. Ответов 3
Метки нет (Все метки)


День добрый, есть задача организовать выгрузку данных хранящихся в таблицах Access в Excel. Я решил использовать такую конструкцию:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.BitBtn1Click(Sender: TObject);
var
data:string ;
count2:integer;
 
begin
data:='10/25/2012';
try
 
excel := CreateOleObject('Excel.Application');
 
excel.DisplayAlerts := false;
 
excel.WorkBooks.Add;
excel.workbooks[1].worksheets.add;
excel.WorkBooks[1].WorkSheets[1].Name := 'Приход';
excel.WorkBooks[1].WorkSheets[2].Name := 'Акт списания';
excel.WorkBooks[1].WorkSheets[3].Name := 'Продажи';
excel.WorkBooks[1].WorkSheets[4].Name := 'Перемещения';
 
ora_t.SQL.Text:='select * from p where left(dateend,10)=#'+data+'#';
ora_t.Active:=true;
 while not ora_t.Eof do
 begin
 ora_t2.SQL.text:='select * from k where [k].[Входящий номер счета]='+(vartostr(+ora_t.FieldValues['Входящий номер']));
 ora_t2.Active:=true;
 count2:=ora_t2.RecordCount+1;
 
 
 
 ora_t.Next;
   end;
   MyData:=ora_t2.Recordset.GetRows(-1, 1, EmptyParam);
   
excel.WorkBooks[1].WorkSheets[1].Range['A2:I'+vartostr(count2)].Value:=MyData;
Данные выводятся в Эксель, но с одним "но" - ориентируются они там горизонтально, подскажите, пожалуйста, как мне быть. Как заставить выводить данные вертикальным образом?

Должно получится как на приложенном документе на листе "Приход".
0
Вложения
Тип файла: xls Данные для загрузки в 1с(1).xls (59.5 Кб, 12 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2013, 15:06
Ответы с готовыми решениями:

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

Выгрузка данных из таблицы MS Access в MS excel
Добрый день , форумчане. Столкнулся с такой проблемой - имеется база данных, в ней несколько...

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

Выгрузка Запроса Access в Форму Excel
Всем доброго дня. Есть необходимость выбрать данные запросом из базы и вывести их на форму в Excel....

__________________
Помогаю в написании студенческих работ здесь.
3
Модератор
Эксперт MS Access
10023 / 4041 / 650
Регистрация: 07.08.2010
Сообщений: 11,338
Записей в блоге: 3
23.04.2013, 15:36 2
Как заставить выводить данные вертикальным образом?

Должно получится как на приложенном документе на листе "Приход".
я не нашла в примере вертикального образа
0
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 3
24.04.2013, 06:36  [ТС] 3
Ну там структура идёт по столбцам, а то, что получается у меня так это вот:
0
Вложения
Тип файла: xls Книга2.xls (13.5 Кб, 7 просмотров)
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 3
24.04.2013, 06:45  [ТС] 4
Вот здесь более показательный пример той лабуды, которая у меня выходит.
0
Вложения
Тип файла: xls Книга2.xls (13.5 Кб, 8 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2013, 06:45

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

Выгрузка из Explorer в Excel через Access
Добрый день. Давно не работал с Access (лет этак 17, если быть точным). И вот на работе возникла...

Каскадное удаление данных в таблицах (бд Access)
Раньше я думал что если таблицы бд связаны связью один ко многим то после удаления записи в главной...

Выгрузка данных из access
Добрый день! Выгружаю данные из access в excel. Использую copyfromrecordset. Все гуд и все...

Анализ и обобщение данных в электронных таблицах excel
Дан список комитентов комиссионного магазина с указанием наименования сданного на комиссию товара,...


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

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

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