perl tk将界面输入的汉字不能输出到读取的EXCEL表格

如上面图所示，界面的汉字不能输出到读取的EXCEL表格，输出到文本可以，但作为变量传到读取的EXCEL表格成了乱码，我读取EXCEL表格是这样读取的
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; # die on errors...
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application'); # get already active Excel
my $Book = $Excel->Workbooks->open("f:/bb.xls"); # open Excel file
my $Sheet = $Book->Worksheets(1); # select worksheet number 1
$Sheet->Range("A1")->{'Value'}=[["$name2"]];

取出的值需要先进行转码。你可以试试下面这个：


use Unicode::UTF8simple;
$uref = new Unicode::UTF8simple;
$name2 = $uref->fromUTF8('gb2312',$name2);如果还不行的话，把取到的值输出到一个文件里，看一下倒底是什么编码，再考虑如何进行转码。

你好！ 可以把输入的内容做成下拉菜单，让客户选择，没有的输入告警，客户不存在，这样既能解决你的问题，又更适合给别人使用，毕竟不是每个人都知道有哪些客户型号。 仅代表个人观点，不喜勿喷，谢谢。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息