[Vofka]

У меня по этому коду 2 вопроса:
1) Зачем КоличествоПустыхЯчеек = 0, если мы переменную КоличествоПустыхЯчеек нигде дальше не используем
2) Если будет 15 строк пустых, а в 16 будут данные?

[Batchir]

У меня по этому коду 2 вопроса:
1) Зачем КоличествоПустыхЯчеек = 0, если мы переменную КоличествоПустыхЯчеек нигде дальше не используем
2) Если будет 15 строк пустых, а в 16 будут данные?

1) то я ошибся нужно КоличествоПустыхСтрок
2) число 15 приведено для примера. А так анализируются эксель документы которые загружаются и выставляется нужное тебе число. Мне, например не попадались, прайсы в которых выводились данные,  а потом через 15 пустых строк продолжались.

[ReDll]

Спасибо,
А может кто то дать ссылку где перечислены функции работы с Экселевскими файлами?

З.Ы. У меня правда не получается найти ничего (для 7.7)

[ReDll]

Excel.Cells.CurrentRegion.Rows.Count

Не работает, возвращает 1...
Как еще можно узнать количество строк в Эксель документе?

[MATEVI]

Попробуй: Excel.ActiveSheet.UsedRange.Rows.Count
Количество занятых строк на листе.

[ReDll]

Спасибо, это работает

[Vofka]

А может кто то дать ссылку где перечислены функции работы с Экселевскими файлами?

MATEVI тему отдельную создал http://pro1c.org.ua/index.php?showtopic=839

[ReDll]

Помогите пожалуйста...
Есть обработка "Оборотная ведомость" там присутствуют 2 запроса:

Запр №1

Запрос = СоздатьОбъект("Запрос");

	ТекстЗап = "Период с ДатаНачала";
	Если  ДатаКонца>=ПолучитьДатуТА() Тогда
		ДатаКонца=ПолучитьДатуТА();
		ДатаКон=ДатаКонца;
		ТекстЗап= ТекстЗап+";";
	Иначе
		ТекстЗап= ТекстЗап+" по ДатаКонца;";
	КонецЕсли;
	ТекстЗап = ТекстЗап +
	"//{{ЗАПРОС(ПродВсего)
	|ОбрабатыватьДокументы Проведенные;
	|ТОВАР	= Документ.ПрихНак.Товар,Документ.НаклВозврПост.Товар,Документ.РасходнаяНакл.Товар
,Документ.ОтчетОПродажах.Товар,Документ.Чек.Товар;
	|Партия	= Документ.РасходнаяНакл.Партия,Документ.НаклВозврПост.Партия,Документ.ОтчетОПрода
жах.Партия;
	|ПартияДокПрих = Документ.РасходнаяНакл.Партия.ДокПрихода,Документ.НаклВозврПост.Партия.ДокПриход
а,Документ.ОтчетОПродажах.Партия.ДокПрихода;
	|Фирма	= Документ.РасходнаяНакл.Предприятие, Документ.НаклВозврПост.Предприятие,Документ.ОтчетОПродажах.Предприятие;
	|КОЛВО	= Документ.ПрихНак.Количество,Документ.НаклВозврПост.Количество,Документ.Расходная
Накл.Количество,Документ.ОтчетОПродажах.Количество,Документ.Чек.Количество;
	|Сумм	= Документ.ПрихНак.СуммаСНДСЗак,Документ.НаклВозврПост.СуммаЗакСНДС,Документ.Расхо
днаяНакл.СуммаОптСНДС,Документ.ОтчетОПродажах.СуммаФакт,Документ.Чек.Сумма;
	|Коэфф	= Документ.РасходнаяНакл.Коэффициент,Документ.ПрихНак.Коэффициент,Документ.НаклВоз
врПост.Коэффициент,Документ.ОтчетОПродажах.Коэффициент;
	|Функция СуммаОбщ = Сумма(Сумм);
	|Функция КолвоОбщ = Сумма(КОЛВО);
	|Функция КоэффОбщ = Сумма(Коэфф);
	|Условие(Фирма = выбФирма);
	|Группировка ТОВАР упорядочить по Товар.Наименование Все ВошедшиеВЗапрос;
	|"//}}ЗАПРОС
	;

    Если   Режим1 ="Day"   Тогда
		ИмяГруппировки="День";
	ИначеЕсли Режим1 ="Week"  Тогда
		ИмяГруппировки="Неделя";
	ИначеЕсли Режим1 ="Month" Тогда
		ИмяГруппировки="Месяц";
	ИначеЕсли Режим1 ="Qw"    Тогда
		ИмяГруппировки="Квартал";
	ИначеЕсли Режим1 ="Year"  Тогда
		ИмяГруппировки="Год";
	КонецЕсли;

    Если   Режим1<>"Всего"   Тогда
		ТекстЗап = ТекстЗап + "Группировка "+ИмяГруппировки+" Все;";
	КонецЕсли;

	ТекстЗап = ТекстЗап + "Группировка Документ;";

    Если ВыбТовар.Выбран() = 0 Тогда
		Заг1 = Заг1 + "По всей номенклатуре. ";
	ИначеЕсли ВыбТовар.ЭтоГруппа() = 1 Тогда
		Заг1 = Заг1 + "По номенклатуре группы " + ВыбТовар.Наименование+". ";
		ТекстЗап = ТекстЗап + "Условие (ТОВАР.ПринадлежитГруппе(ВыбТовар) = 1);";
	Иначе
		Заг1 = Заг1 + "По номенклатуре " + ВыбТовар.Наименование+". ";
		ТекстЗап = ТекстЗап + "Условие (ТОВАР = ВыбТовар);";
	КонецЕсли;

	// Если ошибка в запросе, то выход из процедуры
	Если Запрос.Выполнить(ТекстЗап) = 0 Тогда
		Возврат;
КонецЕсли;

И №2

	
	ЗапросД = СоздатьОбъект("Запрос");
	ТекстЗап = "Период с ДатаНачала";
 	Если ДатаКонца>=ПолучитьДатуТА() Тогда
		ДатаКонца = ПолучитьДатуТА();
		ДатаКон=ДатаКонца;
		ТекстЗап= ТекстЗап+";";
	Иначе
		ТекстЗап= ТекстЗап+" по ДатаКонца;";
	КонецЕсли;
	ТекстЗап = ТекстЗап +
	"//{{ЗАПРОС(ПродВсегоСклад)
	|Товар=Регистр.ОстаткиТоваров.Товар;
	|Док=Регистр.ОстаткиТоваров.ТекущийДокумент;
	|Фирма = Регистр.ОстаткиТоваров.Предприятие; 
	|Кол=Регистр.ОстаткиТоваров.Количество;
	|БазСто=Регистр.ОстаткиТоваров.СуммаСНДСЗак;
	|Группировка Товар;
	|Группировка Док;
	|Функция ПрихКол= Приход(Кол);
	|Функция РасхКол= Расход(Кол);
	|Функция ПрихСто= Приход(БазСто);
	|Функция РасхСто= Расход(БазСто);
	|Условие(Фирма = выбФирма);
	|"//}}ЗАПРОС
	;
	// Если ошибка в запросе, то выход из процедуры
	Если ЗапросД.Выполнить(ТекстЗап)=0 Тогда
		Возврат;
		КонецЕсли;

Но как я не пробовала условие по фирме не работает... Все равно возвращает по всем фирмам.

Подскажите пожалуйста где может быть ошибка....

[MATEVI]

Помогите пожалуйста...
Есть обработка "Оборотная ведомость" там присутствуют 2 запроса:


Но как я не пробовала условие по фирме не работает... Все равно возвращает по всем фирмам.

Подскажите пожалуйста где может быть ошибка....

Попробуй |Условие(Фирма В выбФирма); Хотя В для группы. И тот ли вид у ВыбФирма

[Vofka]

ReDll, тему новую создать нельзя?