Ипорт данных в 1С из Excel. / 1С

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / 1С [игнор отключен] [закрыт для гостей] / Ипорт данных в 1С из Excel.

7 сообщений из 7, страница 1 из 1

Ипорт данных в 1С из Excel.

#34725178

XAH

Гость

У меня проблема. Есть баз 1С ортикон по страхованию и мне туда неоходимо вводить каждую неделю около 800 человек (данные ФИО паспорт и т.д.) в ручную это делать нериально. Возможноли эти данные импортировать из Excel и как это сделать? Буду блогодарен за любую информацию.
PS:Огромная прозьба, если можно то поподробнее.

...

Рейтинг:

0 / 0

14.08.2007, 05:06

| Ответить | Цитировать | Написать

Ипорт данных в 1С из Excel.

#34725209

Старый 1С-ик

Гость

Конечно возможно, причем разными методами. Можно непосредственно по OLE с Excel связываться. Если на машине по каким то причинам нельзя поставить офис, то можно с помощью ADO выбрать данные и т.д.

...

Рейтинг:

0 / 0

14.08.2007, 07:29

| Ответить | Цитировать | Написать

Ипорт данных в 1С из Excel.

#34725254

klen_

Участник

Сообщения: 2 198

Рейтинг: 0 / 0

Это для версии 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:14

| Ответить | Цитировать | Написать

Ипорт данных в 1С из Excel.

#34725257

klen_

Участник

Сообщения: 2 198

Рейтинг: 0 / 0

маленькая опечатка

Код: plaintext

	    а = Лист1.Cells(i,  2 ).Value;		//  чтение колонки B
	    б = Лист1.Cells(i,  3 ).Value;		//  чтение колонки C

...

Рейтинг:

0 / 0

14.08.2007, 08:17

| Ответить | Цитировать | Написать

Ипорт данных в 1С из Excel.

#34730970

Сергей84

Участник

Откуда: Мурманск

Сообщения: 29 752

Рейтинг: 0 / 0

Код: 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, 00:15

| Ответить | Цитировать | Написать

Ипорт данных в 1С из Excel.

#34731482

XAH

Гость

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, 10:40

| Ответить | Цитировать | Написать

Ипорт данных в 1С из Excel.

#34731626

klen_

Участник

Сообщения: 2 198

Рейтинг: 0 / 0

в модуле формы
например в Процедура Сформировать()

посмотри вложенный, заархивированный внешний отчёт of_Excel.ert

...

Рейтинг:

0 / 0

16.08.2007, 11:16

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / 1С [игнор отключен] [закрыт для гостей] / Ипорт данных в 1С из Excel.

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=28&msg=34725178&tid=1525378]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	34ms
get topic data:	13ms
get forum data:	3ms
get page messages:	49ms
get tp. blocked users:	2ms
others:	263ms

total:	396ms