VPF::Ошибка при копировании данных

AleksandraN

Дата 24.9.2010, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.8.2009
Где: Пермь

Репутация: нет
Всего: нет

Доброго времени суток!
Копирую данные из одной книги Excel в другую следующим образом:

Код



       Col := Query.WorkSheets[1].UsedRange.Columns.Count;
       Row := Query.WorkSheets[1].UsedRange.Rows.Count;
       MyRange := Query.WorkSheets[1].Range[Query.WorkSheets[i].Cell[5, 1], Query.WorkSheets[i].Cell[Row, Col]];
       MyRange.Copy(EmptyParam);
       Sheet := Pattern.WorkSheets[1];
       Sheet.Paste(Sheet.Range['A1', EmptyParam], EmptyParam);

на строке MyRange := Query.WorkSheets[1].Range[Query.WorkSheets[i].Cell[5, 1], Query.WorkSheets[i].Cell[Row, Col]]; появляется ошибка -
Method "Cell" no supported by automation object
ну то есть я не правильно выделяю область, которю хочу скопировать...как правильно это сделать, если я знаю номера сторок и столбцов границ области?

Albinos_x

Дата 24.9.2010, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Код


MyRange := Query.WorkSheets[1].Range['E1', Char(Ord('A')+Col-1)+IntToStr(Row)];

это если за пределы диапазона A..Z не вылазиешь... если можешь выскочить то посложнее... используй функцию описанную в статье... даю прямую ссылку на пост: организация адресации в Excel

Добавлено через 2 минуты и 2 секунды
к тому же обрати внимание, что у тебя MyRange := Query.WorkSheets[1].Range.... а в параметре: WorkSheets[i].Cell - это может вызвать много непонятных глюков, которые будешь долго искать...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

AleksandraN

Дата 27.9.2010, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.8.2009
Где: Пермь

Репутация: нет
Всего: нет

Albinos_x, спасибо.
Кстати, вот так тоже работает:

Код


  MyRange := Query.WorkSheets[1].Range[Query.WorkSheets[1].Cells.Item[5, 1], Query.WorkSheets[1].Cells.Item[Row, Col]];

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »