Форматирование ячеек Excel через Delphi

[nactyx]

Добрый день! Снова нужна помощь.

Форматирую вот таким образом:

    ExcelApp.Range[ExcelApp.Cells[x+1,1],ExcelApp.Cells[x+1,6]].Select;
    ExcelApp.Selection.Borders.LineStyle := 1;

Но подобным образом форматируются ВСЕ листы, а мне нужно, чтобы форматирование на каждый лист было уникальным. Каким образом можно форматировать подобным образом, но не всю книгу, а конкретный лист?

Заранее благодарю за помощь!

[max_prorok]

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

Добрый день! Снова нужна помощь.

Форматирую вот таким образом:

    ExcelApp.Range[ExcelApp.Cells[x+1,1],ExcelApp.Cells[x+1,6]].Select;
    ExcelApp.Selection.Borders.LineStyle := 1;

Но подобным образом форматируются ВСЕ листы, а мне нужно, чтобы форматирование на каждый лист было уникальным. Каким образом можно форматировать подобным образом, но не всю книгу, а конкретный лист?

Заранее благодарю за помощь!

Не знаю как в Delphi, а в С++ необходимо создать переменную листа (иерархия такова: переменная приложения, переменная книги, переменная листа). Готов предположить, что в Дельфи также. И тогда Cells вызывать для листа, а не для ExcellApp.

[nactyx]

Если я напишу так:

    ExcelApp.Worksheets[n].Cells.Range[ExcelApp.Cells[x+1,1],ExcelApp.Cells[x+1,6]].Select;
    ExcelApp.Worksheets[n].Selection.Borders.LineStyle := 1;

то появляется вот такая ошибка:

[Aleksandr H.]

ExcelApp.Worksheets[n].Cells.Range[ExcelApp.Worksheets[n].Cells[x+1,1],ExcelApp.Worksheets[n].Cells[x+1,6]].Select;

А так?

[nactyx]

Вот так:

ExcelApp.Worksheets[n].Cells.Range[ExcelApp.Worksheets[n].Cells[x+1,1],ExcelApp.Worksheets[n].Cells[x+1,6]].Select;
    ExcelApp.Selection.Borders.LineStyle := 1;

снова без ошибки, но так же форматирование первой идет на следующие.

[nactyx]

Разобрался. Спасибо!