Объект 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 и константам будешь обращаться без проблем

Новые блоги и статьи Все статьи Все блоги /
Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .

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

	Объект Excel. Как с ним работать? 26.12.2006, 08:00. Показов 1606. Ответов 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