Excel (Win32::OLE) Datei bereits geoeffnet (Fragen zu Perl-Modulen)

[thread]13798[/thread]

Excel (Win32::OLE) Datei bereits geoeffnet

Leser: 22

Articles: hide open all | hide show old branches

+12 replies
fish12345

2009-07-29 12:24
User since
2009-07-29
8 Artikel
BenutzerIn
Hallo,

ich bin neu hier im Forum und auch neu im Umgang mit Perl. Generell habe ich aber durchaus Programmiererfahrung, bin also kein kompletter Neuling.
Um gleich eines Vorweg zu nehmen - die Suchfunktion des Forums habe ich benutzt, doch unter 38 Seiten mit Suchergebnissen konnte ich nichts passendes finden, zumindest nichts wo der Threadtitel bereits auf mein Problem hätte schließen lassen.

Zur Zeit stehe ich vor dem Problem, dass ich eine Exceldatei öffnen, bearbeiten und speichern möchte. Prinzipiell ist dies auch kein Problem, aber ich habe keine Ahnung wie ich mitbekomme ob die Excel-Datei bereits geöffnet ist oder nicht.

Lediglich beim Speichern erscheint dann der "Save as"-Dialog, statt direkt zu speichern. Da es hier um eine Automatisiserung gehen soll, ist dies natürlich kein gewünschtes Verhalten.

Hier mal kurz ein Codeauszug:
Code (perl): (dl )

1 2 3 4 5 6

my $Excel = CreateObject OLE 'Excel.Application' || die $!; $book = $Excel->Workbooks->Open("$file")||die("Can not open $file"); $sheet = $book->Worksheets("Jul"); $sheet->Range("D23")->{'Value'}="some tests"; $Excel->ActiveWorkbook->Close(1); $Excel->Quit();
Wie gesagt, wenn die Datei nicht geöffnet ist, klappt alles ohne Probleme. Wenn sie geöffnet ist würde ich gerne irgendwie reagieren (z.B. durch Abbruch) - wie kann ich herausfinden ob die Datei bereits geöffnet ist?

MfG,
fish
- +8 replies
- renee
  
  2009-07-29 15:25
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Ungetestet:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  my $excel = Win32::OLE->GetActiveObject('Excel.Application')||die "couldnt get active one"; my $workbook = $excel-> Workbooks( $file ); # when file is already opened unless( $workbook ) { $workbook = $excel->Workbooks->Open( $file ) or die "Cannot open $file"; }
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +7 replies
  - fish12345
    
    2009-07-29 20:54
    
    User since
    2009-07-29
    8 Artikel
    BenutzerIn
    
    glaube ich habe mich nicht ganz klar ausgedrueckt. Die Datei ist leider nicht am selben Rechner geoeffnet sondern ueber eine Netzwerkfreigabe von einem anderen Rechner. Habe deinen Code nicht getestet, aber so wie es fuer mich aussieht funktioniert dieser nur, wenn das Excel-Sheet vom selben Rechner geoffnet ist.
    - +6 replies
    - topeg
      
      2009-07-30 12:11
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Wenn ich dich richtig verstehe, haben zwei Programme die selbe Datei geöffnet.
      Es ist nicht ungewöhnlich, dass Programme versteckte Arbeitskopien von Dateien anlegen. Ich denke, das dürfte hier bei Excel der Fall sein. Ich würde mal schauen, wie die Kopien benannt werden und testen ob sie existiert.
      
      Code (perl): (dl )
      
      if(-e $workfile)
      
      So solltest du wissen ob ein anderen Excel die Datei geöffnet hat.
      - +5 replies
      - fish12345
        
        2009-07-30 15:36
        
        User since
        2009-07-29
        8 Artikel
        BenutzerIn
        
        Eigentlich eine gute Idee, aber eigenartiger Weise legt Excel hier keine temporaere Datei an (ausgeblendete Dateien werden mir prinzipiell angezeigt).
        
        Ich habe nun ein wenig mit flock herum experimentiert.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        use Fcntl ':flock'; open my $fh, "D:/foobar.xls" or die "cant open!"; # try/catch file locking eval{ flock($fh, LOCK_EX) or die "can't lock!" }; if ( $@) { warn "open file!" && exit; }
        
        Dies fuehrt nun zu einem Verhalten, welches schonmal in die richtige Richtung geht, aber leider noch nicht dass ist was ich gerne haette. Wenn ich den Code ausfuehre ohne dass das Excelsheet geoffnet ist beendet es sofort - soweit so gut. Ist das Excelsheet geoeffnet wartet das Programm so lange bis das Excelsheet wieder geschlossen ist - eine Ausgabe erscheint nicht.
        
        Hat jemand eine Idee wie ich den Code modifizieren muss, damit ich nicht warte bis die Datei geschlossen ist sondern einfach einen Fehler ausgeben kann?
        
        MfG,
        fish
        
        +2 replies
        
        nepos
        
        2009-07-30 15:57
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Versuch es doch mal mit
        
        Code (perl): (dl )
        
        eval{ flock($fh, LOCK_EX|LOCK_NB) or die "can't lock!" };
        
        flock() blockt normal, wenn du ein Lock willst, es dieses aber nicht bekommen kann. Das LOCK_NB sorgt dafür, dass flock() sofort returned.
        
        fish12345
        
        2009-07-31 07:06
        
        User since
        2009-07-29
        8 Artikel
        BenutzerIn
        
        Danke fuer eure Tipps. Habe auch gestern schon ein wenig mit den flock-Flags expreimentiert.
        Die Kombination LOCK_EX|LOCK_NB führt tatsächlich dazu, dass nicht blockiert wird. Leider bekomme ich aber auch keine Meldung dass die Datei bereits geoeffnet ist. Evtl. ist also mein Ansatz der Abfrage nicht korrekt?
        
        Zum Testen oeffne ich die Datei uebrigends lokal. Dass sich flock bei Netzwerkfreigaben noch einmal anders verhaelt habe ich bereits gelesen, aber ich wollte es eben einmal ausprobieren - vielleicht habe ich Glueck und es funktioniert doch.
        
        topeg
        
        2009-07-30 15:57
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Versuch es mal mit "LOCK_EX | LOCK_NB" statt "LOCK_EX" (die Werte werden binär kombiniert)
        "LOCK_NB" bedeutet "non blocking"
        Denke auch daran den Lock wieder auf zu heben, oder die Datei zu schließen. Sonst wunderst du dich noch, dass du kein "Workbooks->Open" machen kannst.
        
        GwenDragon
        
        2009-07-30 16:00
        
        User since
        2005-01-17
        14745 Artikel
        Admin1
        
        flock funktioniert nicht korrekt mit Netzwerkfreigaben.
        
        Verwendest du denn einen Dateiserver für die Dateien auf anderen Netzwerken oder nur die Windows-Freigaben?
        
        Ob das so korrekt klappt, mit dem Sperren und Freigeben der Dateien, da bin ich mir nicht so sicher.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- fish12345
  
  2009-07-31 07:35
  User since
  2009-07-29
  8 Artikel
  BenutzerIn
  Nach nun wirklich stundenlangem rumprobieren habe ich nun eine Loesung fuer mein Problem gefunden. Da evtl. mehr Leute ein solches Problem haben, hier der Einzeiler welcher mich nun schon so einige Nerven gekostet hat ;)
  
  Code (perl): (dl )
  
  sysopen(FH, $file, O_WRONLY|O_EXCL) or die $!;
  
  Ist die Datei bereits geoeffnet hat das Skript keine Rechte die Datei exklusiv zu oeffnen, daher erscheint dann der Fehler "Permission denied". Ist die Datei nicht in Benutzung kann ich ganz normal mit dem FileHandle arbeiten bzw. ihn wieder schließen um dann das Sheet zu bearbeiten.
  
  Das ganze funktioniert in meinem Fall übrigends auch wenn die Datei von einem fremden Benutzer über eine Netzwerkfreigabe geöffnet wird. D.h. dieser Einzeiler ist offensichtlich wie gemacht für mein Szenario oder sehen die Perl-Profis etwas dass dagegen spricht?
  
  MfG,
  fish
  
  PS Ist es hier im Forum eigentlich auch moeglich einfach generell auf einen Thread zu antworten (ohne Bezug auf eine vorherige Antwort) - ich finde diese Verschachtlung bei mehreren Antworten irgendwie leicht unübersichtlich, außerdem kommt es ja auch vor, dass man sich eben nicht auf seinen Vorredner bezieht. Wünsche euch allen einen schönen Start ins Wochenende
  - +2 replies
  - murphy
    
    2009-07-31 11:11
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    2009-07-31T05:35:10 fish12345
    [...]
    
    Code (perl): (dl )
    
    sysopen(FH, $file, O_WRONLY|O_EXCL) or die $!;
    
    Ist die Datei bereits geoeffnet hat das Skript keine Rechte die Datei exklusiv zu oeffnen, daher erscheint dann der Fehler "Permission denied". Ist die Datei nicht in Benutzung kann ich ganz normal mit dem FileHandle arbeiten bzw. ihn wieder schließen um dann das Sheet zu bearbeiten.
    [...]
    
    Dieses Vorgehen funktioniert aber auch nur mit Glück und Zufall korrekt: Es kann sein, dass just in dem Moment wo Du die mit sysopen geöffnete Datei wieder geschlossen hast und bevor Du dieselbe Datei mit Excel öffnen konntest, ein entfernter Rechner oder einfach ein anderer Prozess auf dem gleichen Rechner ebenfalls die Datei öffnet. Danach wird Dein Programm trotzdem munter an Excel den Befehl geben, die Datei noch einmal zu öffnen, was vermutlich auch funktioniert. Im Endeffekt bringt der Ansatz mit dem temporären exklusiven Lock also überhaupt nichts.
    
    Soweit ich das beurteilen kann, gibt es überhaupt keine zuverlässige Methode um auf einem Netzwerkdateisystem exklusiven Zugriff auf eine Datei sicherzustellen, es sei denn, alle Prozesse, die potentiell am Öffnen der Datei interessiert sind, kooperieren und benutzen irgendwelche Lockfiles.
    When C++ is your hammer, every problem looks like your thumb.
    - fish12345
      
      2009-07-31 12:02
      
      User since
      2009-07-29
      8 Artikel
      BenutzerIn
      
      Ich gebe dir Recht, dass dieser Ansatz keine absolute Sicherheit bietet. Daher schaut mein Skript immer direkt vor dem Bearbeiten des Excel-Sheets (z.B. oeffnen, speichern, umbennenen) ob ein exklusives Lock moeglich ist oder nicht. Zwischen der Ueberpruefung und dem ausfuehren der Dateiveraenderung liegen letztendlich nur Bruchteile von Sekunden - es ist also schon relativ unwahrscheinlich dass die Datei gerade dann geoeffnet wird.
      
      Fuer meinen Einsatzzweck sollte diese "Sicherheit" ausreichen, danke aber trotzdem fuer den Hinweis.

View all threads created 2009-07-29 12:24.