Как загрузить файл *.xls в программу из под Buildera без запуска Excel'я?

@id12 · Регистрация: 25.05.2010

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

Подскажите пожайлуста, как загрузить файл *.xls в программу из под Buildera без запуска Excel'я. Как получить доступ к ячейке. Только если можно поподробнее, а то я запутался в OLE и СОМ. Пожайлуста помогите, пробуксовывает проект... Весна, а тут этот Excel... =(

@tsttom · 28.06.2010, 11:18

Variant XL = CreateOleObject('Excel.Application');
XL.OlePropertySet('Visible', true);
XL.OlePropertySet('Caption', 'Моя программулька');
XL.OlePropertySet('DisplayAlerts', false);
Variant books = XL.OlePropertyGet('Workbooks');
books.OleProcedure('Add');
Variant book = books.OlePropertyGet('Item', 1);
Variant sheet = book.OlePropertyGet('Worksheets') ;
sheet = sheet.OlePropertyGet('Item',1);
sheet.OlePropertySet('Name', WideString('мой листик'));
Variant sheet2 = book.OlePropertyGet('Worksheets') ;
sheet2 = sheet2.OlePropertyGet('Item',2);
sheet2.OlePropertySet('Name', WideString('второй мой листик'));
// установим шрифт
Variant range = sheet.OlePropertyGet('Range', 'A1:AZ3000');
range.OlePropertyGet('Font').OleProperty Set('Size', 8);
range.OlePropertySet('VerticalAlignment' , -4108);
range.OlePropertySet('WrapText', false);
range.OlePropertySet('ColumnWidth', 12);

range = sheet.OlePropertyGet('Range', WideString('A1:B2'));
range.OleProcedure('Merge');
range.OlePropertySet('WrapText', true);
range.OlePropertySet('Value', WideString('Всякая фигня в строковом формате'));

range = sheet.OlePropertyGet('Range', WideString('A3:B3'));
range.OlePropertySet('NumberFormat', '_-* # ##0,00#;-* # ##0,00#;_-* '- '??;_-@_-');
range.OlePropertySet('Value', 12345.67);

28.06.2010, 19:21

tsttom - спасибо одно из самых доходчивых обяснение, я тоже в свое время искал, нашел чуть другое,
но у меня есть такой вопросик, если не трудно
есть код на Visual Basic (в Exele)
устанавливает конкретной ячейке имя ячейки (уникальное)
так вопрос как это зделать в Билдере, теми же OLE методами,
загвоздка в том что Name:='MarkaMashin', RefersToR1C1:='=Config!R4C2'
вроде как два (4) параметра к Propery, или как вобще,
заранее спасибо.
Код:

Code
1
2
3
4
5
6
7
 
Sub Макрос1()
    Range('B4').Select
    ActiveWorkbook.Names.Add Name:='MarkaMashin', RefersToR1C1:='=Config!R4C2'
    ActiveCell.FormulaR1C1 = 'Жигули'
    Range('B5').Select
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	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 была полностью переписана на Си, в. . .

@id12 0 / 0 / 0 Регистрация: 25.05.2010 Сообщений: 3

	Как загрузить файл .xls в программу из под Buildera без запуска Excel'я? 09.06.2010, 18:31. Показов* 1913. Ответов 2 Метки нет (Все метки) Подскажите пожайлуста, как загрузить файл *.xls в программу из под Buildera без запуска Excel'я. Как получить доступ к ячейке. Только если можно поподробнее, а то я запутался в OLE и СОМ. Пожайлуста помогите, пробуксовывает проект... Весна, а тут этот Excel... =( 0

@tsttom 0 / 0 / 2 Регистрация: 24.06.2010 Сообщений: 174
	28.06.2010, 11:18
	Variant XL = CreateOleObject('Excel.Application'); XL.OlePropertySet('Visible', true); XL.OlePropertySet('Caption', 'Моя программулька'); XL.OlePropertySet('DisplayAlerts', false); Variant books = XL.OlePropertyGet('Workbooks'); books.OleProcedure('Add'); Variant book = books.OlePropertyGet('Item', 1); Variant sheet = book.OlePropertyGet('Worksheets') ; sheet = sheet.OlePropertyGet('Item',1); sheet.OlePropertySet('Name', WideString('мой листик')); Variant sheet2 = book.OlePropertyGet('Worksheets') ; sheet2 = sheet2.OlePropertyGet('Item',2); sheet2.OlePropertySet('Name', WideString('второй мой листик')); // установим шрифт Variant range = sheet.OlePropertyGet('Range', 'A1:AZ3000'); range.OlePropertyGet('Font').OleProperty Set('Size', 8); range.OlePropertySet('VerticalAlignment' , -4108); range.OlePropertySet('WrapText', false); range.OlePropertySet('ColumnWidth', 12); range = sheet.OlePropertyGet('Range', WideString('A1:B2')); range.OleProcedure('Merge'); range.OlePropertySet('WrapText', true); range.OlePropertySet('Value', WideString('Всякая фигня в строковом формате')); range = sheet.OlePropertyGet('Range', WideString('A3:B3')); range.OlePropertySet('NumberFormat', '_-* # ##0,00#;-* # ##0,00#;_-* '- '??;_-@_-'); range.OlePropertySet('Value', 12345.67); 0