Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Не получается вставить лист в Excel / 6 сообщений из 6, страница 1 из 1
26.12.2017, 10:27
    #39575886
svnvlad
svnvlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается вставить лист в Excel
Вот так (по найденной информации в интернете) не получается, выдает ошибку:
Код: pascal
1.
WorkBook.WorkSheets.Add(EmptyParam, SheetActive, EmptyParam, EmptyParam);


[DCC Error] fmReportProcessingVWASummaryU.pas(482): E2003 Undeclared identifier: 'SheetActive'

Получается вот так, но, судя по всему это копирование листа?
Код: pascal
1.
WorkBook.WorkSheets.Item[1].Copy(After:=WorkBook.WorkSheets.Item[1]); // Вставляем лист в excel



Пробую добиться, чтобы работал Add. В экселе макрос выглядит так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Sheets.Add After:=ActiveSheet
End Sub


И что бы это значило?
Пробую написать в Delphi:
Код: pascal
1.
WorkBook.WorkSheets.Add(After:=ActiveSheet);


Так же ругается на ошибку.[DCC Error] fmReportProcessingVWASummaryU.pas(482): E2003 Undeclared identifier: 'ActiveSheet'

Так же вдогонку вопрос: есть у меня в отчете такие строки
Код: pascal
1.
2.
3.
4.
  Workbook.Worksheets[1].Cells[CurrentRow, 2] := IntToStr(Acargo_zone_number);
  ExcelApp.Range[ExcelApp.Cells[CurrentRow, 2], ExcelApp.Cells[CurrentRow, ColCount + 1]].Select;
  ExcelApp.Selection.MergeCells := True; // объединение ячеек заголовка
  ExcelApp.Selection.HorizontalAlignment := 3; // горизонтальное выраванивание заголовка по центру


Как видно, во второй и последующих строках не фигурирует номер листа. А что будет если в первой строке будет Workbook.Worksheets[2]? Объединение ячеек пойдет в первый лист??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2017, 10:52
    #39575910
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается вставить лист в Excel
svnvladE2003 Undeclared identifier: 'ActiveSheet'
Не хочешь сюда добавить нечто вроде WorkBook?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2017, 11:13
    #39575930
svnvlad
svnvlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается вставить лист в Excel
wadmansvnvladE2003 Undeclared identifier: 'ActiveSheet'
Не хочешь сюда добавить нечто вроде WorkBook?
Спасибо, вот так заработало:
Код: pascal
1.
WorkBook.WorkSheets.Add(After:=WorkBook.ActiveSheet);



Только для работы по объединению ячеек на других листах переписал последний код вот таким образом:
Вместо ExcelApp.Selection написал WorkBook.Worksheets[sh].Selection.
Код: pascal
1.
2.
3.
  Workbook.Worksheets[sh].Cells[CurrentRow, 2] := IntToStr(Acargo_zone_number);
  WorkBook.Worksheets[sh].Range[WorkBook.Worksheets[sh].Cells[CurrentRow, 2], WorkBook.Worksheets[sh].Cells[CurrentRow, ColCount + 1]].Select;
  WorkBook.Worksheets[sh].Selection.MergeCells := True; // объединение ячеек заголовка


Стал выдавать ошибку: Exception class EOleError with message 'method 'Selection' not supported by automation object'.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2017, 11:14
    #39575932
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается вставить лист в Excel
svnvladТолько для работы по объединению ячеек на других листах переписал последний код вот таким образом:
Это работает только с текущим листом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2017, 12:42
    #39576022
svnvlad
svnvlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается вставить лист в Excel
wadmansvnvladТолько для работы по объединению ячеек на других листах переписал последний код вот таким образом:
Это работает только с текущим листом.
Как назначить текущий лист?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2017, 12:55
    #39576033
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается вставить лист в Excel
svnvladwadmanпропущено...

Это работает только с текущим листом.
Как назначить текущий лист?
Можно его не менять без нужды. А можно наверное и ActiveSheet что-нибудь присвоить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Не получается вставить лист в Excel / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 485ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2041407]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 178ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 230ms
total:  485ms
x
x
Закрыть


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