ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Команда Excel в Delphi
4 сообщений из 4, страница 1 из 1
Команда Excel в Delphi
    #32074172
Nikolo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolo
Гость
Вопрос такой: я создаю отчет в Excel из Delphi . Создаю новый лист так:

Код: plaintext
1.
FWorkSheet := FExcel.Sheets.Add;
FWorkSheet.Name := 'New';


но он помещается не после текущего листа, а перед ним. Мне нужно его переместить за текущий. Макрос в Excel делает это так:

Код: plaintext
1.
2.
Sheets.Add
Sheets( "Лист1" ).Select
Sheets( "Лист1" ).Move After:=Sheets( 2 )


Подскажите, как в Delphi реализовать команду:

Код: plaintext
Sheets( "Лист1" ).Move After:=Sheets( 2 )


Очень нужно, помогите, пожалуйста...
...
Рейтинг: 0 / 0
29.11.2002, 16:42
| Ответить | Цитировать | Написать  
Команда Excel в Delphi
    #32074179
Фотография ziktuw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziktuw
Участник
Вот рабочий код:

var xl, wb, ws:Variant;
begin
xl:=CreateOleObject('Excel.Application');
xl.Visible:=true;
wb:=xl.Workbooks.Add;
ws:=wb.Worksheets.Add;
ws.Name:='New';
ws.Move(After:=wb.Worksheets['Лист1']);
end;
...
Рейтинг: 0 / 0
29.11.2002, 16:58
| Ответить | Цитировать | Написать  
Команда Excel в Delphi
    #32074195
Nikolo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolo
Гость
Dankov, спасибо, код действительно работает, но если я не знаю как называется последний лист, то можно ли переместить новый лист в конец, используя wb.Sheets.Count?
И еще, у метода Add есть параметры, которые позволяют добавить лист не перед текущим, а после него?

Function Add([Before], [After], [Count], [Type]) As Object

но как именно их передавать не понятно.
...
Рейтинг: 0 / 0
29.11.2002, 17:24
| Ответить | Цитировать | Написать  
Команда Excel в Delphi
    #32074223
Фотография ziktuw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziktuw
Участник
Не знаю. Экспериментируй.
...
Рейтинг: 0 / 0
29.11.2002, 18:06
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Команда Excel в Delphi
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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