Конвертирование .xls в .csv в Linux

Для того, чтобы сконвертировать .xls в .csv, прибегнем к помощи утилиты xls2csv, установить которую в CentOS Linux можно, выполнив в командной строке следующую команду:

После успешной установки xls2csv, попробуем конвертировать наш файл .xls в .csv, для дальнейшего разбора данных. Для конвертации выполним команду:

Как вы уже наверное догадались, file.xls – это исходный файл в формате Excel, а file.csv – это полученный файл в результате конвертации. После выполнения последней команды, вы сможете получить все данные, присутствующие в файле file.xls, в файле .csv, согласно формату csv (данные разделенные запятой).   P.S. Данная утилита с некоторых пор стал входить в пакет catdoc. Поэтому, чтоб установить, теперь нужно выполнить команду:

  Источник: http://www.ithowto.ru/329-konvertirovanie-xls-v-csv-v-linux.html

Read more

Скрипт для Excel для переноса информации из Depoer в Oberone

Автор: Рудюк С . А. https://corp2.net E-Mail: rs@corp2.net С некоторых пор, все счета открытые в Depoer должны быть перенесены в Oberone. Для этого, предназначена программка Undepoer, которая частично формирует Excel-файл на основании базы данных Depoer. Пользователям приходится для того, чтоб корректно перенести информацию вручную добавлять строчку, вносить управляющую компанию ценными бумагами, а уже после этого – закачивать информацию. Все было бы хорошо, если бы счетов (строк в Excel-файле) было не много, но обычно это много-много тысяч… Понятное дело, в момент таких действий пользователь может допустить механическую ошибку, чем свести свои старания на нет. Не говоря уже о том, что тратится огромное количество времени… Для того, чтоб облегчить жизнь пользователя, мы разработали макрос, который выполняет такую работу: – Добавляет строку для каждого счета. – Заполняет информацию о управляющем бумагами. Текст данного макроса: Sub Макрос1() Rows(“3:3”).Select NumRows = 2495 NumRows = NumRows*2  For x = 2 To NumRows+1 If (x Mod 2) = 0 Then   ActiveCell.Rows.EntireRow.Select   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End If If (x Mod 2) = 0 Then Cells(x+1, 1).FormulaR1C1 = “Тут заполняем информацию в 1-й ячейке” Cells(x+1, 2).FormulaR1C1 = “Заполняем код компании” Cells(x+1, 3).FormulaR1C1 = “Заполняем название компании” Cells(x+1, 4).FormulaR1C1 = “Заполняем название компании“ End If ActiveCell.Offset(1, 0).Select Next End Sub Автор: Рудюк С . А. https://corp2.net

Read more