Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];

Вниз

excel numberformat   Найти похожие ветки 

← →
Valek   (2002-10-16 10:14) [0]

при попытке задать свойство numberformat объекта WorkSheet.Range
таким образом:
Worksheet.Range["A1","A1"].NumberFormat:="0.00"
вылетает OLE-Exception с сообщением, что нельзя устанавливать свойство NumberFormat объекта Range. ЧТО ДЕЛАТЬ? КАК БЫТЬ?

---

← →
MJH   (2002-10-16 11:50) [1]

Никто не вкурсах?

---

← →
AL2002   (2002-10-16 12:57) [2]

Вместо
Worksheet.Range["A1","A1"].NumberFormat:="0.00"
напини
Worksheet.Cells["A1","A1"].NumberFormat:="0.00"

и точку с запятой в конце поставь.

---

← →
AL2002   (2002-10-16 13:00) [3]

Или может нули с запятой нада? 8-[+]

---

← →
Mike B.   (2002-10-16 13:04) [4]

Worksheets("Sheet1").Range("A1","A1).NumberFormat = "0.00"
По моему - так.

---

← →
MJH   (2002-10-16 13:12) [5]

2AL2002
>Worksheet.Cells["A1","A1"].NumberFormat:="0.00"
:)
думаешь не пробывал?
у Cells вообще индексации нет
>Или может нули с запятой нада? 8-[+]
дело в том что в макросах это прокатывает :-|

2Mike B.
думаешь? свойство вообще не ставится, хоть ты там что угодно напиши....а вот в макросах - тоже самое, через тот же Range все прокатывает....почему????

---

← →
andrey_pst   (2002-10-16 15:01) [6]

Worksheet.Range["A1","A1"].NumberFormat:=0;

---

← →
MJH   (2002-10-16 16:06) [7]

2andrey_pst
на присваивании 1 эксель вообще повис :)

Не нужно попыток и методов народного тыка, было перепробовано все что пришло в голову. Нужен ответ человека, сталкивавщегося с такой проблемой

---

← →
andrey_pst   (2002-10-16 17:20) [8]

>> MJH
нет ответа по сути проблемы - не лезь

>> Valek
этот код работает (только-что проверил)
Delphi5, Excel97

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Excel97;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
IExcelApp : Excel97._Application; // интерфейс сервера
IExcelWB : Excel97._Workbook; // интерфейс книги
IExcelWS : Excel97._Worksheet; // интерфейс листа
DIExcelR : Excel97.Range; // диспинтерфейс области
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
const
xlLCID = LOCALE_USER_DEFAULT;
begin
// загрузили сервер
IExcelApp := CoExcelApplication.Create;
IExcelApp.Visible[xlLCID] := true;
// добавили книгу
IExcelWB := IExcelApp.Workbooks.Open("c:\test.xls", EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, false, xlLCID);
IExcelWB.Activate(xlLCID);
IExcelWS := IExcelWB.Worksheets.Item["Sheet1"] as Excel97._Worksheet;
IExcelWS.Activate(xlLCID);
// занесем данные в файл Excel:
DIExcelR:= IExcelWS.Range["A1", "A1"] as Excel97.Range; // получили ссылку на область
DIExcelR.Activate;
DIExcelR.NumberFormat := "0.00";
DIExcelR.Value := 2.598;
DIExcelR := nil;
IExcelWS := nil;
IExcelWB.SaveAs("c:\new_test.xls", EmptyParam, EmptyParam, EmptyParam, false, false, xlNoChange, EmptyParam, false, EmptyParam, EmptyParam, xlLCID);
IExcelWB.Close(true, "c:\new_test.xls", false, xlLCID);
IExcelWB := nil;
IExcelApp.Visible[xlLCID] := false;
IExcelApp.Quit;
IExcelApp := nil;
end;

end.

---

← →
MJH   (2002-10-16 19:31) [9]

2andrey_pst
нет ответа по сути проблемы - не лезь
че ты развопился? это вообще меня интересует, только спросил другой поцак, т.к. на моем компе инета нету там где я сижу.
завтра попробую сделать, но если опять заорет на ошибку - я тебе щебан дам :)

Delphi5, Excel97
во-во, D6 и Excel2000

---

← →
Valek & MJH   (2002-10-17 05:46) [10]

andrey_pst, не работает. та же фигня. Delphi 6, оффис 2к, и XP.

---

← →
MJH   (2002-10-17 15:51) [11]

No ideas?

---

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

Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];

Наверх

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