_ExcelRowInsert
Вставляет указанное количество строк в активном листе открытой рабочей книги Excel..
#include <Excel.au3>
_ExcelRowInsert($oExcel, $iRow [, $iNumRows = 1])
Параметры
$oExcel | Ссылка на COM-объект "Excel.Application" полученная ранее вызванными _ExcelBookOpen(), _ExcelBookNew(), или _ExcelBookAttach() |
$iRow |
Номер строки над которой будет происходить вставка новой строки |
$iNumRows |
[необязательный] Количество вставляемых строк |
Возвращаемое значение
Успех: | 1 |
Ошибка: | Возвращает 0, Устанавливает значение флага ошибки @error: |
@error: | 0 - Скрипт завершил работу без ошибок |
1 - Ошибка OLE/COM ($oExcel), возможно указанный объект не существует | |
2 - Недопустимое значение параметра ($iRow) |
Примечания
Добавление строк этим методом, вызывает сдвиг заполненных строк вниз.Пример
; ***************************************************************************
; Пример 1 - Добавление 1 строки в активный лист открытой рабочей книги Excel
; ***************************************************************************
#include <Excel.au3>
Local $oExcel = _ExcelBookNew() ; Создаем новую рабочую книгу
For $i = 1 To 5
_ExcelWriteCell($oExcel, $i, $i, 1) ; Записываем в ячейки, с вертикальным смещением равным нарастанию счетчика, числа от 1 до 5
Next
ToolTip("Обратите внимание на первую строку...")
Sleep(2000) ; Пауза 2 сек.
_ExcelRowInsert($oExcel, 1, 1) ; Вставляем 1 строку над первой строкой
MsgBox(4096, "_ExcelRowInsert | Пример 1", "Демонстрация завершена, нажмите ОК")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Сохраняем файл в директории временных файлов, перезаписывая если необходимо.
_ExcelBookClose($oExcel) ; Закрываем рабочую книгу
; ***********************************************************************************
; Пример 2 - Добавление нескольких строк в активный лист открытой рабочей книги Excel
; ***********************************************************************************
#include <Excel.au3>
Local $oExcel = _ExcelBookNew() ; Создаем новую рабочую книгу
For $i = 1 To 5
_ExcelWriteCell($oExcel, $i, $i, 1) ; Записываем данные в ячейки с вертикальным смещением равным нарастанию счетчика - числа от 1 до 5
Next
ToolTip("Обратите внимание на вторую строку...")
Sleep(2000) ; Пауза 2 сек.
_ExcelRowInsert($oExcel, 2, 3) ; Вставляем 3 строки над второй строкой
MsgBox(4096, "_ExcelRowInsert | Пример 2", "Демонстрация завершена, нажмите ОК")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Сохраняем файл в директории временных файлов, перезаписывая если необходимо.
_ExcelBookClose($oExcel) ; Закрываем рабочую книгу