Гость
Войти | Профиль | Очистить
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Ипорт данных в 1С из Excel. / 7 сообщений из 7, страница 1 из 1
14.08.2007, 05:06
    #34725178
XAH
XAH
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ипорт данных в 1С из Excel.
У меня проблема. Есть баз 1С ортикон по страхованию и мне туда неоходимо вводить каждую неделю около 800 человек (данные ФИО паспорт и т.д.) в ручную это делать нериально. Возможноли эти данные импортировать из Excel и как это сделать? Буду блогодарен за любую информацию.
PS:Огромная прозьба, если можно то поподробнее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2007, 07:29
    #34725209
Старый 1С-ик
Старый 1С-ик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ипорт данных в 1С из Excel.
Конечно возможно, причем разными методами. Можно непосредственно по OLE с Excel связываться. Если на машине по каким то причинам нельзя поставить офис, то можно с помощью ADO выбрать данные и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2007, 08:14
    #34725254
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ипорт данных в 1С из Excel.
Это для версии 7.7
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
	Попытка
		XL = СоздатьОбъект("Excel.Application");
	Исключение
		Предупреждение(ОписаниеОшибки()+"; не могу запустить Excel.Application");
		СтатусВозврата( 0 );
	КонецПопытки; 
	
	Книга = XL.WorkBooks.Open(ИмяФайлаЗагрузки);
	Лист1 = Книга.WorkSheets("Sheet1"); 
	
    RowMax = Лист1.UsedRange.Rows.Count + Лист1.UsedRange.Row -  1 ;	// номер последней строки на Листе1
    
	For i =  5  To RowMax Do					//  допустим  4  строки отведено на шапку
	    а = Лист1.Cells(i,  2 ).Value;		//  чтение колонки A
	    б = Лист1.Cells(i,  3 ).Value;		//  чтение колонки B
		сообщить(а + " " + б);
	EndDo; 
	
	XL.Quit();
	XL="";
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2007, 08:17
    #34725257
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ипорт данных в 1С из Excel.
маленькая опечатка
Код: plaintext
1.
	    а = Лист1.Cells(i,  2 ).Value;		//  чтение колонки B
	    б = Лист1.Cells(i,  3 ).Value;		//  чтение колонки C
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2007, 00:15
    #34730970
Сергей84
Сергей84
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ипорт данных в 1С из Excel.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Excel 	= Новый COMОбъект("Excel.Application");
	Файл	= Excel.Application.Workbooks.Open(Отчет);
Файл.Worksheets( 1 ).Activate();
	НомерСтроки	=  4 ;
	ФИО			= "";
	КолПовторов	=  0 ;
	Пока (Файл.ActiveSheet.Cells(НомерСтроки, 1 ).Value <> "Конец") И (НомерСтроки <  256 ) Цикл
ФИО			= Файл.ActiveSheet.Cells(НомерСтроки, 2 ).Value;
КонецЦикла;
	Excel.ActiveWorkbook.Close();
	Excel.Quit();
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2007, 10:40
    #34731482
XAH
XAH
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ипорт данных в 1С из Excel.
klen_Это для версии 7.7
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
	Попытка
		XL = СоздатьОбъект("Excel.Application");
	Исключение
		Предупреждение(ОписаниеОшибки()+"; не могу запустить Excel.Application");
		СтатусВозврата( 0 );
	КонецПопытки; 
	
	Книга = XL.WorkBooks.Open(ИмяФайлаЗагрузки);
	Лист1 = Книга.WorkSheets("Sheet1"); 
	
    RowMax = Лист1.UsedRange.Rows.Count + Лист1.UsedRange.Row -  1 ;	// номер последней строки на Листе1
    
	For i =  5  To RowMax Do					//  допустим  4  строки отведено на шапку
	    а = Лист1.Cells(i,  2 ).Value;		//  чтение колонки A
	    б = Лист1.Cells(i,  3 ).Value;		//  чтение колонки B
		сообщить(а + " " + б);
	EndDo; 
	
	XL.Quit();
	XL="";


Где это прописать? В программировании 1С не силен.

Где это прописать,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2007, 11:16
    #34731626
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ипорт данных в 1С из Excel.
в модуле формы
например в Процедура Сформировать()

посмотри вложенный, заархивированный внешний отчёт of_Excel.ert
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / Ипорт данных в 1С из Excel. / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 517ms
Закрыть
start [/forum/topic.php?fid=28&mobile=1&tid=1525378]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 157ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 249ms
total:  517ms
x
x
Закрыть


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