powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Помогите с Экселем
2 сообщений из 2, страница 1 из 1
Помогите с Экселем
    #37936916
Титов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем доброго времени суток, возникла проблема с загрузкой данных из Экселя, проблема следующая, каким то не понятным образом программа путает колонки, написал обработку табличной чати, и в некоторых случаех задваивает ФИО сотрудников а номера счетов незадваивает т.е.

Данные исходного файла
Таблица
ФИО НомерСчета
Сотрудник1 Номер1
Сотрудник2 Номер2
Сотрудник3 Номер3

В программу загружается со следующим косяком

Таблица
ФИО НомерСчета
сотрудник1 Номер1
сотрудник1 Номер2
сотрудник3 Номер3

подскажите пожалуйсто в чем причина данного не соответсвия???

листинг:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
Функция EXCEL_ПолучитьЗначениеЯчейки (ExcelЛист, НомерСтроки, НомерКолонки,  ПолучатьТекстФормулы = ложь, ПолучатьОформление = ложь) 
	xlLastCell = 11;
	Excel = Новый COMОбъект("Excel.Application");
	Excel.WorkBooks.Open("\\Lserver\bank\Счета.xls");
	Состояние("Обработка файла Microsoft Excel...");
	ExcelЛист = Excel.Sheets(ExcelЛист);
	ActiveCell = Excel.ActiveCell.SpecialCells(xlLastCell);
	RowCount = ActiveCell.Row;
	НачальныйРезультатКолонок = НомерКолонки;
	//Попытка
	РаботникиОрганизации.Очистить();			
	Для row = 1 по RowCount Цикл
		    ФИО = "";
			Фамилия = ExcelЛист.Cells(Row, НомерКолонки).value;			
			НомерКолонки = НомерКолонки + 1;
			Имя = ExcelЛист.Cells(Row, НомерКолонки).value;			 
			НомерКолонки = НомерКолонки + 1;
			Отчество = ExcelЛист.Cells(Row, НомерКолонки).value;
			НомерКолонки = НомерКолонки + 2;
			НомерЛицевогоСчета = ExcelЛист.Cells(Row, НомерКолонки).value;
			НомерКолонки = НачальныйРезультатКолонок;
			
			ФИО = СокрЛП(Фамилия) + " " +
			СокрЛП(Имя) + " " +
			СокрЛП(Отчество);
			
			//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
			// Данный фрагмент построен конструктором.
			// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
			
			Запрос = Новый Запрос;
			Запрос.Текст = 
			"ВЫБРАТЬ
			|	ФизическиеЛица.Ссылка
			|ИЗ
			|	Справочник.ФизическиеЛица КАК ФизическиеЛица
			|ГДЕ
			|	ФизическиеЛица.Наименование = &фио";
			
			Запрос.УстановитьПараметр("фио", ФИО);
			
			Результат = Запрос.Выполнить();
			
			ВыборкаДетальныеЗаписи = Результат.Выбрать();
			
			Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
				Сотрудник = ВыборкаДетальныеЗаписи.Ссылка;
				Сообщить(Сотрудник);
			КонецЦикла;
			
			//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
			
			
			Если Сотрудник <> "" тогда
				Строкаформирования = РаботникиОрганизации.Добавить();
				Строкаформирования.ФизЛицо = Сотрудник; 
				Строкаформирования.НомерЛицевогоСчета = НомерЛицевогоСчета;
			КонецЕсли;
			
		КонецЦикла;	
	//Исключение
	//	ExcelЛист = Неопределено;
	//КонецПопытки;
	
	
	Excel.WorkBooks.Close();
	Excel = 0;
КонецФункции




каждый правит свой жизнью сам, и не ной что она у тебя хуже чем у других, она всегда такой будет.!
...
Рейтинг: 0 / 0
Помогите с Экселем
    #37936950
Титов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
извените все нашел в чем проблема!
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Помогите с Экселем
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]