Win32::OLE & Excel (Fragen zu Perl-Modulen)

[thread]13446[/thread]

Win32::OLE & Excel

Leser: 23

Articles: hide open all | hide show old branches

+6 replies

Gast gast

2009-04-28 14:33

Hi!

Es es mit

Code (perl): (dl )

$Win32::OLE::Warn = 3;

immer sinnlos, irgendwo

Code (perl): (dl )

 ... or die Win32::OLE -> LastError();

anzuhängen?

+3 replies

Gast gast

2009-04-28 17:46

Was stimmt hier nicht?

Code (perl): (dl )

#!/usr/bin/perl
use warnings;
use strict;
use Win32::OLE qw( in with );
use Win32::OLE::Const 'Microsoft Excel';

$Win32::OLE::Warn = 3;

my $excelfile = 'test.xls';

my $excel = Win32::OLE -> GetActiveObject( 'Excel.Application' ) || Win32::OLE -> new( 'Excel.Application', 'Quit' );
$excel -> {DisplayAlerts} = 0;  
$excel -> {Visible} = 0;        
$excel -> {SheetsInNewWorkBook} = 1;
my $workbook = $excel -> Workbooks -> Add();
my $sheet = $workbook -> Worksheets( 1 );
$sheet -> Activate;
$sheet -> {Name} = 'Tabelle_Eins';



$sheet -> Range( 'A1' ) -> {Value} = 5;
$sheet -> Range( 'A2' ) -> {Value} = '=IF(A5>3, "Yes", "No")';



$workbook -> SaveAs( { Filename => $excelfile, FileFormat => xlWorkbookNormal } );
$workbook -> Close;
$excel -> Quit;
undef $workbook;
undef $excel;

Ich bekomme diese Fehlermeldung:

Code: (dl )

1
2
3

C:\Dokumente und Einstellungen\m\Eigene Dateien>perl win32.pl
Win32::OLE(0.1709) error 0x80020009: "Ausnahmefehler aufgetreten"
    in PROPERTYPUT "Value" at win32.pl line 23

+2 replies
FIFO

2009-04-29 07:56
User since
2005-06-01
469 Artikel
BenutzerIn
Schon lange nicht mehr damit gearbeitet, aber wird da nicht eine Array-Referenz erwartet?
Code (perl): (dl )

$sheet -> Range( 'A2' ) -> {Value} = ['=IF(A5>3, "Yes", "No")'];
EDIT: Stimmt nicht für Einzelwerte/-zellen, nur für Range-Bereiche.
Code (perl): (dl )

$sheet -> Range( 'A2B3' ) -> {Value} = $arrayref;
Last edited: 2009-04-29 08:16:14 +0200 (CEST)
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- Gast gast
  
  2009-05-02 07:41
  Wickie! Ich hab's:
  
  Deutsches Excel, deutsche Formel.
  
  Code (perl): (dl )
  
  $sheet -> Range( 'A2' ) -> {Value} = '=WENN(A5>3; "Yes"; "No")';

+2 replies

Gast gast

2009-05-03 09:33

Hi!

Kann mir jemand sagen, wie ich im zweiten "Validation"-Beispiel die drop-down-Liste richtig unterbringe?

Wie es jetzt ist bekomme ich diese Fehlermeldung:

Code: (dl )

1
2

Win32::OLE(0.1709) error 0x800a03ec
    in METHOD/PROPERTYGET "Add" at C:\Dokumente und Einstellungen\m\Eigene Dateien\test.pl line 24

Code (perl): (dl )

#!C:\Perl\bin\perl.exe
use warnings;
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;

my $excelfile = 'test.xls';
my $excel = Win32::OLE -> GetActiveObject( 'Excel.Application' ) || Win32::OLE -> new( 'Excel.Application', 'Quit' );
$excel -> {DisplayAlerts} = 0;

my $workbook = $excel -> Workbooks -> Add();
my $sheet = $workbook -> Worksheets( 1 );


$sheet -> Range( 'A1' ) -> {Value} = 'Enter an integer between 1 and 10';
my $range1 = $sheet -> Range( 'B1' );
$range1 -> Validation -> Add( { Type => xlValidateWholeNumber, AlertStyle => xlValidAlertStop, Operator => xlBetween, Formula1 => 1, Formula2 => 10 } );



$sheet -> Range( 'A3' ) -> {Value} = 'Select a value from a drop down list';
my $range2 = $sheet -> Range( 'B3' );
$range2 -> Validation -> Add( { Type => xlValidateList, AlertStyle => xlValidAlertStop, Operator => xlBetween, Formula1 => [ qw( open high close ) ] } );

# macroaufzeichnung : .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:="open; high; close"


$workbook -> SaveAs( $excelfile );
$workbook -> Close;

Gast gast

2009-05-05 07:58

Hah, hah, einfach so wie's steht:

Code (perl): (dl )

$range -> Validation -> Add( { 
  Type => xlValidateList, 
  AlertStyle => xlValidAlertStop, 
  Operator => xlBetween, 
  Formula1 => "open; high; close" 
} );

View all threads created 2009-04-28 14:33.