Онлайн учебник по дизайну Руководство по раскрутке сайтов Шаблоны Программирование на VB Главная

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

Dim XL As New Excel.Application

Здесь переменная XL берет на себя роль приложения Excel.

XL.Workbooks.Open App.Path & "\MyBook.xls"

Открываем имеющуюся в наличии рабочую книгу MyBook.xls

XL.Visible = False

Делаем ее невидимой (фоновой). Если Вам нужно, чтобы во время выполнения программы Вы видели все своими глазами, то нужно установить значение True.

Set XL = XL.ActiveWorkbook.Sheets.Application

Передаем нашей переменной управление открытой рабочей книгой.

После окончания работы с книгой не забудьте ее закрыть. В конце статьи написано как это сделать.Как Выделить и Очистить диапазон ячеек

XL.Range("B1:H2").Select               'выделяет диапазон ячеек

XL.Selection.ClearContents               'очистка выбранных ячеек

Как Заполнить ячейки значениями

XL.Range("A1").Value = "Выражение 1"              'заполнение ячейки значением

XL.Range("B1").Value = "Выражение 2"              'заполнение ячейки значением

Как Сделать авторазмер столбцов и рядов

XL.Columns("A:A").EntireColumn.AutoFit              'устанавливает авторазмер столбца A

XL.Columns("B:B").EntireColumn.AutoFit              'устанавливает авторазмер столбца B

XL.Rows("1:1").EntireRow.AutoFit              'устанавливаем авторазмер ряда 1

XL.Rows("2:2").EntireRow.AutoFit              'устанавливаем авторазмер ряда 2

Как Выбрать другой лист в книге 'выбираем в нашей книге Лист2, выделяем ячейку I6

'и заносим туда значение 123

XL.Sheets("Лист2").Select

XL.Range("I6").Select

XL.ActiveCell.FormulaR1C1 = "123"

Как Вставить рисунок в лист

'установить курсор в ячейку А1

XL.Range("A1").Select

'вставить рисунок в выбранную ячейку
XL.ActiveSheet.Pictures.Insert("C:\Picture.jpg").Select
Как Отсортировать данные в алфавитном порядке
'выбираем в нашей книге Лист3
XL.Sheets("Лист3").Select
'вводим поочердно несколько имён
XL.Range("A1").Value = "Пётр"
XL.Range("A2").Value = "Владимир"
XL.Range("A3").Value = "Сергей"
XL.Range("A4").Value = "Александр"
'выделяем все четыре ячейки
XL.Range("A1:A4").Select
'сортировка по алфавиту от А до Я
XL.Selection.Sort Key1:=Range("A1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'сортировка по алфавиту от Я до А
XL.Selection.Sort Key1:=Range("A1"), _
Order1:= xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Как Сделать автозаполнение ячеек
'выделяем ячейку C1
XL.Range("C1").Select
'заносим 1
XL.ActiveCell.FormulaR1C1 = "1"
'выделяем ячейку C2
XL.Range("C2").Select
'заносим 2
XL.ActiveCell.FormulaR1C1 = "2"
'выделяем ячейки С1 и С2
XL.Range("C1:C2").Select
'включаем автозаполнение
XL.Selection.AutoFill Destination:=Range("C1:C21"), Type:=xlFillDefault
XL.Range("C1:C21").Select
Как Вызвать предварительный просмотр печати

'делаем приложение видимым
XL.Visible = True
'вызываем предварительный просмотр печати
XL.ActiveWindow.SelectedSheets.PrintPreview
Как Распечатать активный лист
'печать текущего листа
XL.ActiveWindow.SelectedSheets.PrintOut Copies:=1
Как Сохранить книгу

'сохраняем книгу
XL.ActiveWorkbook.Save

Как Сохранить книгу под другим именем
'сохраняем книгу под другим именем
XL.ActiveWorkbook.SaveAs "C:\MyNewWorkBook.xls"
Электрика водонепроницаемые часы