Perl win32::OLE 操作excel的教程说明
答案:1 悬赏:40 手机版
解决时间 2021-01-16 20:55
- 提问者网友：却不属于对方
- 2021-01-15 23:27
Perl win32::OLE 操作excel的教程说明
最佳答案
- 五星知识达人网友：忘川信使
- 2021-01-16 00:40
兄弟，这不是抄来的，而是把VBA (Visual Basic)码按Win32 OLE直接转化过来的。。。
我下面再举个例子，附上原来的VBA码，你就明白了。。。
要解决你的问题，去看VBA的书，然后相应得转化就是了。。。
www.perlmonks.org/index.pl?node_id=153486
================================================
use warnings; #Option Explicit
use Win32::OLE;
use Win32::OLE::Variant;
# Dim ex
#Set ex = CreateObject(Excel.Application)
$ex = Win32::OLE->new('Excel.Application', \&OleQuit) or die "oops\n";
#ex.Visible = 1
$ex->{Visible} = 1;
# ex.Workbooks.Add()
$ex->Workbooks->Add;
# Dim ovR8
# ovR8 = "3 is a good number"
$ovR8 = Variant(VT_R8, "3 is a good number");
# ex.Range("A1")=ovr8
$ex->Range("A1")->{Value} = $ovR8;
# ex.Range("A2") = "Jan 1,2010"
$ex->Range("A2")->{Value} = Variant(VT_DATE, 'Jan 1,2010');
我下面再举个例子，附上原来的VBA码，你就明白了。。。
要解决你的问题，去看VBA的书，然后相应得转化就是了。。。
www.perlmonks.org/index.pl?node_id=153486
================================================
use warnings; #Option Explicit
use Win32::OLE;
use Win32::OLE::Variant;
# Dim ex
#Set ex = CreateObject(Excel.Application)
$ex = Win32::OLE->new('Excel.Application', \&OleQuit) or die "oops\n";
#ex.Visible = 1
$ex->{Visible} = 1;
# ex.Workbooks.Add()
$ex->Workbooks->Add;
# Dim ovR8
# ovR8 = "3 is a good number"
$ovR8 = Variant(VT_R8, "3 is a good number");
# ex.Range("A1")=ovr8
$ex->Range("A1")->{Value} = $ovR8;
# ex.Range("A2") = "Jan 1,2010"
$ex->Range("A2")->{Value} = Variant(VT_DATE, 'Jan 1,2010');
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯