初学perl,请教个问题...excel的..
时间：2010-11-08
来源：互联网
初学perl..学习了一下基本语法..看到了可以操作excel表格..很激动..于是..
复制代码
问题就在这个 $excel_file...
我这个xls文件和我的perl文件放在同一个目录下的,这样写也不行么? 好像会提示打不开或者error 0x800.....
如果换成绝对路径就可以了,比如 "E:\\perl_test\\excel_test.xls";
但这样方便么? 在一个项目中如果用到了这个东东..难道还要考虑这个项目放在哪个分区之类的么?/.///
- #!usr/bin/perl
- use strict;
- use Win32::OLE qw(in with);
- use Win32::OLE::Const 'Microsoft Excel';
- $Win32::OLE::Warn = 3; # die on errors...
-
- my $excel_file = "excel_test.xls";
- my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
- if (!-e $excel_file)
- {
- print STDOUT "excel file not exist\n";
- }
- my $excel_book = $Excel->Workbooks->Open($excel_file);
- my $excel_sheet = $excel_book->WorkSheets(1);
- my $result_value = $excel_sheet->Cells(1, 'A')->{Value};
- print STDOUT $result_value;
我这个xls文件和我的perl文件放在同一个目录下的,这样写也不行么? 好像会提示打不开或者error 0x800.....
如果换成绝对路径就可以了,比如 "E:\\perl_test\\excel_test.xls";
但这样方便么? 在一个项目中如果用到了这个东东..难道还要考虑这个项目放在哪个分区之类的么?/.///
作者: HonryZZ 发布时间: 2010-11-08
回复 HonryZZ
我没用过这个模块，不过真是模块的问题的话，要么你向维护人员提交 bug，要么使用 File::Spec，CWD 等模块把相对路径自动转换成绝对路径。
我没用过这个模块，不过真是模块的问题的话，要么你向维护人员提交 bug，要么使用 File::Spec，CWD 等模块把相对路径自动转换成绝对路径。
作者: Monox 发布时间: 2010-11-08
回复 HonryZZ
cwd也是这个文件夹吗？
cwd也是这个文件夹吗？
作者: zhlong8 发布时间: 2010-11-08
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
