Скачать: CL | DM;

работа с ексель-файлами из делфи   Найти похожие ветки 

← →
gray1 ©   (2002-04-08 12:54) [0]

помогите плиз!
я знаю как сделать новый файл екселя и записать инфу в ячейки:

exl := CreateOleObject("Excel.Application");
WorkBook := exl.Application.WorkBooks.Add;
Sheet := WorkBook.WorkSheets[1];
Sheet.Cells(1,1) := "123";
exl.Application.ActiveWorkBook.Saveas("1.xls");
finally
exl.Application.Quit;

но я абсолютно не знаю как поменять ширину ячейки , шрифт и тд.
можно ли какнить использовать вижуал бейсик для этого?
помогите плз!!!!!!!! где достать инфу по этому вопросу?

---

← →
AFROLOV   (2002-04-08 13:16) [1]

VBA использовать можно и нужно. Практически все что ты написал идентично коду на VBA.
"как поменять ширину ячейки , шрифт и тд" -
1. запускаешь запись макроса
2. проделываешь все что тебе надо (меняешь ширину ячейки, шрифт и тд.)
3. открываешь редактор VBA и у тебя есть пример как надо работать с шириной ячейки, шрифтом и прочим.
"где достать инфу по этому вопросу?" - почитать справку по VBA

---

← →
arhelon ©   (2002-04-08 13:22) [2]

Почитай там много чего полезного
http://www.delphikingdom.com/helloworld/index.htm

---

← →
gray1 ©   (2002-04-08 13:52) [3]

нефига!!!!!!!!!!!!11
не катит!!!!!!
вот тот бональный пример с изменением ширины ячейки
в вижуале:
Range("D7").Select
Columns("D:D").ColumnWidth = 21.43
как мне это перенести в делфи???????
что бы потом все заработало?
вобщем данный синтаксис не работает!!!!!!!
помогите!!!!!!!!!!!!!

---

← →
AFROLOV   (2002-04-08 14:17) [4]

exl.Application.ActiveWorkBook.Saveas("1.xls"); - ЭТО у тебя работает? Остальное аналогично.
Должно сработать так
exl.Application.ActiveWorkBook.Range("D7").Select;
Надо указывать полные имена.
А с коллекциями скорее всего придется работать через их функцию(?) Item()

---

← →
Дмитрий Орехов   (2002-04-08 14:33) [5]

Sheets.Cells(1:1).Width:=50;
Sheets.Cells(1:1).Font.Dold:=True;
Sheets.Cells(1:1).Font.Italic:=True;
Sheets.Cells(1:1).Font.Size:=12;
Sheets.Cells(1:1).Font.Name:="Courier New";
В Cells я использовал квадратные скобки, но возможно без разницы.

---

← →
Дмитрий Орехов   (2002-04-08 14:33) [6]

Sheets.Cells(1:1).Width:=50;
Sheets.Cells(1:1).Font.Bold:=True;
Sheets.Cells(1:1).Font.Italic:=True;
Sheets.Cells(1:1).Font.Size:=12;
Sheets.Cells(1:1).Font.Name:="Courier New";
В Cells я использовал квадратные скобки, но возможно без разницы.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c