еще немного про перекрестный запрос и динамические отчеты.

[Умка6542]

Доброго всем времени суток!

Имеется база данных для бухгалтера, необходимо построить динамический отчет в access (то есть отчет в котором переменное количество столбцов) или экспортировать файл в excel, чтобы это выглядело как в файлике "Главная книга".
Я смогла перекрестным запросом "Главная книга" выбрать обороты по месяцам и запросом "ГлавнаяКнигаОстДебКред" определить остатки по дебету и кредиту на начало периода.
И оформила экспорт.

Не могу написать цикл пересчета остатков на конец периода (формулы в прикрепленном файле).

Кто обладает такими знаниями помогите, пожалуйста...

[OlegVE]

Здравствуйте
Может это Вас устроит.
Попробуйте через меню в Excel сделать следующее:
1. Данные -> Импорт внешних данных -> Создать запрос
2. Откроется окошко "Выбор источника данных"
3. Выберите "База данных MS Access"
4. OK
5. И далее всё интуитивно понятно, т.к. долго описывать
6. Отформатируйте в Excel Вашу таблицу и...
7. Пользуйтесь.
До свидания
P.S. Делаю на примере Excel XP (2002).
P.P.S. Что такое

Не могу написать цикл пересчета остатков на конец периода

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

[Умка6542]

OlegVE, спасибо большое за ответ!
но мне важно, чтобы работник ткнул на кнопочку и появился красивый отчет или документ Excel, который распечатывают и кладут в папочку.

а вы не подскажете где можно посмотреть команды форматирования яйчеек при экспорте?

[OlegVE]

Здравствуйте

Сообщение от Умка6542

... не подскажете где можно посмотреть команды форматирования яйчеек при экспорте?...

Импортируйте в готовую форму отчёта (в Excel) данные из MS Access, подформатируйте в Excel подписи - надписи - рамки - добавьте/удалите строки... благо запрос "ГлавнаяКнига" имеет фиксированное количество строк и столбцов. При следующем открытии формы Excel Вы получите последние данные из MS Access в соответствие с Вашими изменениями (новыми/последними данными) в MS Access.
До свидания
P.S. Вы так и не сказали, что означает

Не могу написать цикл пересчета остатков на конец периода

Попробуйте тогда это сделать в Excel без SQL.

[Умка6542]

Сообщение от OlegVE

P.S. Вы так и не сказали, что означает ...

Доброго Вам времени суток, OlegVE!

у меня остаток на конец периода = остаток на конец прошлого месяца-итого-оборот. проблема в том, что во мне есть недостаток знаний по Vba, поэтому я хочу в модуле прописать экспорт всех известных данных из двух запросов и из access сразу навести красоту и прописать необходимые мне формулы в нужные ячейки excel. Тут вся соль в том, что если бы этими отчетами занималась я - то мне проще было бы просто скопировать данные с помощью ctrl+c и ctrl+v, а в екселе уже все доделать руками... НО этот отчет нужен, чтобы избавить от фактора "доделать руками" бухгалтера.
Вот именно поэтому важно, чтобы просто нажать на кнопку, а там открылось окошко с данными, которые сразу отправляются на печать и в конвертик адресату.

И, кстати, запрос не с фиксированным количеством строк и столбцов - я просто облегчила базу совсем до максимума, чтобы просто понять как сделать нормальный экспорт. А на самом деле в программе на главной форме из выпадающего выбирается номер счета и от этого зависит количество и строк и столбцов...

До свидания.
P.s. Спасибо большое за внимание.

P.p.s а Вы все же не подскажете где можно взять какой-нибудь пример форматирования ячеек Excel при экспорте?

[R Dmitry]

P.p.s а Вы все же не подскажете где можно взять какой-нибудь пример форматирования ячеек Excel при экспорте?

вот Вам пример форматирования ячейки в excel
записано рекордером

Sub Макрос1()
'
' Макрос1 Макрос
'

[a1].Select
    Selection.Font.Bold = True
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

[Умка6542]

Спасибо большое, R Dmitry, за помощь!