Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Corba";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Вниз

Задание формата ячеек типа "текст" в экселе созданного через 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 вся ветка

Форум: "Corba";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
2-1147372734
BAngel
2006-05-11 22:38
2006.05.28
Обмен переменными между процедурами


2-1147110889
que
2006-05-08 21:54
2006.05.28
Memo


15-1146812786
REA
2006-05-05 11:06
2006.05.28
BDS 2006 - скорость загрузки


2-1147090246
DimDim
2006-05-08 16:10
2006.05.28
Универсальный ProgressBar


2-1147592071
kilonet
2006-05-14 11:34
2006.05.28
функция TextOut





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский