Очистка ячеек в Excel -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.138.178.205]

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...

Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image

MSDN Library user posted image

FAQ раздела user posted image

Поиск по разделу user posted image

Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image

Rouse_,

Krid

Модераторы: Rouse_, Krid

Новое голосование

Очистка ячеек в Excel , Delphi2006

Алексей	Сообщ. #1 , 12.07.07, 11:15
Senior Member Профиль · PM Рейтинг (т): 17	Здравствуйте! Как мне очистить от данных некоторый диапазон ячеек в Excel? Делаю так: try ExcelApplication1.Range[*].Select; ExcelApplication1.Range[*].ClearContents; except end; но ничего не выходит...

jack128	Сообщ. #2 , 13.07.07, 12:22
Master Профиль · PM Рейтинг (т): 181	var Excel: OleVariant; begin Excel := GetActiveOleObject('Excel.Application'); Excel.ActiveSheet.Cells.Value := ''; end;

Алексей	Сообщ. #3 , 03.10.07, 11:37
Senior Member Профиль · PM Рейтинг (т): 17	мне не все надо очищать, а только определённый Range

Albinos_X	Сообщ. #4 , 05.10.07, 18:26
Full Member Профиль · PM Рейтинг (т): 16	делай по аналогии...

DanilovEV

Сообщ. #5 , 05.12.07, 06:58

Unregistered

Я здесь недавно, но попробуй так:
var
Form1: TForm1;
var
Excel: OleVariant;
sheet:olevariant;
XlApp:Olevariant;
implementation

{$R *.dfm}
function XlsClear(x1,y1,xk,yk:integer): Boolean;
const
xlCellTypeLastCell = $0000000B;
var
Range: OleVariant;
begin
XLApp := GetActiveOleObject('Excel.Application');
try
XLApp.Visible := true; //Делаем видимым
Sheet := XLApp.WorkSheets[1]; //Первый лист
Range := XLApp.Range[Xlapp.cells.item[x1,y1], XLApp.Cells.Item[Xk, Yk]];
Range.clear;
finally
if VarIsEmpty(XLApp) then
begin
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
Result := True;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
XlsClear(strtoint(Edit1.Text),strtoint(Edit2.Text),strtoint(Edit3.Text),strtoint(Edit4.Text));
end;

end.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0261 ] [ 16 queries used ] [ Generated: 27.09.24, 01:16 GMT ]