Параметры ByVal и ByRef в VBScript (VBS)
В данной статье речь пойдёт про параметры ByVal и ByRef, которые позволяют передавать значения в процедуры и функции по значению или по ссылке.
Рубрика: VBScript (VBS)
Параметры ByVal и ByRef в VBScript (VBS)
Тест по VBScript
Тест по VBScript
В тесте содержатся базовые вопросы по скриптовому языку программирования VBScript.
Массивы в VBScript (VBS)
Массивы в VBScript (VBS)
На примерах рассмотрены массивы языка VBScript. Также рассмотрены функции, которые можно применять к массивам.
Получение информации о файле при помощи VBScript (VBS)
Получение информации о файле при помощи VBScript (VBS)
В этой статье я покажу вам, как можно получить и отобразить данные о каком-либо файле при помощи скриптового языка программирования VBScript.
Информация о диске при помощи VBScript (VBS)
Информация о диске при помощи VBScript (VBS)
При помощи объекта FileSystemObject в VBScript можно получить различные данные о файловой системе.
В этой статье я покажу вам, как получить характеристики определённого диска с помощью него.
Вывод информации об операционной системе при помощи VBScript (VBS)
Вывод информации об операционной системе при помощи VBScript (VBS)
В этой статье показано как получить информацию об установленной операционной системе, а именно данные о названии, версии, дате установки, лицензионном ключе и тому подобном.
Работа с таблицами в Word при помощи VBScript (VBS)
Работа с таблицами в Word при помощи VBScript (VBS)
В статье объясняется, как можно автоматизировать создание, форматирование и заполнение таблиц в Word при помощи VBScript.
Работа с Excel при помощи VBScript (VBS)
Работа с Excel при помощи VBScript (VBS)
В данной статье я научу вас автоматизировать Microsoft Excel средствами VBS. В прошлой статье я описывал работу с Word. Привожу сразу код, так как он подробно прокомментирован:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
Option Explicit Dim oExcelApp ' Объявляем переменные Dim oRangeD2D8 Dim oRangeH2J8 Set oExcelApp = CreateObject("Excel.Application") ' Создаём объект с Excel-ем oExcelApp.Visible = True ' Делаем Excel видимым oExcelApp.Workbooks.Add ' Добавляем книгу в Excel oExcelApp.Cells(2,2).Font.Bold = True ' Делаем текст жирным в ячейке 1,1 oExcelApp.Cells(2,2).Font.Size = 20 ' Устанавливаем размер шрифта oExcelApp.Cells(2,2).Font.ColorIndex = 2 ' Устанавливаем цвет текста oExcelApp.Cells(2,2).Interior.ColorIndex = 1 ' Устанавливаем цвет ячейки oExcelApp.Cells(2,2).Value = "Test" ' Добавляем данные Set oRangeD2D8 = oExcelApp.Range("D2","D8") ' Получаем доступ к ряду ячеек oRangeD2D8.Font.Size = 16 ' Устанавливаем размер шрифта oRangeD2D8.Font.Italic = True ' Делаем курсивный текст oRangeD2D8.Font.Underline = True ' Делаем текст подчёркнутым oRangeD2D8.Value = "Test" ' Устанавливаем для всех них текст Dim i For i = 2 To 6 oExcelApp.Cells(i,6).Value = i ' заполняем ячейки числами Next oExcelApp.Cells(8,6).Font.Bold = True oExcelApp.Cells(8,6).Font.Underline = True oExcelApp.Cells(8,6).Font.Size = 24 oExcelApp.Cells(8,6).Formula = "=SUM(F2:F6)" ' Добавляем формулу, которая в ячейке F8 отобразит сумму ранее добавленных цифр Set oRangeH2J8 = oExcelApp.Range("H2","J8") ' Получаем доступ к ячейкам H2:J8 oRangeH2J8.Merge ' Объединяем группу ячеек oExcelApp.Save ' Сохраняем Excel файл oExcelApp.Quit ' Закрываем Excel |
Результат работы скрипта: Помогла ли вам данная статья, ответьте в комментариях.
Работа с Word при помощи VBScript (VBS)
Работа с Word при помощи VBScript (VBS)
Всем привет. В данной статье я расскажу вам про базовый функционал для работы с Microsoft Office при помощи VBS. Ниже привожу код, который я подробно прокомментировал:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Option Explicit ' Инструкция, которая будет "ругаться", если переменные не будут явно объявляться Dim oWord ' объявляем переменные Dim oDoc Dim oSelectionPlace Set oWord = CreateObject("Word.Application") ' Создаём объект с Word-ом oWord.Visible = True ' делаем видимым Word Set oDoc = oWord.Documents.Add() ' Добавляем документ Set oSelectionPlace = oWord.Selection ' Получаем доступ к выделенной области oSelectionPlace.TypeParagraph() ' Делаем параграф oSelectionPlace.Paragraphs.Alignment = 1 ' Выравнивание текста по центру. 0 - левый край, 1 - по центру, 2 - правый край, 3 - по ширине oSelectionPlace.Font.Name = "Calibri" ' Указываем желаемый шрифт oSelectionPlace.Font.Size = "40" ' Указываем размер шрифта oSelectionPlace.Font.Bold = True ' Устанавливаем жирный текст oSelectionPlace.Font.Color = RGB(19, 77, 158) ' Устанавливаем цвет текста oSelectionPlace.TypeText "Progtask.ru" ' Вводим текст oSelectionPlace.TypeParagraph() ' Делаем параграф oSelectionPlace.Font.Size = "20" ' Устанавливаем размер шрифта oSelectionPlace.Font.Color = RGB(167, 8, 93) ' Устанавливаем цвет текста oSelectionPlace.TypeText "Записки программиста" ' Вводим текст oDoc.Save ' сохраняем документ oDoc.Close ' закрываем документ oWord.Quit ' закрываем Word |
Результат выполнения данного скрипта: Кстати, для того чтобы русский текст отображался нормально, а не кракозябрами, файл необходимо сохранять в кодировке UCS-2 LE BOM. Это можно сделать к примеру […]
Страница 1 из 1