Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / небольшой вопросик про шаблон / 9 сообщений из 9, страница 1 из 1
24.05.2007, 17:41
    #34549363
Anton87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
небольшой вопросик про шаблон
подскажите пожайлуста, как создать файл exelя по подобию шаблона и туда скопирнуть строки из таблицы, и еще как написать поля в самом шаблоне.
...
Рейтинг: 0 / 0
25.05.2007, 11:32
    #34550706
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
небольшой вопросик про шаблон
Я делаю так создаю ексель таблицу (шаблон) с уже прописаными именами полей, нужной ширины
размер шрифта и т.д.
затем делаю так:

* Создаем объект Excel
LOCAL loExcel as Excel.Application
loExcel=CREATEOBJECT('Excel.Application')

*Копирую шаблон
COPY FILE HOMEPATH+"Docs\shablon.xls" TO HOMEPATH+"Docs\copy.xls"

*ОТКРЫВАЕМ ФАЙЛИК
m.loexcel.Workbooks.Open (HOMEPATH+"Docs\copy.xls")

* Создаем ссылку на новый лист в рабочей книге
LOCAL loSheet as Excel.Worksheet
loSheet = m.loexcel.ActiveSheet&&m.loBook.Sheets(1)

* затем по циклу добовляем данные в таблицу, где Н-шаг цыкла
m.loSheet.Cells(H,1).Value = имя поля
m.loSheet.Cells(H,2).Value = имя поля

* выводим готовую ексель таблицу
loExcel.Visible= .T.

Я делю так вроде все устраивает, есть несколько шаблонов просто вставляю данные из таблицы и все!!!
...
Рейтинг: 0 / 0
04.06.2007, 13:52
    #34572034
Anton87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
небольшой вопросик про шаблон
а мне еще вот что не понятно...

вот у меня есть екселевский шаблон из 2-х листов... как сделать так чтобы допустим 60 строк из таблицы вставились в эти 2 листа, но а если строки в таблице остались то создать третий лист(он копия второго) и вставить их туда....
...
Рейтинг: 0 / 0
04.06.2007, 14:15
    #34572140
Anton87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
небольшой вопросик про шаблон
то есть все вроде получается, только вот как сделать копию листа в экселе и туда записывать данные???
...
Рейтинг: 0 / 0
05.06.2007, 05:54
    #34573866
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
небольшой вопросик про шаблон
тут я не подскажу я с один листом работал
...
Рейтинг: 0 / 0
05.06.2007, 05:57
    #34573867
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
небольшой вопросик про шаблон
может быть так же сделать заранее шаболны на листах и просто делсть ссылки наних

* Создаем ссылку на новый лист в рабочей книге
LOCAL loSheet as Excel.Worksheet
loSheet = m.loexcel.ActiveSheet&&m.loBook.Sheets(1)

я думаю вот это как раз номер листа Sheets(1) поробуй так Sheets(2)
...
Рейтинг: 0 / 0
05.06.2007, 06:58
    #34573891
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
небольшой вопросик про шаблон
Anton87то есть все вроде получается, только вот как сделать копию листа в экселе и туда записывать данные???Создай макрос в Excel-е, который:
1. создает новый лист
2. копирует шапку отчета с первого листа
затем посмотри код этого макроса и перепеши его в стиле VFP (это не трудно см. Перевод макроса Excel в синтаксис FoxPro ). Я так всегда делаю.
...
Рейтинг: 0 / 0
05.06.2007, 15:59
    #34575501
Anton87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
небольшой вопросик про шаблон
спасибо большое со всем разлбрался !!! поиск рулит...
...
Рейтинг: 0 / 0
05.06.2007, 16:05
    #34575523
Anton87
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
небольшой вопросик про шаблон
а вот еще,

как удалить экселевский лист?

когда я копирую лист то он вставляется перед предыдущим как сделать чтобы он вставлялся последним?
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / небольшой вопросик про шаблон / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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