Vbs скрипт для excel

Базовые скрипты для сценариев Office в Excel

Ниже приведены простые скрипты, которые можно использовать в собственных книгах. Чтобы использовать их в Excel, выполните следующие действия:

1. Откройте книгу в Excel.
2. Откройте вкладку Автоматизировать.
3. Выберите Создать сценарий.
4. Замените весь скрипт образцом по своему выбору.
5. Выберите Выполнить в области задач редактора кода.

Основные сведения о скриптах

В этих примерах демонстрируются основные стандартные блоки для сценариев Office. Разверните эти скрипты, чтобы расширить решение и решить распространенные проблемы.

Чтение и ведение журнала одной ячейки

Этот пример считывает значение A1 и выводит его на консоль.

Чтение активной ячейки

Этот скрипт регистрирует значение текущей активной ячейки. Если выбрано несколько ячеек, верхняя левая ячейка будет зарегистрирована.

Добавление данных в диапазон

Этот скрипт добавляет набор значений на новый лист. Значения начинаются в ячейке A1. Данные, используемые в этом скрипте, предопределены, но могут быть источником из других мест в книге или из нее.

Изменение соседней ячейки

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

Изменение всех смежных ячеек

Этот скрипт копирует форматирование в активной ячейке в соседние ячейки. Обратите внимание, что этот скрипт работает только в том случае, если активная ячейка не размещена на краю листа.

Изменение каждой отдельной ячейки в диапазоне

Этот скрипт выполняет цикл над текущим диапазоном выбора. Он очищает текущее форматирование и задает цвет заливки в каждой ячейке случайным цветом.

Получение групп ячеек на основе специальных условий

Этот скрипт получает все пустые ячейки в используемом диапазоне текущего листа. Затем он выделяет все эти ячейки желтым фоном.

Видимость строк и столбцов

В этих примерах показано, как отображать, скрывать и закреплять строки и столбцы.

Скрытие столбцов

Этот скрипт скрывает столбцы «D», «F» и «J».

Показать все строки и столбцы

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

Заморозка выделенных ячеек

Этот скрипт проверяет, какие ячейки выбраны в настоящее время, и замораживает выделение, чтобы эти ячейки всегда были видимы.

Коллекции

Эти примеры работают с коллекциями объектов в книге.

Итерации по коллекциям

Этот скрипт получает и регистрирует имена всех листов в книге. Он также задает для цветов вкладки случайный цвет.

Запрос и удаление из коллекции

Этот скрипт создает новый лист. Он проверяет наличие существующей копии листа и удаляет ее перед созданием нового листа.

В примерах в этом разделе показано, как использовать объект JavaScript Date .

В следующем примере возвращается текущая дата и время, а затем эти значения записываются в две ячейки активного листа.

Следующий пример считывает дату, хранящуюся в Excel, и преобразует ее в объект JavaScript Date. Он использует числовой серийный номер даты в качестве входных данных для даты JavaScript. Этот серийный номер описан в статье о функции NOW().

Таблицы

Примеры в этом разделе демонстрируют распространенные взаимодействия с таблицами Excel.

Создание отсортированных таблиц

Этот пример создает таблицу из используемого диапазона текущего листа, а затем сортирует ее по первому столбцу.

Фильтрация таблицы

Этот пример фильтрует существующую таблицу, используя значения в одном из столбцов.

Скопируйте отфильтрованные сведения в книгу с помощью Range.copyFrom . Добавьте следующую строку в конец сценария, чтобы создать новый лист с отфильтрованными данными.

Динамические ссылки на табличные значения

Этот скрипт использует синтаксис @COLUMN_NAME для задания формул в столбце таблицы. Имена столбцов в таблице можно изменить, не изменяя этот скрипт.

Перед скриптом

Month	ЦЕНА	Проданные единицы	Итого
Января	45	5
Февраля	45	3
Мар	45	6

После скрипта

Month	ЦЕНА	Проданные единицы	Итого
Января	45	5	225
Февраля	45	3	135
Мар	45	6	270

Отображение данных

В этих примерах показано, как работать с данными на листе и предоставлять пользователям лучшее представление или организацию.

Применение условного форматирования

В этом примере применяется условное форматирование к используемому в настоящее время диапазону на листе. Условное форматирование — это зеленая заливка для верхних 10 % значений.

Запись значений «Общий итог» из сводной таблицы

Этот пример находит первую сводную таблицу в книге и записывает значения в ячейки «Общий итог» (как выделено зеленым цветом на рисунке ниже).

Создание раскрывающегося списка с помощью проверки данных

Этот скрипт создает раскрывающийся список выделения для ячейки. В качестве вариантов для списка используются существующие значения выбранного диапазона.

Формулы

В этих примерах используются формулы Excel и показано, как работать с ними в скриптах.

Одна формула

Этот скрипт задает формулу ячейки, а затем показывает, как Excel сохраняет формулу и значение ячейки отдельно.

Обработка ошибки, #SPILL! возвращаемой формулой

Этот скрипт транспонирует диапазон «A1:D2» в «A4:B7» с помощью функции TRANSPOSE. Если транспонирование приводит к #SPILL ошибке, оно очищает целевой диапазон и снова применяет формулу.

Замените все формулы их результирующих значений

Этот скрипт заменяет каждую ячейку текущего листа, содержащую формулу с результатом этой формулы. Это означает, что после выполнения скрипта не будет никаких формул, только значения.

Предложить новые примеры

Мы приветствуем предложения по новым образцам. Если существует распространенный сценарий, который поможет другим разработчикам скриптов, сообщите нам в разделе отзывов в нижней части страницы.

Источник

simply-coded / CreateExcelFile.vbs

This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters

‘Microsoft Excel Automation Basics

‘:: Create and edit an Excel File.

‘———————————

‘create the excel object

Set objExcel = CreateObject( «Excel.Application» )

‘view the excel program and file, set to false to hide the whole process

objExcel.Visible = True

‘add a new workbook

Set objWorkbook = objExcel.Workbooks.Add

‘set a cell value at row 3 column 5

objExcel.Cells( 3 , 5 ).Value = «new value»

‘change a cell value

objExcel.Cells( 3 , 5 ).Value = «something different»

‘delete a cell value

objExcel.Cells( 3 , 5 ).Value = «»

‘get a cell value and set it to a variable

r3c5 = objExcel.Cells( 3 , 5 ).Value

‘save the new excel file (make sure to change the location) ‘xls for 2003 or earlier

objWorkbook.SaveAs «C:UsersUserNameDesktopvbsTest.xlsx»

‘close the workbook

objWorkbook.Close

‘exit the excel program

objExcel.Quit

‘release objects

Set objExcel = Nothing

Set objWorkbook = Nothing

This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters

Источник

Automation: быстрый старт или «А ну-ка, Excel, пиши за меня сам!»

Небольшой топик-шпаргалка для быстрого написания скриптов для автоматической обработки документов ms office’а. А так же для помощи в преодолении синдрома чистого листа.

Как правильно заметили в недавнем топике, сама работа скрипта может быть и не быстрой, но чаще важнее сам результат, да и объёмы далеко не всегда такие большие. Зато Automation позволяет написать скрипт практически на любом языке. Здесь я выдам заготовки для JavaScript и IronPython, но, надеюсь, в комментариях найдётся место и для других языков (например, на PowerShell).

Чуть-чуть лирики

Для работы через automation нужен следующий минимум:

• MS Office (если есть документы, то он, видимо, есть/будет установлен)
• Интерпретатор выбранного языка (для JS, VBS и PowerShell этот пункт не актуален)
• Ещё раз MS Office для подглядывание за генерацией кода в VBA (в записываемых макросах)

Ещё раз повторюсь. Цель — быстро написать скрипт без сложных требований (производительность, встраивание, работа без ms office и т.п.).

Собственно, код

Имхо, самый разумный вариант — это JScript или VBScript (точнее Windows script host), т.к. интерпретатор уже идёт с операционной системой, и можно раздавать скрипт друзьям/коллегам, не требуя от них никаких дополнительных действий — перетащил xls(x)-файл на скрипт в explorer’е и работа пошла:

Главный недостаток — сложно отлаживаться (только что убил полчаса на цикл for — нумерация с 0 выдавала ошибку о пропущенной точке с запятой).

Но если цель — написать быстро, а JS/VBS известны гораздо хуже родного и знакомого питона, то (IronPython):

Немного полезных фактов

Самая главная подсказка — редактор макросов в Excel. Записываем действие, которое хотим выполнить (View -> Macros -> Record macro. , имя значения не имеет), открываем его код (View -> Macros -> View macros. ) и делаем по образу и подобию. Сама запись макроса — просто набор действий, которые хочется автоматизировать. Например, вставить или изменить какое-то значение, поменять цвет/шрифт и т.п. Запись макроса лучше производить в отдельном документе, во избежание.

Для лучшей ориентации в мире объектов объектном мире Excel — система классов (тоже самое, но для Office 2010).

Источник

VBScript Tutorial 8

VBScript Tutorial 8

(Excel Object Model in VBScript)

Excel Application operations using Excel Application Object

Excel Application Object:

It is used to perform operations on Excel Application.

Create Excel Application Object:

Set Variable = CreateObject(“Excel.Application”)
———————-
Excel Application

Excel Workbook / File

Excel Worksheet / Sheet

Excel File Operations using VBScript Examples:

1) Create an Excel file
Dim objExcel
Set objExcel = CreateObject(“Excel.Application”)
objExcel.Visible = True ‘To view the operation (Creating Excel file) during Execution.

objExcel.Workbooks.Add ‘Create New Workbook / file

objExcel.ActiveWorkbook.SaveAs “C:UsersgcreddyDesktopQTP.xls” ‘Save the Excel workbook /file

objExcel.Quit ‘To close the Excel Application
Set objExcel = Nothing ‘To release the memory
—————————————————
2) Check the existence of QTP file, if not exist then create the file.Dim objFso, objExcel, FilePath
FilePath = “C:UsersgcreddyDesktopQTP.xls”
Set objFso = CreateObject(“Scripting.FileSystemObject”)
Set objExcel = CreateObject(“Excel.Application”)

If Not objFso.FileExists(FilePath) Then
objExcel.Workbooks.Add ‘Create New Workbook / file
objExcel.ActiveWorkbook.SaveAs FilePath
objExcel.Quit
End If

Set objExcel = Nothing ‘To release the memory
—————————————————-
3) Check the existence of QTP file, if exists then open the file and enter some data, If not exist then create the file and enter some data (Using Excel Application Object only)
Dim objFso, objExcel, FilePath

FilePath = “C:UsersgcreddyDesktopQTP.xlsx”
Set objFso = CreateObject(“Scripting.FileSystemObject”)
Set objExcel = CreateObject(“Excel.Application”)

If Not objFso.FileExists(FilePath) Then
objExcel.Workbooks.Add
objExcel.Worksheets(1).Cells(1, 1) = “Hello UFT”
objExcel.ActiveWorkbook.SaveAs FilePath
Else
objExcel.Workbooks.Open (FilePath)
objExcel.Worksheets(1).Cells(1, 1) = “Hello UFT”
objExcel.ActiveWorkbook.Save
End If
objExcel.Quit

Set objExcel = Nothing

Excel Object Model in VBScript

Excel Objects

1) Excel Application Object
It is used to perform operations on Excel Application.

Set Variable = CreateObject(“Excel.Application”)
——————————–
2) Excel Workbook object
It is used to work with specified Excel file / Workbook

Set Variable = ExcelApplicationObject.Workbooks.Add / Open(“Filepath”)
——————————–
3) Excel Worksheet object
It is used to work with specified work sheet

Set Varaible = ExcelWorkbookObject.Worksheets(Sheet Id / “Sheet name”)
——————————————————-
Excel Application is always only one.

We may have one or more Workbooks.

We may have multiple sheets in every workbook.
———————————————
> Using (“Excel.Application”) class value we create Excel Application Object.

> We create Excel Workbook object using Excel Application Object.

> We create Excel Worksheet object using Excel workbook object.
————————————–
Difference between File system object model and Excel object model in case of Sub objects.

In File system object model creating Text stream object is mandatory to perform File internal operations like Read, Write, Compare, Search etc…

In Excel Object model creating sub and sub-sub objects optional, if you want to work with multiple files and multiple sheets then we can use sub and sub-sub objects.
———————————————————-
4) Check the existence of QTP file, if exists then open the file and enter some data, If not exist then create the file and enter some data (Using Main and sub objects)

Dim objFso, objExcel, objWorkbook, objWorksheet, FilePath

FilePath = “C:UsersgcreddyDesktopQTP.xlsx”
Set objFso = CreateObject(“Scripting.FileSystemObject”)
Set objExcel = CreateObject(“Excel.Application”)

If Not objFso.FileExists(FilePath) Then
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Cells(1, 1) = “Hello UFT”
objWorkbook.SaveAs FilePath
Else
Set objWorkbook = objExcel.Workbooks.Open (FilePath)
Set objWorksheet = objworkbook.Worksheets(1)
objWorksheet.Cells(1, 1) = “Hello UFT”
objWorkbook.Save
End If
objExcel.Quit

Set objExcel = Nothing
————————————————
5) Read data form Excel file and perform Data driven Testing for Login Functionality.
Dim objExcel, objWorkbook, objWorksheet, i, RowsCount

Set objExcel = CreateObject(“Excel.Application”)
Set objWorkbook = objExcel.Workbooks.Open(“C:UsersgcreddyDesktopQTP.xlsx”)
Set objWorksheet = objWorkbook.Worksheets(1)

For i = 2 To RowsCount Step 1
SystemUtil.Run “C:Program FilesHPUnified Functional Testingsamplesflightappflight4a.exe”
Dialog(“Login”).Activate
Dialog(“Login”).WinEdit(“Agent Name:”).Set objWorksheet.Cells(i, “A”) ‘i is Row, A is Column Name
Dialog(“Login”).WinEdit(“Password:”).Set objWorksheet.Cells(i, 2) ‘ 2 is Column id
wait 2
Dialog(“Login”).WinButton(“OK”).Click
Window(“Flight Reservation”).Close
Next
objExcel.Quit

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
————————————————
6) Read data form Excel file and perform Data driven Testing for Login Functionality. And write Test Result to the Same file 3rd column.
Dim objExcel, objWorkbook, objWorksheet, i, RowsCount

Set objExcel = CreateObject(“Excel.Application”)
Set objWorkbook = objExcel.Workbooks.Open(“C:UsersgcreddyDesktopQTP.xlsx”)
Set objWorksheet = objWorkbook.Worksheets(1)

For i = 2 To RowsCount Step 1
SystemUtil.Run “C:Program FilesHPUnified Functional Testingsamplesflightappflight4a.exe”
Dialog(“Login”).Activate
Dialog(“Login”).WinEdit(“Agent Name:”).Set objWorksheet.Cells(i, “A”) ‘i is Row, A is Column Name
Dialog(“Login”).WinEdit(“Password:”).Set objWorksheet.Cells(i, 2) ‘ 2 is Column id
wait 2
Dialog(“Login”).WinButton(“OK”).Click

If Window(“Flight Reservation”).Exist (12) Then
Window(“Flight Reservation”).Close
objWorksheet.Cells(i, 3) = “Login Successful – Passed”
Else
SystemUtil.CloseDescendentProcesses
objWorksheet.Cells(i, 3) = “Login Unsuccessful – Failed”
End If
Next
objWorkbook.Save
objExcel.Quit

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
————————————————
7) Read data form Excel file and perform Data driven Testing for Login Functionality. And write Test Result and Error messages to the same file.Dim objExcel, objWorkbook, objWorksheet, i, RowsCount

Set objExcel = CreateObject(“Excel.Application”)
Set objWorkbook = objExcel.Workbooks.Open(“C:UsersgcreddyDesktopQTP.xlsx”)
Set objWorksheet = objWorkbook.Worksheets(1)

For i = 2 To RowsCount Step 1
SystemUtil.Run “C:Program FilesHPUnified Functional Testingsamplesflightappflight4a.exe”
Dialog(“Login”).Activate
Dialog(“Login”).WinEdit(“Agent Name:”).Set objWorksheet.Cells(i, “A”) ‘i is Row, A is Column Name
Dialog(“Login”).WinEdit(“Password:”).Set objWorksheet.Cells(i, 2) ‘ 2 is Column id
wait 2
Dialog(“Login”).WinButton(“OK”).Click

If Window(“Flight Reservation”).Exist (12) Then
Window(“Flight Reservation”).Close
objWorksheet.Cells(i, 3) = “Login Successful – Passed”
Else
objWorksheet.Cells(i, 4) = Dialog(“Login”).Dialog(“Flight Reservations”).Static(“Agent name must be at”).GetROProperty(“text”)
SystemUtil.CloseDescendentProcesses
objWorksheet.Cells(i, 3) = “Login Unsuccessful – Failed”
End If
Next
objWorkbook.Save
objExcel.Quit

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
——————————————–
Read Button Names from Login Dialog and export to Excel file 2nd sheet. Dim objExcel, objWorkbook, objWorksheet, oButton, Buttons, i

Set objExcel = CreateObject(“Excel.Application”)
Set objWorkbook= objExcel.Workbooks.Open (“C:UsersgcreddyDesktopQTP.xlsx”)
Set objworksheet = objWorkbook.Worksheets(2)

Set oButton = Description.Create
oButton(“Class Name”).Value = “WinButton”

Set Buttons = Dialog(“Login”).ChildObjects(oButton)
Msgbox Buttons.Count

objWorksheet.cells(1, 1) = “Button Names”

For i = 0 To Buttons.Count – 1 Step 1
objWorksheet.cells(i+2, 1) = Buttons(i).GetRoProperty(“text”)
Next
objWorkbook.Save
objExcel.Quit

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objexcel = Nothing
—————————————————
9) Read Link names from Google Home page and export to Excel file 3rd sheet .Dim objExcel, objWorkbook, objWorksheet, oLink, Links, i

Set objExcel = CreateObject(“Excel.Application”)
Set objWorkbook= objExcel.Workbooks.Open (“C:UsersgcreddyDesktopQTP.xlsx”)
Set objworksheet = objWorkbook.Worksheets(3)

Set oLink = Description.Create
oLink(“micclass”).Value = “Link”

Set Links = Browser(“Google”).Page(“Google”).ChildObjects(oLink)
Msgbox Links.Count

objWorksheet.cells(1, 1) = “Link Names”

For i = 0 To Links.Count – 1 Step 1
objWorksheet.cells(i+2, 1) = Links(i).GetRoProperty(“text”)
Next
objWorkbook.Save
objExcel.Quit

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objexcel = Nothing
—————————————————
10) Read Customer names from 1 to 10 Records and export to Excel
Dim objExcel, objWorkbook, objWorksheet, Customer_Name, i

Set objExcel = CreateObject(“Excel.Application”)
Set objWorkbook= objExcel.Workbooks.Open (“C:UsersgcreddyDesktopQTP.xlsx”)
Set objworksheet = objWorkbook.Worksheets(2)

objWorksheet.cells(1, 1) = “Customer Names”
For i = 1 To 10 Step 1
Window(“Flight Reservation”).Activate
Window(“Flight Reservation”).WinButton(“Button”).Click
Window(“Flight Reservation”).Dialog(“Open Order”).WinCheckBox(“Order No.”).Set “ON”
Window(“Flight Reservation”).Dialog(“Open Order”).WinEdit(“Edit”).Set i
Window(“Flight Reservation”).Dialog(“Open Order”).WinButton(“OK”).Click
Customer_Name = Window(“Flight Reservation”).WinEdit(“Name:”).GetROProperty(“text”)
objWorksheet.Cells(i+1, 1) = Customer_Name
Next
objWorkbook.Save
objExcel.Quit

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objexcel = Nothing
————————————————–
11) Create an Excel File and Rename 1st sheet as “Module”, 2nd sheet as “TestCase”, and 3rd sheet as “TestStep”.
Dim objExcel
Set objExcel = CreateObject(“Excel.Application”)

objExcel.Workbooks.Add
objExcel.Worksheets(1).Name = “Module”
objExcel.Worksheets(2).Name = “TestCase”
objExcel.Worksheets(3).Name = “TestStep”

objExcel.ActiveWorkbook.SaveAs “C:UsersgcreddyDesktopQTP2.xlsx”
objExcel.Quit
Set objExcel = Nothing

12) Create an Excel file and Add one more sheet.Dim objExcel
Set objExcel = CreateObject(“Excel.Application”)

objExcel.Workbooks.Add ‘Create New workbook
objexcel.Worksheets.Add ‘Create New worksheet

objExcel.ActiveWorkbook.SaveAs “C:UsersgcreddyDesktopQTP3.xlsx”
objExcel.Quit
Set objExcel = Nothing
———————————————
Assignment:
Create an Excel file and Move 1st sheet to 3rd position.

Sheet1 Sheet2 sheet3

Move 1st sheet to 3rd position

Sheet2 Sheet3 Sheet1
————————————————–
Comparison examples:

i) One to one comparison (Textual and binary)

ii) Many to many comparison
————————————————-

Follow me on social media:

Источник