Лист excel файла открыть в stringgrid

@kirill1507 · Регистрация: 24.05.2015

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

Добрый вечер! Есть компонент StringGrid1, при нажатии кнопки мы выбираем excel файл, после всех действий отображается 1-й лист excel файла в StringGrid1. Подскажите как сделать чтобы отображался 2-ой лист?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute then
begin
Xls_Open(OpenDialog1.FileName, StringGrid1);
end;
end;

@D1973 · 19.01.2019, 07:02

kirill1507, для начала Вы покажите, что за процедура/функция Xls_Open()

@BokarevAlex · 19.01.2019, 21:19

Получение данных из Excel:

Delphi

with StringGrid1 do
  for i:=1 to RowCount-1 do
  for j:=1 to ColCount-1 do
    Cells[j, i]:=Excel.WorkSheets.Item['Лист1'].Cells[i, j];

Обратите внимание на последнюю строчку, а именно, на ['Лист1']

@D1973 · 19.01.2019, 22:41

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

чтобы отображался 2-ой лист?

BokarevAlex, а Вам что-то мешает написать ['Лист2']?

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,728 Записей в блоге: 3
	19.01.2019, 07:02	2
	kirill1507, для начала Вы покажите, что за процедура/функция Xls_Open() 0

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,728 Записей в блоге: 3
	19.01.2019, 22:41	4
	Сообщение от kirill1507 чтобы отображался 2-ой лист? BokarevAlex, а Вам что-то мешает написать ['Лист2']? 0

Опции темы