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

Получить вставку с отчета

13.01.2011, 18:40. Просмотров 1253. Ответов 11
Метки нет (Все метки)

В модуле помещена процедура:
Visual Basic
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
36
37
38
39
40
41
42
43
44
45
Public Sub Query2Excel_2(ByVal sSQL As String, ByVal sFileName As String)
 
Dim lRs As DAO.Recordset
Dim pApp As Excel.Application
Dim pBook As Excel.Workbook
Dim pSheet As Excel.Worksheet
Dim iRows As Long
 
Set pApp = New Excel.Application
pApp.Visible = True
Set pBook = pApp.Workbooks.Open(sFileName)
Set pSheet = pBook.Worksheets(1)
 
Set lRs = CurrentDb.OpenRecordset(sSQL)
lRs.MoveLast
lRs.MoveFirst
 
With pSheet
'Header
iRows = 13
.Cells(iRows, 1).Value = lRs.Fields(0).Name
.Cells(iRows, 3).Value = lRs.Fields(1).Name
.Cells(iRows, 7).Value = lRs.Fields(2).Name
 
'Data
iRows = 14
Do Until lRs.EOF
.Cells(iRows, 1).Value = lRs(0).Value
.Cells(iRows, 3).Value = lRs(1).Value
.Cells(iRows, 7).Value = lRs(2).Value
lRs.MoveNext
iRows = iRows + 1
Loop
 
End With
 
pBook.Save
pApp.Quit
 
Set pSheet = Nothing
Set pBook = Nothing
Set pApp = Nothing
lRs.Close
Set lRs = Nothing
End Sub
В форму помещена процедура:
Visual Basic
1
2
3
Private Sub Выход_Click()
Query2Excel_2 'SELECT [Uchastok],[LICS],[Nasp] FROM [Для выбора видов типов]', 'C:TMPUslugy.xls'
End Sub
Здесь из запроса 'Для выбора видов типов' происходит вставка в поля существующей таблицы 'Uslugy.xls'

Как сделать то же самое, но если это будет не запрос, а отчет.
Все имена останутся теми же.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2011, 18:40
Ответы с готовыми решениями:

Как получить из отчета (в А2000) файл с расширением HTM
Пытался использовать пример из 'Борей', но не получилось. Например есть отчет с именем 'Пример',...

Отчет. Как вывести поле из запроса в название отчета, но не выводить его в теле отчета?
Друзья, привет! Помогите плиз советом.. Задача стоит такая: строю отчет на базе...

пишу программу на С++, и делаю в ней ассемблеровскую вставку. Возможно ли в этой _asm вставке сделать С++ вставку?
Я пишу программу на С++, и делаю в ней ассемблеровскую вставку. Возможно ли в этой _asm вставке...

Получить итоги из отчета СКД
Есть отчет в СКД,где формируются автоматически Общие итоги в столбцах(4 столбца).Можно ли выбрать...

__________________
11
117 / 117 / 10
Регистрация: 12.05.2010
Сообщений: 1,207
16.01.2011, 10:36 2
Не понял ничего...
Понял, что Вы данные запроса 'Для выбора видов типов' пересылаете в Excel. А при чём здесь отчёт? Вы что, не можете создать отчёт на основе запроса 'SELECT [Uchastok],[LICS],[Nasp] FROM [Для выбора видов типов]'?
0
1 / 1 / 0
Регистрация: 09.04.2010
Сообщений: 459
16.01.2011, 21:28  [ТС] 3
Михайло, здравствуйте.

В отчете много своих вычислений, которых в запросе нет.
0
1 / 1 / 0
Регистрация: 09.04.2010
Сообщений: 459
16.01.2011, 21:38  [ТС] 4
Михайло, я не внятно ответил, безусловно у меня будут не только эти поля(или вообще не эти).
Мне надо для образца, так как в примере, чтобы я смог дальше ориентироваться и применить так, как мне надо.
0
117 / 117 / 10
Регистрация: 12.05.2010
Сообщений: 1,207
17.01.2011, 09:52 5
По-прежнему не понял ничего...
Если Вы данные запроса 'Для выбора видов типов' пересылаете в Excel, то при чём здесь отчёт?
0
1 / 1 / 0
Регистрация: 09.04.2010
Сообщений: 459
17.01.2011, 10:17  [ТС] 6
Михайло, здравствуйте.
Отчет построенный на базе запроса, из которого я могу (научился)выполнить вставку с нужной строки и столбца в файл XLS.

Но в отчете производится уйма вычислений, которых нет в запросе.
Поэтому я и задал вопрос, как мне сделать вставку в существующий файл XLS не из запроса, а из отчета, где информации намного больше.
Я написал:
'Как сделать то же самое, но если это будет не запрос, а отчет.
Все имена останутся теми же.', с целью, чтобы консультирующий меня смог объяснить пример с теми же полями, но как будто они в отчете.

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

Благодарю.
0
0 / 0 / 0
Регистрация: 08.02.2010
Сообщений: 345
17.01.2011, 13:35 7
А может эту уйму вычислений проще сделать програмно в Excele?
0
4 / 4 / 0
Регистрация: 19.03.2009
Сообщений: 743
17.01.2011, 15:28 8
Федор ! C отчетом не нужно связываться еще и из-за того, что события отчета (типа того, что у Вас на кнопке - Click) могут происходить несколько раз (там есть такие переменные FormatCount и PrintCount). Вам придется отслеживать это самостоятельно, а Вам это надо ?
0
1 / 1 / 0
Регистрация: 09.04.2010
Сообщений: 459
17.01.2011, 16:49  [ТС] 9
Ириночка, здравствуйте.
В Excele делать эти вычисление нет смысла, их там действительно очень, очень много. Это о льготниках, а если Вам приходилось сталкиваться с льготами для населения, то это абсурд...Я думаю, что и в России и на Украине это одинаково.

Отчеты чудные, но пользователь хотел бы еще все это иметь и в формате XLS. Хотя там уже вариантов премного, но как трактует пользователь, ему понадобится еще кое-что комбинировать с результатами отчета.

Я все это предоставляю пользователю в Excele , с отчета, но в той последовательности полей, какая есть в отчете Access и без подготовленной для этой цели 'щапки'.

Борис, добрый день.
Вы правы, там полявляются новые поля (по группам, подгруппам и прочее), которые надо отслеживать и наверное не всегда надо потакать капризам пользователя.

Просто интересен сам факт, можно так или нет?
Можно с отчета вставлять в готовую форму Excel, как с запроса или нет?

Если я не буду так много задавать вопросов, то кто же будет Вас всех 'шевелить' -

Спасибо Вам всем.
0
0 / 0 / 0
Регистрация: 12.01.2011
Сообщений: 39
17.01.2011, 17:03 10
Посмотрите метод Docmd.OutputTo

The OutputTo method carries out the OutputTo action in Visual Basic. For more information on how the action and its arguments work, see the action topic.

Syntax

DoCmd.OutputTo objecttype[, objectname][, outputformat][, outputfile][, autostart][, templatefile]

The OutputTo method has the following arguments.

Argument Description

objecttype One of the following intrinsic constants:

acOutputDataAccessPage
acOutputForm
acOutputModule
acOutputQuery
acOutputReport
acOutputServerView
acOutputStoredProcedure
acOutputTable

objectname A string expression that's the valid name of an object of the type selected by the objecttype argument. If you want to output the active object, specify the object's type for the objecttype argument and leave this argument blank.

If you run Visual Basic code containing the OutputTo method in a library database, Microsoft Access looks for the object with this name first in the library database, then in the current database.
outputformat One of the following intrinsic constants:

acFormatASP
acFormatDAP
acFormatHTML
acFormatIIS
acFormatRTF
acFormatSNP
acFormatTXT
acFormatXLS

If you leave this argument blank, Microsoft Access prompts you for the output format.
outputfile A string expression that's the full name, including the path, of the file you want to output the object to.

If you leave this argument blank, Microsoft Access prompts you for an output file name.
autostart Use True (-1) to start the appropriate Microsoft Windows-based application immediately, with the file specified by the outputfile argument loaded. Use False (0) if you don't want to start the application. This argument is ignored for Microsoft Internet Information Server (.htx, .idc) files and Microsoft ActiveX Server (*.asp) files.

If you leave this argument blank, the default (False) is assumed.
templatefile A string expression that's the full name, including the path, of the file you want to use as a template for an HTML, HTX, or ASP file.
0
4 / 4 / 0
Регистрация: 19.03.2009
Сообщений: 743
17.01.2011, 17:04 11
Федор, а Вы в порядке упражнения, напишите ф-ю Value_to_Excel()
Напрягите внучку
0
1 / 1 / 0
Регистрация: 09.04.2010
Сообщений: 459
18.01.2011, 21:46  [ТС] 12
NAUG, так я могу и делаю, правда у Вас более расширенный асортимент(возьму на вооружение), но речь идет о вставке с требуемой строки и с требуемого столбца в уже, обязательно, существующую таблицу Excel.

Борис, благодарю за совет -
Я Вам на mail отправил очередную .....

Благодарю всех.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2011, 21:46

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

Получить информацию об элементах выбора отчета
Доброго времени суток, кто поможет такому чайнику как я) #C++ При выборе задачи рассмотрим тип...

1c 8.2 Получить табличный документ из встроенного отчета
Помогите новичку Надо получить табличную часть табеля работников из типовой формы П-5. в ней есть...

Как получить значение реквизита элемента формы Отчета
Народ , Как получить значение реквизита элемента формы Отчета в общем модуле

Передать данные из настроек отчета в поле ввода формы отчета
Всем привет! Подскажите, пожалуйста, вот есть: Внешний отчет, реквизит ДатаНачало с типом Дата...


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

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

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