Perl Копирование данных из csv в книгу Excel - PullRequest
Новая
       75

Perl Копирование данных из csv в книгу Excel

0 голосов
/ 26 ноября 2018

Я пытаюсь открыть файл csv и скопировать данные из него, чтобы вставить его во вкладку в уже созданной книге excel (2016).

Похоже, моя проблема связана с правильным доступом к файлу csv,Вот мой код 

use utf8;
use Cwd;
use warnings;
use strict;
use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const "Microsoft Office .* Object Library"; 

my $Excel  = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
$Excel->{Visible} = 0;
$Excel->{DisplayAlerts}=0;

my $XLSX_LOG_IN = "book1.xlsx";
my $Book_In = $Excel->Workbooks->Open("$XLSX_LOG_IN") or die "Excel Logfile Workbook not opened - Ensure file 'book1.xlsx' is in the working directory\n";

my $csv_in = $Excel->Workbooks->Open("$csv") or die "Excel Logfile Workbook not opened - Ensure file \"$csv\" is in the working directory\n";
my @s_ins = in $csv_in->worksheets;
my $s_in = $s_ins[0];
my $name = $csv_in->Worksheets($s_in)->{Name};
print "$s_in - sheet I'm trying to open\n";
print "$name - sheet I'm trying to open\n";
my $res_sheet = $csv_in -> Worksheets("$name");
my $last_row = $res_sheet -> UsedRange -> Find({What => "*", SearchDirection => 2, SearchOrder => 1})    -> {Row};
my $last_col = $res_sheet -> UsedRange -> Find({What => "*", SearchDirection => 2, SearchOrder => 2}) -> {Column};

my $range = "A1:".$last_col.$last_row;
$res_sheet->range($range)->copy();

my $ResReport = $Book_In -> Worksheets("ModelReserveReport");
$ResReport->range('A1')->Select();
$ResReport->paste();
$csv_in->Close();

Я получаю следующую ошибку Win32 :: OLE (0.1712) ошибка 0x8002000b: «Неверный индекс»

Я думаю, что я либо не указываю Excel вправоИмя листа или у меня есть метод для нахождения последней строки и столбца неправильно, но я изо всех сил пытаюсь найти, как исправить.Кто-нибудь может определить мою ошибку?

1 Ответ

0 голосов
/ 10 декабря 2018

Я исправил это, отредактировав мои последние 6 строк кода

Я сделал выделение на исходном листе 

my $range = "A1:CZ".$last_row;
$res_sheet->range($range)->copy();

и удалил выделение перед вставкой моих данных 

my $ResReport = $Book_In -> Worksheets("ModelReserveReport");
$ResReport->paste();
$csv_in->Close();

Копирование / вставка теперь работает.

...