![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
всем привет.
Помогите плиз сделать маленькое задание по предмету ВБА. Нужно с помощью функции windows.api запросить и изменить цвет фона в ячейке excel. Кто сможет помочь, буду очень благодарен. Так же готов заплатить тому, кто выполнит это задание. Нужно очень срочно. Спасибо. |
|
#2
|
|||
|
|||
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
XlApp, WSh, Rng : Variant;
begin
try
XLApp:= CreateOleObject('Excel.Application');
except
on E : EOleError do begin
ShowMessage('MS Exel отсутствует на компьютере!');
Exit;
end;
end;
try
XLApp.DisplayAlerts := false;
XLApp.Workbooks.Open('C:\WORK\For Excel\bilet.xls'); //имя файла excel
WSh := XLApp.WorkBooks[1].WorkSheets[1]; //книга и лист
WSh.Select;
Rng := WSh.Cells[2, 1]; //номер строки, номер столбца (начинаются с 1)
Rng.Select;
Rng.Interior.ColorIndex := 8; // Cyan
XLApp.Visible := True;
XLApp.DisplayAlerts := True;
finally
WSh := Unassigned;
XLApp := Unassigned;
end;
end; |
|
#3
|
|||
|
|||
|
я не знаю причём здесь API, преподаватель дал формулировку задания, я написал его дословно. Значит надо с помощью API сделать
|