Делфи, Excel, NumberFormat

2 отговора 199 прегледа
#1

Делфи, Excel, NumberFormat

Делфи, Excel, NumberFormat
Искам да сменя формата на клетките на един ексцел регион.

За проба си направих макрос:
Sub Macro1()
Rows("18:18").Select
Selection.NumberFormat = "@"
End Sub
Проверих и в делфи, че unit Excel2000, Range има NumberFormat
и пробвах с
XLS_Book.WorkSheets[xSheet].Range(xsRow+':'+xsRow).NumberFormat := '@';

но ми се оплака: EOleSysError, Member not found

Какво да го правя?

Отговор
в отговор на NikB #2

Re: Делфи, Excel, NumberFormat

Като начало на Range(xsRow+':'+xsRow) сложи квадратни скоби, щото май е масив. Ако не стане ще се наложи да си пусна Delphi-то.

чети и дишай по-леко
Отговор
в отговор на Pechenia #3

ОК :) (не си пускай делфито)

Прав си, квадратни трябвало да са, но когато е само една клетка си приема и кръгли. Това variant е сложна работа :)
XLS_Book.Worksheets[xSheet].Range('J4') := 'Данъчен номер';
обаче трябва да е
XLS_Book.Worksheets[xSheet].Range['4:4']

благодаря!

Отговор