Здравствуйте. Появилась такая задача. Из БД SQL+Access сформировать отчет по проекту и выгрузить его в готовый шаблон Excel Шаблон этого отчета представляет собой книгу из 4-х листов, одним из которых является график по проекту("Объектный график"). Все графики лежат в отдельной книге, из которой и надо перетащить лист с графиком выбранного проекта в отчет. Все данные из БД я выгружаю запросами и пишу в этот шаблон по клику на кнопку формы. В этой форме из БД вывожу номер графика по выбранному проекту - поле
NumSched . Сделал код для копирования графика в отчет:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim report, Schedule As Object""
Set report = CreateObject("Excel.Application")
Set Schedule = CreateObject("Excel.Application")
Set ScheduleWB = report.Workbooks.Open(report.GetOpenFilename(, , "Выберите файл с графиком"))' книга с графиками
Set reportWB = report.Workbooks.Open(report.GetOpenFilename(, , "Выберите шаблон для отчета"))'книга для выгрузки отчета
Set ReportWs = reportWB.Worksheets(1)
Set ReportWsDetail = reportWB.Worksheets(4)
If Me.NumSched <> "" Then 'Вставка графика в отчет
report.DisplayAlerts = False
reportWB.Sheets("Объектный график").Delete 'удаляю предыдущий график из отчета
report.DisplayAlerts = True
ScheduleWB.Sheets(Me.NumSched.Value).Copy before:=reportWB.Sheets(4) 'копирую график в отчет из файла графиков
End If
График мне нужно вставить перед 4-м листом. При выполнении кода старый график из шаблона удаляется, но вот новый не копируется изкниги графиков...что не так делаю? помогите пожалуйста
