·ç

use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';
use strict;
print "please input the (in/out)file's full path\n";
print "excel file's name:";
my $in_file=<STDIN>;
chomp $in_file;
print "html file's name:";
my $out_file=<STDIN>;
chomp $out_file;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') ||
    Win32::OLE->new('Excel.Application');
$Excel->{'Visible'} = 0;  #0 is hidden, 1 is visible
$Excel->{DisplayAlerts}=0; #0 is hide alerts

# Open File and Worksheet
 my $Book = $Excel->Workbooks->Open
             ($in_file); # open Excel file
 $Book->SaveAs({
    FileName=>$out_file,
    FileFormat=>xlHtml
    }
    );
$Book->close();
$Excel->Quit();