1c8 работа с внешним файлом

@kyr · Регистрация: 04.12.2005

Студворк — интернет-сервис помощи студентам

Есть типовая конфигурация и файл с данными с биржи. Файл в принцыпе экселевского типа - т.е. табличный документ. В связи с тем что нету опыта работы с файлами прошу помочь в двух вопросах:
1. По-идее нужно каким-то образом открыть файл и выгрузить данные в какую-то Таблицу Значений. Верно ли это или обрабатывать лучше как-то иначе?
2. Каким образом открыть этот самый файл и получить оттуда данные?
Заранее всем спасибо

17.12.2007, 10:15

Если файл *.xls то можно посмотреть http://dushelov.ru/1c/ExcelReader.zip

@kyr · 17.12.2007, 10:27

Для: Dr.Uid
Спасибо. скачал, погляжу.. Если будут вопросы напишу)

@kyr · 31.01.2008, 15:40

Народ. Помогите плиз написать код, который будет брать данные из экселевского файла (данные идут структурированно в 8-ми столбцах) и переносить их в таблицу значений. Желательно так чтобы таблица значений создавалась сама...
Как подключить файл я знаю, а вот как перегать из него данные в таблицу значений - нет. Помогите плиз, очень нада!

@Koo · 31.01.2008, 16:03

Табло = СоздатьОбъект("ТаблицаЗначений");
Табло.НоваяКОлонка();//и т.д

Для Инд=ПерСтр По ПосСтр Цикл
Табло.НоваяСтрока();
Табло.ХХХ = Прайс.ActiveSheet.Cells(Инд,1).Value;//и тд параметры (Строка,Колонка)
КонецЦикла;

@kyr · 07.02.2008, 14:11

Для: kaa
Спасибо большое. Тока вопрос - чему должны равняться ПерСтр и ПосСтр? А также что значит ХХХ?

@ysobyto · 07.02.2008, 17:18

ПерСтр - первая строка,
ПосСтр - последняя,
ХХХ - имя колонки в ТЗ
например, так
Табло.Товар = Прайс.ActiveSheet.Cells(Инд,1).Value;
Табло.Цена = Прайс.ActiveSheet.Cells(Инд,2).Value;

@kyr · 11.02.2008, 11:20

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

Для Инд=2 По 3745 Цикл
Если Excel.ActiveSheet.Cells(Инд,1).Value = "Корп" или Excel.ActiveSheet.Cells(Инд,1).Value = "Муни" Тогда
СТЗ = ТаблицаЗначений.Добавить();
СТЗ.Сектор_рынка = Excel.ActiveSheet.Cells(Инд,1).Value;
СТЗ.Облигация_выпуск = Excel.ActiveSheet.Cells(Инд,2).Value;
СТЗ.Состояние_выпуска = Excel.ActiveSheet.Cells(Инд,3).Value;
КонецЕсли;
КонецЦикла;

В итоге получаю чистую ТЗ, но значения типа Корп или Муни в файле есть

@Koo · 11.02.2008, 11:36

<span class="vbquote">(KiR @ 12:02:2008, 19:07 )</span>Если Excel.ActiveSheet.Cells(Инд,1).Value = "Корп" или Excel.ActiveSheet.Cells(Инд,1).Value = "Муни" Тогда
[snapback]97711" rel="nofollow" target="_blank[/snapback]?[/quote]
Возможно так:
Если (СокрЛП(Excel.ActiveSheet.Cells(Инд,1).V alue) = "Корп") или (СокрЛП(Excel.ActiveSheet.Cells(Инд,1).V alue) = "Муни") Тогда

@kyr · 11.02.2008, 12:09

Для: kaa
Видимо у меня какие-то траблы с платформой(( перестартонул - заработало))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588

	1c8 работа с внешним файлом 16.12.2007, 13:27. Показов 23772. Ответов 9 Метки нет (Все метки) Есть типовая конфигурация и файл с данными с биржи. Файл в принцыпе экселевского типа - т.е. табличный документ. В связи с тем что нету опыта работы с файлами прошу помочь в двух вопросах: 1. По-идее нужно каким-то образом открыть файл и выгрузить данные в какую-то Таблицу Значений. Верно ли это или обрабатывать лучше как-то иначе? 2. Каким образом открыть этот самый файл и получить оттуда данные? Заранее всем спасибо 0

Dr.Uyd
	17.12.2007, 10:15
	Если файл *.xls то можно посмотреть http://dushelov.ru/1c/ExcelReader.zip

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	17.12.2007, 10:27
	Для: Dr.Uid Спасибо. скачал, погляжу.. Если будут вопросы напишу) 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	31.01.2008, 15:40
	Народ. Помогите плиз написать код, который будет брать данные из экселевского файла (данные идут структурированно в 8-ми столбцах) и переносить их в таблицу значений. Желательно так чтобы таблица значений создавалась сама... Как подключить файл я знаю, а вот как перегать из него данные в таблицу значений - нет. Помогите плиз, очень нада! 0

@Koo 0 / 0 / 0 Регистрация: 22.04.2010 Сообщений: 38
	31.01.2008, 16:03
	Табло = СоздатьОбъект("ТаблицаЗначений"); Табло.НоваяКОлонка();//и т.д Для Инд=ПерСтр По ПосСтр Цикл Табло.НоваяСтрока(); Табло.ХХХ = Прайс.ActiveSheet.Cells(Инд,1).Value;//и тд параметры (Строка,Колонка) КонецЦикла; 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	07.02.2008, 14:11
	Для: kaa Спасибо большое. Тока вопрос - чему должны равняться ПерСтр и ПосСтр? А также что значит ХХХ? 0

@ysobyto 0 / 0 / 0 Регистрация: 15.05.2007 Сообщений: 152
	07.02.2008, 17:18
	ПерСтр - первая строка, ПосСтр - последняя, ХХХ - имя колонки в ТЗ например, так Табло.Товар = Прайс.ActiveSheet.Cells(Инд,1).Value; Табло.Цена = Прайс.ActiveSheet.Cells(Инд,2).Value; 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	11.02.2008, 11:20
	Всем огромне спасибо. Вычитывать удалось. Но теперь хочу сделать так чтобы попадало не все, а только некоторое. Вот код, но не пойму почему он не отрабатывает как нужно: Для Инд=2 По 3745 Цикл Если Excel.ActiveSheet.Cells(Инд,1).Value = "Корп" или Excel.ActiveSheet.Cells(Инд,1).Value = "Муни" Тогда СТЗ = ТаблицаЗначений.Добавить(); СТЗ.Сектор_рынка = Excel.ActiveSheet.Cells(Инд,1).Value; СТЗ.Облигация_выпуск = Excel.ActiveSheet.Cells(Инд,2).Value; СТЗ.Состояние_выпуска = Excel.ActiveSheet.Cells(Инд,3).Value; КонецЕсли; КонецЦикла; В итоге получаю чистую ТЗ, но значения типа Корп или Муни в файле есть 0

@Koo 0 / 0 / 0 Регистрация: 22.04.2010 Сообщений: 38
	11.02.2008, 11:36
	<!--QuoteBegin-KiR+12:02:2008, 19:07 --> <span class="vbquote">(KiR @ 12:02:2008, 19:07 )</span><!--QuoteEBegin-->Если Excel.ActiveSheet.Cells(Инд,1).Value = "Корп" или Excel.ActiveSheet.Cells(Инд,1).Value = "Муни" Тогда [snapback]97711" rel="nofollow" target="_blank[/snapback]?[/quote] Возможно так: Если (СокрЛП(Excel.ActiveSheet.Cells(Инд,1).V alue) = "Корп") или (СокрЛП(Excel.ActiveSheet.Cells(Инд,1).V alue) = "Муни") Тогда 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	11.02.2008, 12:09
	Для: kaa Видимо у меня какие-то траблы с платформой(( перестартонул - заработало)) 0