IAdhocReportExporterExportToFile(FileName: String; FormatTag: String);
FileName. Наименование файла, в который будет произведен экспорт.
FormatTag. Формат файла, в который будет произведен экспорт. В зависимости от экспортируемого объекта, возможны различные форматы экспорта.
Метод ExportToFile осуществляет экспорт объекта в файл указанного формата.
Описание особенностей экспорта определенных типов объектов представлено в следующих разделах:
Карты и диаграммы, содержащиеся в аналитической панели, экспортируются в виде изображений.
Доступны следующие форматы экспорта аналитических панелей:
Книга Excel (*.xls);
Документ PDF (*.pdf);
Документ в формате RTF (*.rtf);
Веб-страница, архив в одном файле (*.mht);
Файл в формате EMF (*.emf);
Презентация PowerPoint (*.ppxt).
Для выполнения примера предполагается наличие в репозитории аналитической панели с идентификатором «ADHOC», содержащей блок с идентификатором «IQY1DKCFA3U5BTQP».
Добавьте ссылки на системные сборки «Metabase», «AdHoc».
Sub UserProc;
Var
mb: IMetabase;
Rep: IAdhocReport;
Ex: IAdhocReportExporter;
Begin
mb := MetabaseClass.Active;
// Получаем аналитическую панель
Rep := mb.ItemById("ADHOC").Bind As IAdhocReport;
// Создаем объект экспорта
Ex := New AdhocReportExporter.Create;
// Задаем экспортируемую панель
Ex.AdhocReport := Rep;
// Задаем экспортируемый блок
Ex.DataSources := "IQY1DKCFA3U5BTQP";
// Выполняем экспорт
Ex.ExportToFile("C:\Dashboard.xls", "XLS");
End Sub UserProc;
После выполнения примера блок с идентификатором «IQY1DKCFA3U5BTQP» будет экспортирован в файл «C:\Dashboard.xls».
Экспорт рабочего пространства возможен в следующие форматы:
bmp;
png;
jpg;
gif;
tiff.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
view : IWxView;
Exp: IWxViewExporter;
Begin
view := ws.CreateView;
Exp := New WxViewExporter.Create;
Exp.WxView := view;
Exp.ExportToFile("C:\РП.gif","gif");
End Sub UserProc;
После выполнения примера рабочее пространство будет экспортировано в файл «РП.gif».
Экспорт диаграммы возможен в следующие форматы:
jpg;
bmp;
png;
tiff;
gif;
html;
xaml.
В рассматриваемом примере предполагается существование объекта Chart типа IChart и компонент UiChart.
Sub User;
Var
Chart : IChart;
Exp: IChartExporter;
Begin
Chart := UiChart1.Chart;
Exp := New ChartExporter.Create;
Exp.Chart := Chart;
Exp.Scale := 0.5;
Exp.ExportToFile("C:\Диаграмма.jpg","jpg");
End Sub User;
После выполнения примера диаграмма будет экспортирована в файл, указанного формата.
Экспорт трехмерной сцены возможен в следующие форматы:
jpg;
bmp;
png;
tiff;
gif;
html.
Экспорт экспресс-отчета возможен в следующие форматы:
mht;
html;
pdf;
xls;
xlsx;
rtf;
emf;
pptx.
Примечание. Если необходимо осуществить экспорт нескольких отчетов в один файл, то вместе с методом ExportToFile следует использовать методы IExAnalyzerExporter.StartBatchCommand и IExAnalyzerExporter.FinishBatchCommand.
В рассматриваемом примере предполагается существование объекта Analazer типа IEaxAnalyzer.
Sub UserProc;
Var
Analazer: IEaxAnalyzer;
Exp: IExAnalyzerExporter;
Begin
exp := New ExAnalyzerExporter.Create;
exp.ExAnalyzer := Analazer;
exp.ExportToFile("C:\Analazer.xls", "XLS");
End Sub UserProc;
В результате выполнения примера экспресс-отчет будет экспортирован в файл заданного формата.
Экспорт карт возможен в следующие форматы:
jpg;
bmp;
png;
tiff;
gif;
html;
xaml.
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
Sub UserProc;
Var
Report : IPrxReport;
TabObj: ITabObject;
exp: MapExporter;
Map: IMap;
Begin
TabObj := (Report.Sheets.Item(0) As IPrxTable).TabSheet.Objects.Item(0);
Map := TabObj.Extension As IMap;
exp := New MapExporter.Create;
exp.Map := Map;
exp.PixelHeight := 300;
exp.PixelWidth := 500;
exp.Scale := 0.5;
exp.ExportToFile("d:\map.jpg", "jpg");
End Sub UserProc;
После выполнения примера карта будет экспортирована в файл указанного формата (jpg).
Экспорт регламентного отчета возможен в следующие форматы:
xlsx;
xls;
pdf;
rtf;
ppxt;
html;
mht;
ods;
emf;
png. Для корректного экспорта регламентного отчета в формат png определите диапазон экспортируемых листов.
Если необходимо осуществить экспорт нескольких отчетов в один файл, то вместе с методом ExportToFile следует использовать методы IExAnalyzerExporter.StartBatchCommand и IExAnalyzerExporter.FinishBatchCommand.
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
Добавьте ссылки на системные сборки Metabase, Report
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
Exp: IPrxReportExporter;
Begin
MB := MetabaseClass.Active;
Exp := New PrxReportExporter.Create;
Exp.Report := Report;
Exp.ExportSheetTitles := True;
Exp.ExportRange := "4:0";
Exp.ExportToFile("C:\" + Report.Name + ".png", "png");
End Sub UserProc;
После выполнения примера регламентный отчет будет экспортирован в файл в формате PNG. В результирующем файле будут отражены наименования листов.
Экспорт значков таблицы возможен в следующие форматы:
png;
jpg;
bmp;
gif;
tiff.
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport, на листе которого расположены значки, например:
Sub UserProc;
Var
Report: IPrxReport;
Exp: ITabIconExporter;
Begin
Exp := New TabIconExporter.Create;
Exp.TabSheet := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
Exp.IconIndex := 0;
Exp.ExportToFile("C:\Icon1.bmp","bmp");
End Sub UserProc;
После выполнения примера первый значок листа будет экспортирован в файл заданного формата.
Экспорт таблицы возможен в следующие форматы:
gif;
jpg;
bmp;
gif;
tiff;
xaml (только для диаграмм).
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
Sub UserProc;
Var
Report: IPrxReport;
Exp: ITabObjectExporter;
Tab: ITabSheet;
Obj: ITabObject;
Begin
Tab := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
Obj := Tab.Objects.Item(0);
Exp := New TabObjectExporter.Create;
Exp.Object := Obj;
Exp.ExportToFile("C:\Obj.gif","gif");
End Sub UserProc;
После выполнения примера объект листа регламентного отчета будет экспортирован в файл заданного формата.
Экспорт листа регламентного отчета возможен в следующие форматы:
html;
mht;
pdf;
xls;
xlsx;
rtf;
ods;
emf;
pptx.
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
Sub UserProc;
Var
Report: IPrxReport;
Tab: ITabSheet;
Exp: ITabSheetExporter;
Begin
Tab := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
Exp := New TabSheetExporter.Create;
Exp.TabSheet := Tab;
Exp.ExportObjects := False;
Exp.ExportToFile("c:\Отчет1.xls", "XLS");
End Sub UserProc;
После выполнения примера лист регламентного отчета будет экспортирован в файл формата "XLS". Объекты, содержащиеся на листе таблицы, экспортированы не будут.
См. также: