Имя: Пароль:
1C
1С v8
Вытащить из Exel.
,
0 wade25
 
05.10.11
13:01
Из 2003 все норм если так
ололо = Лист.Cells(4, 2).Value;

Как будет для старшей версии? Или смотреть в другом месте нужно?
1 wade25
 
05.10.11
13:45
Есть кто? =)
2 Rie
 
05.10.11
13:46
(1) Где?

(0) А в чём проблема со старшими версиями?
3 wade25
 
05.10.11
23:29
Т.е. нашел проверку на версии...

Версия = Лев(ExcelПриложение.Version,Найти(ExcelПриложение.Version,".")-1);
 Если Версия = "8" тогда
  Строки   = ExcelПриложение.Cells.CurrentRegion.Rows.Count;
 Иначе
  Строки   = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Row;
 Конецесли;

Т.е.тут если восьмерка то он автоматически считывает все строки, а если НЕ 8ка, то нужно указать номер последней строки?

 Или я чего путаю, объяснить плз этот код =)
4 wade25
 
06.10.11
06:04
ап =)
5 Rie
 
06.10.11
06:35
(3) Так тебе что нужно-то?
Найти последнюю ячейку на листе Excel? Тогда SpecialCells или UsedRange.
Или тебя интересует смежный диапазон ячеек (раз к CurrentRegion обращаешься)?
6 Песец
 
06.10.11
07:15
(3) СпешлСеллз мог выдавать неправильное количество. Сейчас, по-видимому, исправили.
7 wade25
 
06.10.11
09:09
(5) Нужно сделать так, что бы вытащить данные из определенных ячеек на листе, если файл 2003 эксель, то все тащит, из 2008 и выше не тянет =)
8 wade25
 
06.10.11
09:31
Может кто расшифрует строки? =)

(Cells.CurrentRegion.Columns.Count, 13);
(Cells(1,1).SpecialCells(11).Column);
9 wade25
 
06.10.11
10:55
В общем если
ФайлСтрок   = ExcelПриложение.Cells(1,1).SpecialCells(11).Row;

 Все норм выводит, но в файле намного больше строк.
Если
ФайлСтрок   = ExcelПриложение.Cells(1,1).SpecialCells(3600).Row;
пишет Невозможно получить свойство SpecialCells класса Range
Возможно не верно указано имя листа.

 В чем ошибка?
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.