ReSQL.ru
     
powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Экспорт в Excel
7 сообщений из 7, страница 1 из 1
Экспорт в Excel
    #38890312
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pulsar_p
Участник
Доброго времени суток!

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

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
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 файл заголовок, например
Код: sql
1.
"Отчет от " +DTOC(DATE())
...
Рейтинг: 0 / 0
27.02.2015, 10:58
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #38890341
КонецЦикла
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КонецЦикла
Гость
если в самую первую строчку надо вставить текст заголовка, то
XLAPP.Cells(1, 1).Value = "ля-ля-ля"

если надо заголовок в качестве имени файла, то книгу йокселя надо сохранить
XLAPP.ActiveWorkbook.SaveAs("ля-ля-ля")
...
Рейтинг: 0 / 0
27.02.2015, 11:17
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #38890474
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pulsar_p
Участник
КонецЦикла, Спасибо, разобрался.
А как поменять ориентацию страницы на ландшафтную?
...
Рейтинг: 0 / 0
27.02.2015, 12:40
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #38890478
Fffffffffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fffffffffffffff
Гость
Как узнать какая команда Word или Excel выполняет нужное действие.
...
Рейтинг: 0 / 0
27.02.2015, 12:42
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #38890582
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
Pulsar_pА как поменять ориентацию страницы на ландшафтную?

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

Где Const— константа Excel
xlPortrait 1 Книжная
xlLandscape 2 Альбомная
...
Рейтинг: 0 / 0
27.02.2015, 13:51
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #38890583
Дед Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дед Евгений
Участник
Установка ориентации страниц выполняется командой:
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.
...
Рейтинг: 0 / 0
27.02.2015, 13:51
| Ответить | Цитировать | Написать  
Экспорт в Excel
    #38890614
Pulsar_p
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pulsar_p
Участник
Fffffffffffffff, с ходу в эту стать не въехал, на досуге разберусь.
sq12 - с Вашим кодом не разобрался.
Дед Евгений, то что надо!

Ребята, ВСЕМ спасибо большое за помощь.
...
Рейтинг: 0 / 0
27.02.2015, 14:10
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Экспорт в Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=26&tid=1582432]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 26ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 10ms
total:  122ms
созд. / загр.: 122ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]