Perl win32::OLE 操作excel的教程说明

Perl win32::OLE 操作excel的教程说明

兄弟，这不是抄来的，而是把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');