- •Лабораторная работа №2. Форматирование текста в текстовом процессоре
- •Значения элементокоэффициентов Кэ
- •Учебно-тематический план по информатике
- •Лабораторная работа №4. Редактор формул microsoft equation 3.0
- •628400, Г. Омск, ул. Мира, д.25, тел.(3282) 24-11-97
- •Уважаемый ________!
- •План выпуска продукции по цехам
- •Расход материалов по каждому виду продукции
- •Сводная ведомость результатов экзаменационной сессии
- •Ведомость на выплату стипендии
- •Результаты выборов
- •Некоторые классы объектов
- •Контрольные вопросы
- •Библиографический список
- •Содержание
- •Приложение 1 Интегрированная среда программирования
- •Стандартные элементы управления Visaul basic
- •Управляющие структуры
- •Организация пользовательского интерфейса. Диалоговые окна
- •Формы как пользовательские окна диалога
- •Редактор кода
- •Приложение 2 примеры макросов для приложений microsoft ofice1
- •Конвертирование документа Word в текстовый файл (*.Txt)
- •Считывание текста документа Word не открывая его.
- •Форматирование печатной области документа
- •Вставка таблицы в текстовый документ
- •Проверка наличия в книге искомого листа
- •Открытие из Excel базы данных и считывание данных из ее таблицы в ячейки листа.
- •Создание нового файла Excel
- •Добавление в ячейку данных через Visual Basic
- •Вставка рисунка на лист
- •Вырезание, копирование и вставка копированием
- •Подсчет суммы в заданных ячейках
Создание нового файла Excel
Код создает новый файл и новый лист.
Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.
Set objExcel = New Excel.Application
objExcel.Visible = False
Set objWB = objExcel.Workbooks.Add
Set objSH = objExcel.Worksheets.Add
objExcel.ActiveWorkbook.SaveAs "Путь и имя файла"
objExcel.Quit
Set objExcel = Nothing
MsgBox "Файл " & "Путь и имя файла" & " создан", vbInformation, Tit
Добавление в ячейку данных через Visual Basic
Код открывает файл не отображая его, добавляет в ячейку А2 текст «Visual Basic», сохраняет и закрывает файл.
Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.
Dim Ex As New Excel.Application
Ex.Workbooks.Open <путь к Файлу>
Ex.Visible = False
'В ячейку "A2" добавляем "Visual Basic"
Ex.ActiveWorkbook.Sheets.Application.Range("A2") = "Visual_ Basic"
Ex.ActiveWorkbook.Save
Ex.ActiveWorkbook.Close
Вставка рисунка на лист
Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.
XL.Range("A1").Select 'установить курсор в ячейку А1
XL.ActiveSheet.Pictures.Insert("C:\Picture.jpg").Select _ 'вставить рисунок в выбранную ячейку
Вырезание, копирование и вставка копированием
Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.
Private Sub UserForm_Initialize()
TextBox1.Text = "Cut This text and Paste in Textbox2"
CommandButton1.Caption = "Cut and Paste"
CommandButton1.AutoSize = True
End Sub
Private Sub CommandButton1_Click()
TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
TextBox1.Cut
'TextBox1.Copy
TextBox2.SetFocus
TextBox2.SelStart = 0
TextBox2.Paste
TextBox2.SelStart = 0
End Sub
Подсчет суммы в заданных ячейках
Перед работой в Reference... поставьте ссылку на Microsoft Excel Object Library.
Dim Ex As New Excel.Application
Ex.Workbooks.Open "Путь к файлу"
Ex.Visible = False
Ex.ActiveWorkbook.Sheets.Application.Range("B1:B14").Select
Ex.ActiveWorkbook.Sheets.Application.Range("B14").Activate
Ex.ActiveWorkbook.Sheets.Application.ActiveCell.FormulaR1C1 = "=SUM(R[-13]C:R[-1]C)"
Ex.ActiveWorkbook.Sheets.Application.Range("B14").Select
Text1.Text = _ Ex.ActiveWorkbook.Sheets.Application.Range("B14")
Ex.ActiveWorkbook.Save
Ex.ActiveWorkbook.Close
1 Адрес ссылки