Переключаться между листами Excel

@artyoms · Регистрация: 28.10.2012

Author24 — интернет-сервис помощи студентам

Как можно через делфи переключаться между листами в открытом Ексель ?
Т.е. проводятся какие то вычисления, и допустим итог этих вычислений равен 6, и соответственно нужно будет переключиться на лист с именем 6. (он уже будет создан, просто нужно на него переключиться)

@RefSol · 31.12.2014, 17:20

artyoms, лучше это сделать через макросы на VB Excel

@droider · 31.12.2014, 17:37

Сообщение от artyoms

Как можно через делфи переключаться между листами в открытом Ексель ?

Delphi

1	ExcelApp.ActiveWorkBook.Sheets.Item[i].Activate;

i-номер листа.

@artyoms · 31.12.2014, 18:08 **[ТС]**

нет, ексель находится не внутри делфи, а отдельно запущенным приложением, чужим окном. В этом и задача.

@droider · 31.12.2014, 18:32

artyoms, тогда не создавайте новую книгу, а подключайтесь к активному экземпляру (открытой книге) Excel:

Delphi

var
  ExcelApp : OLEVariant;
...
ExcelApp :=GetActiveOleObject('Excel.Application');
...

Остальное по аналогии.

@artyoms · 31.12.2014, 19:48 **[ТС]**

droider, всё отлично работает, разобрался, большое спасибо и с наступающим Новым годом!

@artyoms · 19.08.2015, 21:46 **[ТС]**

При

Delphi

1	ExcelApp :=GetActiveOleObject('Excel.Application');

как я понял мы подключаемся к первой открытой книге. А как подключиться к книге по имени т.е. допустим с именем 'S1 - Microsoft Excel' ?

@droider · 25.08.2015, 21:49

Сообщение от artyoms

как подключиться к книге по имени т.е. допустим с именем 'S1 - Microsoft Excel' ?

Delphi

var
  ExcelApp: OLEVariant;
begin
  try
    //проверяем, нет ли активного экземпляра Excel
    ExcelApp := GetActiveOleObject('Excel.Application');
  except
    //если нет, то запускаем
    on EOLESysError do
      ExcelApp := CreateOleObject('Excel.Application');
  end;
  with ExcelApp do
  begin
     Visible := True; //показываем документ
    //Открываем книгу Excel на полный экран
      WindowState := -4137;
    //отключаем предупреждающие сообщения
      DisplayAlerts := False;
    //Открываем рабочую книгу
     WorkBooks.Open('C:\S1.xls');
    //Становимся на первый лист
     WorkSheets[1].Activate;
  end;
end;

@volvo · 25.08.2015, 21:52

droider, вопрос не в этом. А в том, как среди нескольких открытых документов найти именно тот, который нужен. Я уже отвечал вопрошающему: Excel - получение доступа к нескольким окрытым приложениям , но, как видно, три строки простейшего кода никак для него не осилить... Вот и надо все на блюдечке...

@droider · 25.08.2015, 21:54

Сообщение от volvo

вопрос не в этом. А в том, как среди нескольких открытых документов найти именно тот, который нужен. Я уже отвечал вопрошающему

Не видел тему

Давно не заходил. Тогда все ясно.

@EK_1234 · 17.12.2019, 10:32

добрый день!
Подскажите пож-та, как можно решить такую задачу в excel.

Нужно подсчитать количество дней отпуска, если известна начальная дата 05.01.19 и конечная дата 15.01.19, при этом формула вычитала праздничные дни, которые попадают в этот интервал, а также если в следующей строке пусто нет дат, формула проставляла ноль.

Пример:
А1 В1
1 05.01.2019 15.01.2019
2 00.00.0000 00.00.0000
3 07.03.2019 10.03.2019

Заранее спасибо!

@D1973 · 17.12.2019, 10:48

EK_1234, вот какое отношение Ваш вопрос имеет к текущей теме пятилетней давности?
Создавайте свою тему и задавайте свой вопрос! Вот только Вы уверены, что она к Дельфи отношение имеет?

@EK_1234 0 / 0 / 0 Регистрация: 17.12.2019 Сообщений: 1
	17.12.2019, 10:32	11
	добрый день! Подскажите пож-та, как можно решить такую задачу в excel. Нужно подсчитать количество дней отпуска, если известна начальная дата 05.01.19 и конечная дата 15.01.19, при этом формула вычитала праздничные дни, которые попадают в этот интервал, а также если в следующей строке пусто нет дат, формула проставляла ноль. Пример: А1 В1 1 05.01.2019 15.01.2019 2 00.00.0000 00.00.0000 3 07.03.2019 10.03.2019 Заранее спасибо! 0

@artyoms 1 / 1 / 0 Регистрация: 28.10.2012 Сообщений: 168
		1
	Переключаться между листами Excel 31.12.2014, 16:18. Показов 9780. Ответов 11 Метки нет (Все метки) Как можно через делфи переключаться между листами в открытом Ексель ? Т.е. проводятся какие то вычисления, и допустим итог этих вычислений равен 6, и соответственно нужно будет переключиться на лист с именем 6. (он уже будет создан, просто нужно на него переключиться) 0

@RefSol 504 / 247 / 75 Регистрация: 31.10.2010 Сообщений: 747
	31.12.2014, 17:20	2
	artyoms, лучше это сделать через макросы на VB Excel 0

@artyoms 1 / 1 / 0 Регистрация: 28.10.2012 Сообщений: 168
	31.12.2014, 18:08 [ТС]	4
	нет, ексель находится не внутри делфи, а отдельно запущенным приложением, чужим окном. В этом и задача. 0

@artyoms 1 / 1 / 0 Регистрация: 28.10.2012 Сообщений: 168
	31.12.2014, 19:48 [ТС]	6
	droider, всё отлично работает, разобрался, большое спасибо и с наступающим Новым годом! 0

@volvo Супер-модератор 32955 / 21273 / 8168 Регистрация: 22.10.2011 Сообщений: 36,542 Записей в блоге: 8
	25.08.2015, 21:52	9
	droider, вопрос не в этом. А в том, как среди нескольких открытых документов найти именно тот, который нужен. Я уже отвечал вопрошающему: Excel - получение доступа к нескольким окрытым приложениям , но, как видно, три строки простейшего кода никак для него не осилить... Вот и надо все на блюдечке... 0

@droider 4914 / 2783 / 853 Регистрация: 04.10.2012 Сообщений: 10,129
	25.08.2015, 21:54	10
	Сообщение от volvo вопрос не в этом. А в том, как среди нескольких открытых документов найти именно тот, который нужен. Я уже отвечал вопрошающему Не видел тему Давно не заходил. Тогда все ясно. 0

@D1973 Модератор 9457 / 6210 / 2419 Регистрация: 21.01.2014 Сообщений: 26,467 Записей в блоге: 3
	17.12.2019, 10:48	12
	EK_1234, вот какое отношение Ваш вопрос имеет к текущей теме пятилетней давности? Создавайте свою тему и задавайте свой вопрос! Вот только Вы уверены, что она к Дельфи отношение имеет? 0

Переключаться между листами Excel

Решение