Делфи, Excel, NumberFormat
2 отговора
199 прегледа
Делфи, 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
Какво да го правя?
Искам да сменя формата на клетките на един ексцел регион.
За проба си направих макрос:
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
Какво да го правя?
Re: Делфи, Excel, NumberFormat
Като начало на Range(xsRow+':'+xsRow) сложи квадратни скоби, щото май е масив. Ако не стане ще се наложи да си пусна Delphi-то.
чети и дишай по-леко
чети и дишай по-леко
ОК :) (не си пускай делфито)
Прав си, квадратни трябвало да са, но когато е само една клетка си приема и кръгли. Това variant е сложна работа :)
XLS_Book.Worksheets[xSheet].Range('J4') := 'Данъчен номер';
обаче трябва да е
XLS_Book.Worksheets[xSheet].Range['4:4']
благодаря!
XLS_Book.Worksheets[xSheet].Range('J4') := 'Данъчен номер';
обаче трябва да е
XLS_Book.Worksheets[xSheet].Range['4:4']
благодаря!