Есть ли простой способ перевести XLS в файл в формате CSV без запуска оконного приложения Excel?
Мне нужно обработать некоторые книги Excel XLS со сценариями. Для этого мне нужно преобразовать файл xls в файл csv. Это можно сделать с помощью save-as из приложения Excel. Но я хотел бы автоматизировать это (так что не открывайте окно приложения Excel).
Достаточно, если первый лист из книги будет переведен в формат CSV. Мне нужно просто обрабатывать данные на этом листе.
У меня есть Cygwin и Excel, установленные в моей системе - если это помогает.
Изменить: Хорошо, у меня есть рабочее решение с Perl. Обновление для будущего использования другими.
Я установил модуль Spreadsheet:: ParseExcel. а затем использовать read-excel.pl образец.
Мой код - небольшое изменение этого примерного кода, как показано ниже.
#!/usr/bin/perl -w
# For each tab (worksheet) in a file (workbook),
# spit out columns separated by ",",
# and rows separated by c/r.
use Spreadsheet::ParseExcel;
use strict;
my $filename = shift || "Book1.xls";
my $e = new Spreadsheet::ParseExcel;
my $eBook = $e->Parse($filename);
my $sheets = $eBook->{SheetCount};
my ($eSheet, $sheetName);
foreach my $sheet (0 .. $sheets - 1) {
$eSheet = $eBook->{Worksheet}[$sheet];
$sheetName = $eSheet->{Name};
print "#Worksheet $sheet: $sheetName\n";
next unless (exists ($eSheet->{MaxRow}) and (exists ($eSheet->{MaxCol})));
foreach my $row ($eSheet->{MinRow} .. $eSheet->{MaxRow}) {
foreach my $column ($eSheet->{MinCol} .. $eSheet->{MaxCol}) {
if (defined $eSheet->{Cells}[$row][$column])
{
print $eSheet->{Cells}[$row][$column]->Value . ",";
} else {
print ",";
}
}
print "\n";
}
}
Обновить: вот Powershell script, с которым может быть легко работать; as-is from этот блог MSDN и ссылку SO.
$excel = New-Object -comobject Excel.Application
$workbooks = $excel.Workbooks.Open("C:\test.xlsx")
$worksheets = $workbooks.Worksheets
$worksheet = $worksheets.Item(1)
$range = $worksheet.UsedRange
foreach($row in $range.Rows)
{
foreach($col in $row.Columns)
{
echo $col.Text
}
}
Обновление: недавно я встретил инструмент Windows CSVed на Ответ суперпользователя, который может быть полезен для некоторых людей.
