powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как из перекрестного запроса создать таблицу?
3 сообщений из 3, страница 1 из 1
Как из перекрестного запроса создать таблицу?
    #32102380
Nonstop
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Проблема следующая (часто встречающаяся):

Руководитель вводит данные (например в Excel) как ему хочется и заставить вводить его по-человечески невозможно. Считает, что лучше чем он, данные представлять никто не умеет. Как правило записывает он их в виде перекрестной таблицы, т.е. в первые несколько столбцов - заголовки строк, в оставшиеся столбцы заголовки столбцов (значения какого-либо параметра), а в ячейках таблицы - значения (как правило не статистически обработанные, а просто для данного пересечения значений строк и столбцов существует только одно значение).
Эти данные потом нужно обрабатывать.
Поэтому появляется задача из данной перекрестной таблицы получить нормальную таблицу, в которой бы присутствовало поле используемое как источник заголовка столбцов, а сами заголовки столбцов, как значения данного поля.
Все бы получилось, но одна загвоздка: не могу получить названия заголовков столбцов (название полей) в качестве значения поля (в запросе).
При этом знаю, что в конструкторе таблицы на вкладке "Подстановка" как-то реализована возможность получения списка названия полей таблицы.
Может какая-то функция есть?
Помогите, пожалуйста, кто знает.

С уважением, Морозов Сергей
...
Рейтинг: 0 / 0
Как из перекрестного запроса создать таблицу?
    #32102390
MixaCh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Похоже, что MySet.Fields(i).Name....

Или я что не так понял?!!?
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Как из перекрестного запроса создать таблицу?
    #39352505
Фотография unclefed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Private Sub Кнопка0_Click()


'Dim obj
' obj = GetObj()

Dim rst As DAO.Recordset
Dim sSql As String
Dim sFileName As String
Dim i As Integer



Set xlApp = CreateObject("Excel.Application.14")
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(1)

sFileName = CurrentProject.Path & "\" & "Документы_FI.xlsx"

Set rst = CurrentDb.OpenRecordset("BKPF_BSEG_2016", , dbOpenTable)
i = 1
xlApp.Visible = True
For Each fld In rst.Fields
' MsgBox fld.Name & " - " & fld.Type
xlWs.Range(xlWs.Cells(1, i), xlWs.Cells(1, i)).Value = fld.Name
i = i + 1
Next




xlWs.Range("A2").CopyFromRecordset rst

sFileName = CurrentProject.Path & "\" & "BKPF_BSEG_2016_" & Format(Date, "dd.mm.yy") & "_" & Format(Time, "hh-mm") & ".xlsx"
xlWs.SaveAs sFileName

End Sub
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как из перекрестного запроса создать таблицу?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]