Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Экспорт в Excel  [new]
Pulsar_p
Member

Откуда: Потому, что я с севера, что ли...
Сообщений: 1908
Доброго времени суток!

Есть процедура экспорта в Excel

PROCEDURE EXPORTVEXCEL && экспорт в Excel
    PARAMETERS OTKUDAFILE,KUDAFILE,VIVODNAEKRAN
    *OtkudaFile - таблица из которой экспортируем
    *KudaFile - файл Excell, куда экспортируем
    *VivodNaEkran - нужно ли выводить на экран
    SELECT (OTKUDAFILE)
    COPY TO (KUDAFILE) XL5 AS 1251
    LOCAL XLAPP, XLSHEET, LNPER
    XLAPP = GETOBJECT('', 'excel.application')
    XLAPP.VISIBLE= .F.
    XLAPP.WORKBOOKS.ADD(KUDAFILE)
    XLAPP.ACTIVEWINDOW.WINDOWSTATE = 2

    XLAPP.ACTIVEWINDOW.SPLITCOLUMN = 3
    XLAPP.ACTIVEWINDOW.SPLITROW = 1
    XLAPP.ACTIVEWINDOW.FREEZEPANES = .T.
    XLAPP.CELLS.SELECT
    XLAPP.SELECTION.COLUMNS.AUTOFIT
    XLAPP.SELECTION.AUTOFILTER
    XLAPP.DISPLAYALERTS = .F.
    XLAPP.ACTIVEWORKBOOK.SAVEAS(KUDAFILE, 1)
    XLAPP.DISPLAYALERTS = .T.

    XLAPP.VISIBLE= .T.
    IF VIVODNAEKRAN=.F.
        XLAPP.WORKBOOKS.CLOSE
    ENDIF


Подскажите пожалуйста, как мне перед тем как экспортировать данные, вставить в Excel файл заголовок, например
"Отчет от " +DTOC(DATE())
27 фев 15, 10:58    [17319715]     Ответить | Цитировать Сообщить модератору
 Re: Экспорт в Excel  [new]
КонецЦикла
Member

Откуда:
Сообщений: 273
если в самую первую строчку надо вставить текст заголовка, то
XLAPP.Cells(1, 1).Value = "ля-ля-ля"

если надо заголовок в качестве имени файла, то книгу йокселя надо сохранить
XLAPP.ActiveWorkbook.SaveAs("ля-ля-ля")
27 фев 15, 11:17    [17319871]     Ответить | Цитировать Сообщить модератору
 Re: Экспорт в Excel  [new]
Pulsar_p
Member

Откуда: Потому, что я с севера, что ли...
Сообщений: 1908
КонецЦикла, Спасибо, разобрался.
А как поменять ориентацию страницы на ландшафтную?
27 фев 15, 12:40    [17320432]     Ответить | Цитировать Сообщить модератору
 Re: Экспорт в Excel  [new]
Fffffffffffffff
Guest
Как узнать какая команда Word или Excel выполняет нужное действие.
27 фев 15, 12:42    [17320449]     Ответить | Цитировать Сообщить модератору
 Re: Экспорт в Excel  [new]
sg12
Member

Откуда:
Сообщений: 454
Pulsar_p
А как поменять ориентацию страницы на ландшафтную?


Проверьте:
goExcel.ActiveSheet.PageSetup.Orientation = Const && Свойство определяет ориентацию листа

Где Const— константа Excel
xlPortrait 1 Книжная
xlLandscape 2 Альбомная
27 фев 15, 13:51    [17320970]     Ответить | Цитировать Сообщить модератору
 Re: Экспорт в Excel  [new]
Дед Евгений
Member

Откуда: Московская область
Сообщений: 118
Установка ориентации страниц выполняется командой:
loExcel = CREATEOBJECT('Excel.Application')
IF TYPE("loExcel.Application.Version") = "C" AND VAL(loExcel.APPLICATION.VERSION) >= 12
ext = ".xlsx"
ELSE
ext = ".xls"
ENDIF
cFileName = ReportOut+"Отчет_"+CHRTRANC(DTOC(DATE()),".","")+ext
loExcel.WorkBooks.Add()
WITH loExcel.ActiveWorkBook.ActiveSheet.PageSetup
.Orientation = 1 && 1 - вертикальное, 2 - горизонтальное
ENDWITH
*. . . . .
loExcel.DisplayAlerts = .F.
loExcel.ActiveWorkBook.SaveAs(cFileName)
loExcel.Visible = .T.
27 фев 15, 13:51    [17320972]     Ответить | Цитировать Сообщить модератору
 Re: Экспорт в Excel  [new]
Pulsar_p
Member

Откуда: Потому, что я с севера, что ли...
Сообщений: 1908
Fffffffffffffff, с ходу в эту стать не въехал, на досуге разберусь.
sq12 - с Вашим кодом не разобрался.
Дед Евгений, то что надо!

Ребята, ВСЕМ спасибо большое за помощь.
27 фев 15, 14:10    [17321133]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить