Объект Excel. Как с ним работать?

@megafrag · Регистрация: 18.09.2006

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

Интересен вопрос - как, например, стереть лишние excel''евские листы ('sheets'). Изменение названия - xls.Name, где xls это Excel.Worksheets. А как сделать название жирным шрифтом, и стереть лишние листы? Автоматически создаются четыре листа 'sheet1'...'sheet4', а мне нужен только первый.

Также хотелось бы узнать, как изменить размер ячеек, в частности выровнять их так, чтобы ячейка была размером с написанный в ней текст, и как обвести ячейку рамкой.

@Vitaus · 27.12.2006, 02:49

Dim objExcel As Excel.Application
Dim objExcelBook As Excel.Workbook
Dim objExcelSheet As Excel.Worksheet

Set objExcel = New Excel.Application
Set objExcelBook = objExcel.Workbooks.Open(Путь к файлу)

Set objExcelSheet = ExcelBook.Worksheets(.SheetNumber)
objexcelsheet.delete

@megafrag · 28.12.2006, 00:31 **[ТС]**

Спасибо. А как выровнять или рамкой обвести, не знаешь?

@vadimNaumov · 03.01.2007, 02:54

При программировании Excel самый простой способ сначала открыть Excel, запустить 'Макрос-начать запись' и сделать что хочется используя меню и кнопочки. Затем остановить запись макроса и посмотреть, что там набралось. Затем копируешь содержимое и вставляешь в свой код, предварительно сделав блок
with MyExcelSheet
''а это из макроса, но везде поставь точку впереди, потому что там был Activesheet по умолчанию
With .Range('A2:B10')
.Borders(xlEdgeLeft).Weight = xlThick
.Borders(xlEdgeTop).Weight = xlThick
.Borders(xlEdgeBottom).Weight = xlThick
.Borders(xlEdgeRight).Weight = xlThick
.Borders(xlInsideVertical).Weight = xlThin
End With
''
end with
Когда программа начнет ругаться, что xlThin не знает, прицепт в Rference ссылку на Excel.application 9. Тогда ко всем обхектам Excel и константам будешь обращаться без проблем

Новые блоги и статьи Все статьи Все блоги /
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 Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@megafrag 0 / 0 / 0 Регистрация: 18.09.2006 Сообщений: 40

	Объект Excel. Как с ним работать? 26.12.2006, 08:00. Показов 1589. Ответов 3 Метки нет (Все метки) Интересен вопрос - как, например, стереть лишние excel''евские листы ('sheets'). Изменение названия - xls.Name, где xls это Excel.Worksheets. А как сделать название жирным шрифтом, и стереть лишние листы? Автоматически создаются четыре листа 'sheet1'...'sheet4', а мне нужен только первый. Также хотелось бы узнать, как изменить размер ячеек, в частности выровнять их так, чтобы ячейка была размером с написанный в ней текст, и как обвести ячейку рамкой. 0

@Vitaus 0 / 0 / 0 Регистрация: 27.12.2006 Сообщений: 3
	27.12.2006, 02:49
	Dim objExcel As Excel.Application Dim objExcelBook As Excel.Workbook Dim objExcelSheet As Excel.Worksheet Set objExcel = New Excel.Application Set objExcelBook = objExcel.Workbooks.Open(Путь к файлу) Set objExcelSheet = ExcelBook.Worksheets(.SheetNumber) objexcelsheet.delete 0

@megafrag 0 / 0 / 0 Регистрация: 18.09.2006 Сообщений: 40
	28.12.2006, 00:31 [ТС]
	Спасибо. А как выровнять или рамкой обвести, не знаешь? 0

@vadimNaumov 0 / 0 / 0 Регистрация: 01.01.2007 Сообщений: 3
	03.01.2007, 02:54
	При программировании Excel самый простой способ сначала открыть Excel, запустить 'Макрос-начать запись' и сделать что хочется используя меню и кнопочки. Затем остановить запись макроса и посмотреть, что там набралось. Затем копируешь содержимое и вставляешь в свой код, предварительно сделав блок with MyExcelSheet ''а это из макроса, но везде поставь точку впереди, потому что там был Activesheet по умолчанию With .Range('A2:B10') .Borders(xlEdgeLeft).Weight = xlThick .Borders(xlEdgeTop).Weight = xlThick .Borders(xlEdgeBottom).Weight = xlThick .Borders(xlEdgeRight).Weight = xlThick .Borders(xlInsideVertical).Weight = xlThin End With '' end with Когда программа начнет ругаться, что xlThin не знает, прицепт в Rference ссылку на Excel.application 9. Тогда ко всем обхектам Excel и константам будешь обращаться без проблем 0

Опции темы