Что нового

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

Andrewslim

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

ra4o

AutoIT Гуру
Сообщения
1 101
Репутация
223
Попробуйте так :
Код:
#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)
 
  • Like
Реакции: InnI
Автор
A

Andrewslim

Новичок
Сообщения
8
Репутация
0
Попробуйте так :
Код:
#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)
Спасибо!
 
Верх