|
Как из перекрестного запроса создать таблицу?
|
|||
---|---|---|---|
#18+
Проблема следующая (часто встречающаяся): Руководитель вводит данные (например в Excel) как ему хочется и заставить вводить его по-человечески невозможно. Считает, что лучше чем он, данные представлять никто не умеет. Как правило записывает он их в виде перекрестной таблицы, т.е. в первые несколько столбцов - заголовки строк, в оставшиеся столбцы заголовки столбцов (значения какого-либо параметра), а в ячейках таблицы - значения (как правило не статистически обработанные, а просто для данного пересечения значений строк и столбцов существует только одно значение). Эти данные потом нужно обрабатывать. Поэтому появляется задача из данной перекрестной таблицы получить нормальную таблицу, в которой бы присутствовало поле используемое как источник заголовка столбцов, а сами заголовки столбцов, как значения данного поля. Все бы получилось, но одна загвоздка: не могу получить названия заголовков столбцов (название полей) в качестве значения поля (в запросе). При этом знаю, что в конструкторе таблицы на вкладке "Подстановка" как-то реализована возможность получения списка названия полей таблицы. Может какая-то функция есть? Помогите, пожалуйста, кто знает. С уважением, Морозов Сергей ... |
|||
:
Нравится:
Не нравится:
|
|||
06.02.2003, 15:26 |
|
Как из перекрестного запроса создать таблицу?
|
|||
---|---|---|---|
#18+
Похоже, что MySet.Fields(i).Name.... Или я что не так понял?!!? ... |
|||
:
Нравится:
Не нравится:
|
|||
06.02.2003, 15:32 |
|
Как из перекрестного запроса создать таблицу?
|
|||
---|---|---|---|
#18+
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 ... |
|||
:
Нравится:
Не нравится:
|
|||
23.11.2016, 11:34 |
|
|
start [/forum/topic.php?fid=45&msg=39352505&tid=1612952]: |
0ms |
get settings: |
7ms |
get forum list: |
11ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
148ms |
get topic data: |
12ms |
get forum data: |
2ms |
get page messages: |
45ms |
get tp. blocked users: |
2ms |
others: | 11ms |
total: | 246ms |
0 / 0 |