#!/usr/bin/perl use warnings; use strict; use Win32::OLE; use Win32::OLE::Const 'Microsoft Excel'; use Win32::OLE qw(in with); use utf8; use Encode; my $editOWS_file = 'C:\\Users\\lordsll\\Downloads\\Chinese_output.out' +; open OUT1, ">:encoding(UTF-8)","$editOWS_file" or die "Can't write on +file $editOWS_file: $!\n"; my $Excel = Win32::OLE->new("Excel.Application"); $Excel->{Visible} = 1; my $Book = $Excel->Workbooks->Open("C:\\Users\\LordsLL\\Downloads\\pro +blem_sample.xlsx"); $Excel->Worksheets(1)->Activate(); my $cell = $Excel->Worksheets(1)->Range("A1")->{Value}; print OUT1 "$cell\n";
In reply to Read/Write Chinese Characters by lordsll
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |