Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.222.161.119] |
|
Сообщ.
#1
,
|
|
|
Здравствуйте! Как мне очистить от данных некоторый диапазон ячеек в Excel?
Делаю так: try ExcelApplication1.Range[***].Select; ExcelApplication1.Range[***].ClearContents; except end; но ничего не выходит... |
Сообщ.
#2
,
|
|
|
var Excel: OleVariant; begin Excel := GetActiveOleObject('Excel.Application'); Excel.ActiveSheet.Cells.Value := ''; end; |
Сообщ.
#3
,
|
|
|
мне не все надо очищать, а только определённый Range
|
Сообщ.
#4
,
|
|
|
делай по аналогии...
|
Сообщ.
#5
,
|
|
|
Я здесь недавно, но попробуй так:
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. |