Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

Кол-во строк и столбцов и цвет ячеек EXCEL   Найти похожие ветки 

 
LORDMAXX ©   (2004-04-01 01:27) [0]

Мастера мне нужно
1. узнать кол-во строк и столбцов использованых в листе EXCEL.
2. и какой цвет в ячейке.
делаю выделение так  

var
 RExcel, RWorkBook, RWorkSheet: Variant;
begin
 RExcel := CreateOLEObject("Excel.Application");
 RWorkBook := RExcel.WorkBooks.Open(.....
 RWorkSheet := RWorkBook.Sheets[1];
 ...
 RWorkSheet.UsedRange.Select ;
 ...

с выделением используемой области проблемы нету, выделяется, но как потом с ней работать, сколько строк и столбцов в ней?


 
Думкин ©   (2004-04-01 06:48) [1]

RWorkSheet.UsedRange.
Sub Макрос1()
"
" Макрос1 Макрос
" Макрос записан 01.04.2004 (отдел ИТ)
"

"
   Range("a8").Select
   ActiveCell.FormulaR1C1 = "3242"
   Range("D8").Select
   ActiveCell.FormulaR1C1 = "3242"
   Range("D9").Select
   ActiveCell.FormulaR1C1 = Application.ActiveSheet.UsedRange.Rows.Count
   Range("D10").Select
   ActiveCell.FormulaR1C1 = Application.ActiveSheet.UsedRange.Columns.Count
   
   
End Sub



Страницы: 1 вся ветка

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.027 c
1-1080546501
lehich
2004-03-29 11:48
2004.04.18
ListBox1.Items.Text и разделители


3-1079438056
V-A-V
2004-03-16 14:54
2004.04.18
Просмотр парадоксовских таблиц


14-1080502026
ИМХО
2004-03-28 23:27
2004.04.18
Мазуту, Алексу Коншину, Маслоффу и всем-всем-всем


1-1080736572
AlexeyITN
2004-03-31 16:36
2004.04.18
Как перекрасить кнопку BitBtn переливающимся цветом?


14-1080424671
kdd
2004-03-28 00:57
2004.04.18
Delphi 8