Вниз
Скачать: CL | DM;

Задание формата ячеек типа "текст" в экселе созданного через OLE   Найти похожие ветки 

 
Pine   (2005-02-10 23:16) [0]

Как для книги экселя созданной через

ExcelApp:=CreateOleObject("Excel.Application");

Для части ячеек

   WorkBook.WorkSheets[1].Range[Cell1,Cell2].Select;

сделать формат типа "текст"(а то ведущий ноль в числах пропадает)

Чего только не подставлял после      WorkBook.WorkSheets[1]. ну например типа :

WorkBook.WorkSheets[1].Selection.NumberFormat:= "@";

но при выполнении прога говорит что такого метода нет у объекта автоматизации

Никак не могу найти правильный операнд форматирования ...
Как выйти из ситуации?


 
Pine   (2005-02-10 23:42) [1]

Вопрос снимается.
Нашел.

WorkBook.WorkSheets[1].Range[Cell1,Cell2].NumberFormat:="@";


 
Kacnep ©   (2005-06-28 08:51) [2]

Привет мастерам!
Тема сабжа полностью не раскрыта!
Как у всей строки или столбца сделать тоже самое? :)
Или придется с самой первой ячейки это делать джо последней? :)
Вот такие пироги.
Пока решения не нашел - ковыряюсь


 
YurikGL ©   (2005-06-28 10:11) [3]

Можно попробовать сделать у range.
Но в любом случае должно сработать сначала выбрать range через select, а потом изменить свойство selection-а.
Подробности смотри в макросе.


 
Kacnep ©   (2005-06-29 12:48) [4]

Ответ нашел сам
WorkBook.WorkSheets[1].Range[Cell1,EmptyParam].Columns....
или Rows
но после упорных ковыряний с разбором ранних и поздних связываний... хех
В общем сейчас понял что просмотрел как человек связывался с экселем.
Всем спасибо!



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

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



Память: 0.46 MB
Время: 0.027 c
5-1131722012
_Seldon_
2005-11-11 18:13
2006.05.28
DblClick и Dragging


2-1147184917
Mr tray
2006-05-09 18:28
2006.05.28
как узнать хендл активного окна активного приложения


2-1147146790
mctarik
2006-05-09 07:53
2006.05.28
Как выполнить AutoCheck всех пунктов MainMenu!


3-1143620446
Rule
2006-03-29 12:20
2006.05.28
Как заставить recordset в ADO открывать запрос с таймаутом ?


2-1147380746
EZHIK
2006-05-12 00:52
2006.05.28
Кнопки назад и вперед и вернуться.




   Наверх