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

[thread]14204[/thread]

Excel Win32::OLE Formel

Leser: 27

Articles: hide open all | hide show old branches

+17 replies
Gast Gast

2009-10-31 17:58
Hallo!

Kann mir jemand sagen, warum ich bei der Summe-Formel als Ergebnis "#WERT!" bekomme? ( Die Wenn-Formel funktioniert ).
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

#!C:\Perl\bin\perl.exe use warnings; use strict; use Win32::OLE qw; use Win32::OLE::Const 'Microsoft Excel'; $Win32::OLE::Warn = 3; my $xl = Win32::OLE::Const -> Load( 'Microsoft Excel' ); my $excelfile = 'win32_ole_excel.xls'; my $excel = Win32::OLE -> GetActiveObject( 'Excel.Application' ) || Win32::OLE -> new( 'Excel.Application', 'Quit' ) or die $!; my $workbook = $excel -> Workbooks -> Add(); my $sheet = $workbook -> Worksheets( 1 ); $sheet -> Activate; $sheet->Range( 'A3' )->{Value} = 10; $sheet->Range( 'B3' )->{FormulaR1C1} = '=WENN( "RC[-1]" > 5; "OK"; "Not OK")'; $sheet->Range( 'G1' )->{Value} = 3; $sheet->Range( 'G2' )->{Value} = 7; $sheet->Range( 'G3' )->{Value} = 6; $sheet->Range( 'G4' )->{FormulaR1C1} = '=SUMME( "R[-3]C:R[-1]C" )'; $workbook -> SaveAs( { Filename => $excelfile, FileFormat => xlWorkbookNormal } );
- +5 replies
- bianca
  
  2009-10-31 20:26
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Funktioniert es denn in Excel ohne Perl?
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - Gast Gast
    
    2009-11-01 08:15
    Das hat der Makrorekorder aufgezeichnet:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    Range("G1").Select ActiveCell.FormulaR1C1 = "3" Range("G2").Select ActiveCell.FormulaR1C1 = "7" Range("G3").Select ActiveCell.FormulaR1C1 = "6" Range("G4").Select ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    
    Und es funktioniert.
    - +3 replies
    - esskar
      
      2009-11-01 09:04
      
      User since
      2003-08-04
      7321 Artikel
      ModeratorIn
      
      Makrorecorder schreibt SUM, du schreibst SUMME.
      - Gast Gast
        
        2009-11-01 14:41
        
        Ich habe eine deutsche Office-Version.
        Nach meiner Erfahrung braucht es darum deutsche Formelnamen.
        
        Beim ersten Beispiel schreibt der Makrorekorder "IF" und damit es bei mir funktioniert muß ich "WENN" nehmen.
      - Gast Gast
        
        2009-11-02 01:26
        
        2009-11-01T08:04:11 esskar
        Makrorecorder schreibt SUM, du schreibst SUMME.
        
        Er schreibt auch 'Wenn' und nicht 'If'
        Glotzen uff ;-)
- +11 replies
- Linuxer
  
  2009-11-01 21:15
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Was zeigt Dir Excel denn an, was in der Zelle steht, wenn es "#WERT!" anzeigt?
  
  Mir ist neu, dass die Argumente für SUM(ME) in Anführungsstriche gesetzt werden, aber ich bin mir nicht wirklich sicher, ob das nicht toleriert wird...
  Vielleicht lässt Du die "" einmal weg?
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +10 replies
  - Gast Gast
    
    2009-11-02 08:40
    Quote
    =SUMME( "R[-2]C:R[-1]C" )
    
    Ohne "" bekomme ich diese Fehlermeldung:
    
    Code: (dl )
    
    1 2 3
    
    Win32::OLE(0.1709) error 0x80020009: "Ausnahmefehler aufgetreten" in PROPERTYPUT "FormulaR1C1" at C:\Dokumente und Einstellungen\pp\Eigene Date ien\excel.pl line 49
    - +2 replies
    - Gast wer
      
      2009-11-02 09:03
      
      was passiert wenn du es so schreibst?
      
      Code: (dl )
      
      '=SUMME( "R[-3]C":"R[-1]C" )'
      - Gast Gast
        
        2009-11-02 10:28
        
        das gibt eine Fehlermeldung
    - +7 replies
    - Linuxer
      
      2009-11-02 17:55
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      ~~Ich wundere mich immer noch, wie und was da für Zellen adressiert werden sollen ("R[-2]C" - was soll das addressieren?)?~~
      Bin hier fündig geworden, was "R[-2]C" für eine Adressierung sein soll.
      Ich bin auch kein Spezi, was Formeln und Macros innerhalb von Tabellenkalkulationen angeht.
      
      Du füllst die Zellen G1 bis G3 mit Zahlen und willst in G4 eine Formel einsetzen, die die Summe der vorigen drei Zellen berechnet.
      
      Warum dann also nicht gleich die Zellennamen direkt verwenden?
      
      Code: (dl )
      
      =SUMME(G1:G3)
      
      Zusatz: Eventuell müsste man eben die Koordinaten im Perl berechnen, um die "echten" Zellennamen zu ermitteln.
      
      Edit: Verwunderung gestrichen; Fundstück (mit Link) + Zusatz eingefügt.
      Last edited: 2009-11-02 18:03:18 +0100 (CET)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +6 replies
      - Gast Gast
        
        2009-11-02 19:39
        
        Diese FormulaR1C1-Schreibweise habe ich in einem Beispielskript gefunden.
        Ich wollte schauen, ob das bei mir funktioniert.
        
        +5 replies
        
        Linuxer
        
        2009-11-06 11:27
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hab grad ein Excel 2003 zur Hand und darin klappt diese Adressierungsart (R[-2]C) nicht!
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +4 replies
        
        schwabi
        
        2009-11-06 15:12
        
        User since
        2006-02-07
        18 Artikel
        BenutzerIn
        
        Bei mir geht es (Office 2007), nachdem in den Optionen die Bezugsart Z1S1 aktiviert wurde.
        
        Dann funktionieren Konstrukte wie
        
        =SUMME(Z(-2)S:Z(-1)S)
        
        Vermutlich geht es bei "Gast", wenn er auch hier die deutschen Namen für die Bezugsart verwendet. Also Z1S1, statt R1C1.
        
        ---------
        P.S. Bitte meinen vorigen Eintrag als Gast schwabi_off löschen. Der timer hatte zugeschlagen, bis meine Antwort fertig war.
        
        +2 replies
        
        Linuxer
        
        2009-11-06 17:00
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Ah, I see.
        
        Diese Option habe ich nun auch gefunden.... Danke für den Hinweis...
        
        Anscheinend hat man hier eine Entweder-Oder-Wahl, entweder als A1 addressieren oder als Z1S1...
        
        Da bleib ich beim A1.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Gast Gast
        
        2009-11-06 19:54
        
        Schade, dass es nur Entweder-Oder funktioniert.
        
        Gast Gast
        
        2009-11-06 19:54
        
        Thx, jetzt geht's:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
        
        #!C:\Perl\bin\perl.exe use warnings; use strict; use Win32::OLE; use Win32::OLE::Const 'Microsoft Excel'; $Win32::OLE::Warn = 3; my $xl = Win32::OLE::Const -> Load( 'Microsoft Excel' ); my $excelfile = 'C:\Dokumente und Einstellungen\m\Eigene Dateien\win32_ole_excel.xls'; my $excel = Win32::OLE -> GetActiveObject( 'Excel.Application' ) || Win32::OLE -> new( 'Excel.Application', 'Quit' ) or die $!; $excel->{ReferenceStyle} = $xl->{xlR1C1}; # Z1S1-Bezugsart my $workbook = $excel -> Workbooks -> Add(); my $sheet = $workbook -> Worksheets( 1 ); $sheet -> Activate; $sheet->Range( 'A3' )->{Value} = 3; $sheet->Range( 'B3' )->{FormulaR1C1} = '=WENN( ZS(-1) > 5; "OK"; "Not OK")'; $sheet->Range( 'G1' )->{Value} = 3; $sheet->Range( 'G2' )->{Value} = 7; $sheet->Range( 'G3' )->{Value} = 6; $sheet->Range( 'G4' )->{FormulaR1C1} = '=SUMME(Z(-3)S:Z(-1)S)'; $workbook -> SaveAs( { Filename => $excelfile, FileFormat => xlWorkbookNormal } );
        
        (Namen für die Bezugsart hatte ich schon alle mit eval und zwei for-Schleifen durchprobiert.)

View all threads created 2009-10-31 17:58.