Hello perl-win32-users, I use Win32::OLE to read EXCEL files, like this:
use Win32::OLE; use Win32::OLE::Variant; use Win32::OLE::Const 'Microsoft Excel'; our $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); my $Book = $Excel->Workbooks->Open("a.xls"); my $Sheet = $Book->Worksheets(1); $d = $Sheet->Cells(1,1)->{Value}; and if the cell's text is: 2005-3-26, it returns '2005-3-26', just what i need. but if the cell's text is : 1900-3-26, it returns '1900-3-25', if the text is: 1900-1-1, it returns '1899-12-31', one day difference. Can anyone tell me the reason? -- Best regards, Xia Jian mailto:[EMAIL PROTECTED] _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs