Очень нужен скрипт

[Andrewslim]

Всем доброго времени суток!
Нужно написать скрипт, очень часто приходится делать эту операцию с разными файлами.
Суть такова:
1. Открыть файл excel
2. В файле удалить строки по номерам
3. В файле удалить столбики по номерам
4. В одном столбике сделать "Числовой формат с числом десятичных знаков "ноль" и указать формат данных "с разделителями"
5. Вставить столбик слева от "определенного номера"
6. Сохранить файл в этом же формате.

 

[ra4o]

Попробуйте так :

#include <excel.au3>

$sExcel = @ScriptDir & '\1.xlsx'

$oExcel = _Excel_Open(False)
$oExcelBook = _Excel_BookOpen($oExcel, $sExcel)
;Удалить строки с 10 по 18
$oExcelBook.Activesheet.Rows("10:18").Delete
;Удалитьб столбцы с С по Е
$oExcelBook.Activesheet.Columns("C:E").Delete
;Вставаить столбец "D"
$oExcelBook.Activesheet.Columns("D").Insert()
;В одном столбике сделать "Числовой формат с числом десятичных знаков "ноль" и указать формат данных "с разделителями"
$oExcelBook.Activesheet.Columns("C").NumberFormat = "#,##0"
_Excel_Close($oExcel)

 

[Andrewslim]

Попробуйте так :

#include <excel.au3>

$sExcel = @ScriptDir & '\1.xlsx'

$oExcel = _Excel_Open(False)
$oExcelBook = _Excel_BookOpen($oExcel, $sExcel)
;Удалить строки с 10 по 18
$oExcelBook.Activesheet.Rows("10:18").Delete
;Удалитьб столбцы с С по Е
$oExcelBook.Activesheet.Columns("C:E").Delete
;Вставаить столбец "D"
$oExcelBook.Activesheet.Columns("D").Insert()
;В одном столбике сделать "Числовой формат с числом десятичных знаков "ноль" и указать формат данных "с разделителями"
$oExcelBook.Activesheet.Columns("C").NumberFormat = "#,##0"
_Excel_Close($oExcel)

Спасибо!