powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / про создание новых листов в экселе
6 сообщений из 6, страница 1 из 1
про создание новых листов в экселе
    #34611135
Anton87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я создаю новые листы копируя второй лист

m.loExcel.ActiveWorkbook.Sheets(2).Copy(null,m.loExcel.ActiveWorkbook.Sheets(m.lnSheetsCount))


у меня вновь созданный вставляется перед ранее созданным...что не удобно так как при распечатке листы лежат наоборот и их неудобно распечатывать...

как сделать чтобы копируемые листы создавались в конец файла???
...
Рейтинг: 0 / 0
про создание новых листов в экселе
    #34611232
Anton87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ну еще можно с помощьюю перемещения листа это решить...есть ли такая команда???
...
Рейтинг: 0 / 0
про создание новых листов в экселе
    #34611389
Fffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Запусти макрорекордер в Excel-e, скопируй и посмотри, что получится.
Вопрос-то, не по FoxPro.
...
Рейтинг: 0 / 0
про создание новых листов в экселе
    #34611560
Anton87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
у меня программа в фоксе работает, значит вопрос по фоксу....ну так что???
...
Рейтинг: 0 / 0
про создание новых листов в экселе
    #34611772
Погодин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот так :

m.oexcel=CREATEOBJECTEX('excel.application','','')
WITH m.oexcel
WITH .workbooks.add
WITH .worksheets
m.maxsheet=.count && количество листов в книге
m.kolsheet=10 && сколько листов вставлять
.add(.null.,.parent.worksheets(m.maxsheet),m.kolsheet)
ENDWITH
ENDWITH
.visible=.t.
ENDWITH
RELEASE m.oexcel
...
Рейтинг: 0 / 0
про создание новых листов в экселе
    #34613915
i__one
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
попробуй так:
op1=Createobject("Excel.Application")
op=op1.workbooks.add
lnSheetsCount = m.op1.ActiveWorkbook.Sheets.count
objExcelSheet=op.Sheets.add(null,m.op1.ActiveWorkbook.Sheets(m.lnSheetsCount),m.lnSheetsCount+1)
objExcelSheet=op.Sheets.move(null,m.op1.ActiveWorkbook.Sheets(m.lnSheetsCount))

да и посмотри здесь:
http://forum.foxclub.ru/read.php?29,273318
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / про создание новых листов в экселе
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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