Здравствуйте.
Есть обработка загрузки в ТЗ 1С таблицы excel.
Проблема: одна из ячеек excel имеет формат "ddmmyyyy ччммсс". Хочется получить это значение в ТЗ 1С, хотя бы в текстовом формате, а берется только дата.
Помогите...

Книга знаний: Выгрузка справочника в Excel

Sheet.Cells(Row,Col).Text - пробовали ?
Если не помогает, то
v=Sheet.Cells(Row,Col).Value - получаем дробное число (double) целая часть - дата, дробная часть - время.

Код в студию!

Не пойму, почему нельзя превратить в строку полученную дату из Excel при заполнении таблицы?
На худой конец завести строчную колонку, в которую сдублировать строчное значение даты.  Ходя бы при последующем переборе строк таблицы.

На text-ругается,а на value - выдает дату, а хотелось бы получить еще и время:

   rs.MoveFirst();                
   Пока rs.EOF() = 0 Цикл
       ТЗ.НоваяСтрока();
       Для iCount = 0 По rs.Fields.Count-1 Цикл
ТЗ.УстановитьЗначение(ТЗ.КоличествоСтрок(),iCount+1,rs.Fields(iCount).Value);
       КонецЦикла;
     rs.MoveNext();  
   КонецЦикла;


М.б. кто-нибудь на док. по АДО отправит, вообще было бы здорово, а то методом тыка - тяжеловато

(0) Поиском по форуму, а мона сюды поглядеть: Вытащить дату и время из ячейки Дата-время Excell

(5) Извращенцы, блин.
Внутрь цикла:
ЛеваяПеременная = ...
ТЗ.ИмяКолонки = Строка(ЛеваяПеременная);
или обрабатывай левую как хочешь.

А так и не получится, так как ADO передаёт в виде даты-времени, что 1С автоматически преобразует в дату, т.к. 1С не все типы данных понимает.
Параметр Text доступен только если читаешь через объект Excel.Application, а не через ADO.

Касандеру:
Это неизменяет смысла, значение то все равно нет, а как его занести в ТЗ это уже мелочи

(9) По АДО никак не получишь ты того, что хочешь, (8) уже сказал ...

Винаватс, а что отладчик показывает после:
= Строка(rs.Fields(iCount).Value) ?

Спасибо, буду смотреть Excel.Application.
Все вопросы буду задавать попозже

что отладчик показывает после:
= Строка(rs.Fields(iCount).Value) ?

Дату

А жаль, тогда придётся документик форматнуть.

А после: Строка(Sheet.Cells(Row,Col)) ?

ДатВрем=Строка(ExcelApp.Cells(1,1).Text);
Датта=Дата(Лев(ДатВрем,8));
Времья=Сред(ДатВрем,10);

Все равно дата, а руками ячейку делить не буду.
Надо сделать и что бы люди работали без моего вмешательство. Лучше скиньте ссылку на Excel.Application, что бы мне не искать

ExcelOle=CreateObject("Excel.Application");
ExcelWorkbook=ExcelOle.Workbooks.Open(ИмяФайла);
Sheet=ExcelWorkbook.Worksheets.Item(1);// если только один лист
BeginLine=Sheet.UsedRange.Row;
EndLine=Sheet.UsedRange.Rows.Count+BeginLine-1;
for l=BeginLine to EndLine do
v=Sheet.Cells(l,1).Text; // или в какой колонке у вас дата ?
enddo;
// потом закрываем Excel
ExcelOle.Quit();
// или делаем его видимым, чтобы пользователь сам его закрыт
ExcelOle.Visible=-1;// True = -1

Удачи.

+(18) а можно и проверить,... я помню токмо через селект:

ExcelApp.Range("A1").Select();
Если ExcelApp.Selection.NumberFormat = "ДД.ММ.ГГ ч:мм;@" Тогда
Сообщить(Строка(ExcelApp.Cells(1,1).Text)); //строка томушто первая цифра
КонецЕсли;

Torquader
Спасибо, все заработало.
Не подскажешь как определить к-во столбцов, чтобы не жестко задавать?

(18) А если в региональных настройках дата в виде yyyy-MM-dd? Что тогда вернет .Text?

По-моему совсем правильно будет сначала задать ячейке четкий формат даты, а уже потом читать .Text

Sheet.UsedRange.Column - начальная
Sheet.UsedRange.Columns.Count - количество колонок

Torquader

Спасибо.