WICHTIG: Der Betrieb von goMatlab.de wird privat finanziert fortgesetzt. - Mehr Infos...

Mein MATLAB Forum - goMatlab.de

Mein MATLAB Forum

  
Gast > Registrieren       Autologin?   

Partner:




Forum
      Option
[Erweitert]
  • Diese Seite per Mail weiterempfehlen
     


Gehe zu:  
Neues Thema eröffnen Neue Antwort erstellen

Inhalte von Excel-Sheets löschen
 

KardinalWest
Forum-Anfänger

Forum-Anfänger

Beiträge: 42
Anmeldedatum: 15.10.08
Wohnort: Salzburg
Version: ---
     Beitrag Verfasst am: 06.11.2009, 13:32     Titel: Inhalte von Excel-Sheets löschen
  Antworten mit Zitat      
Hallo,

Stehe mal wieder auf dem Schlauch. Ich habe eine Funktion geschrieben, welche Berechnungsergebnisse in ein Excel-File schreibt. Nun möchte ich erreichen, dass "alte" Ergebnisse vor dem Schreibvorgang gelöscht werden, falls der Benutzer als Zielfile eine bereits bestehende Datei wählt. Meine Routine zur Überprüfung, ob ein Tabellenblatt mit einem bestimmten Namen bereits vorhanden ist, sieht wie folgt aus:

Code:

xfile = ['C:\... .xls']; %Pfad und Dateiname des Excel-Files
x = ['Blatt']; %Name des Excel-Tabellenblattes

%Öffne Excel-File
xobject = actxserver('Excel.Application');
xworkbook = xobject.workbooks.Open(xfile);
worksheets = xobject.sheets;


%Prüfe, ob das Blatt "x" in der Datei vorhanden ist
try
    h1 = get(worksheets,'item',x);
    disp('vorhanden')
   
    %WIE KANN DER INHALT VON BLATT x JETZT GELÖSCHT WERDEN?
   
catch
    disp('nicht vorhanden')
end

%Schließe Excel-File
xworkbook.Save;
xworkbook.Close(false);
xobject.Quit;
delete(xobject);
 


Das Löschen des ganzen Tabellenblattes via:
Code:
worksheets.Item(...).Delete
funktioniert ja nur bei leeren Blättern.

Gruß und danke fürs Lesen -Tom
Private Nachricht senden Benutzer-Profile anzeigen


KardinalWest
Themenstarter

 Forum-Anfänger

Forum-Anfänger

Beiträge: 42
Anmeldedatum: 15.10.08
Wohnort: Salzburg
Version: ---
     Beitrag Verfasst am: 06.11.2009, 22:26     Titel:
  Antworten mit Zitat      
Serwus,
Denken hilft! Hab jetzt (glaub ich) die Lösung. Bisher funktionierts zumindest folgendermaßen:

Code:

function xlserase01(xfile,xsheet)

%Öffne Excel-File "xfile" via ActiveX
xobject = actxserver('Excel.Application');
xworkbook = xobject.workbooks.Open(xfile);
xworksheets = xobject.sheets;



try
    %Prüfen, ob das Blatt "xsheet" in der Datei vorhanden ist
    h1 = get(xworksheets,'item',xsheet);
   
    %Alle Zellen wählen und löschen
    range = get(h1,'Range','A1','IV65536');
    set(range, 'Value',{''});

catch
    %Warnung, falls "xsheet" nicht gefunden wird
    warndlg(['Achtung: Blatt "' xsheet '" nicht gefunden!'],'Fehler');

end

%Schließe Excel-File
xworkbook.Save;
xworkbook.Close(false);
xobject.Quit;
delete(xobject);

end
 

Es ginge wahrscheinlich eleganter, als alle Zellen mit {''} zu überschreiben, aber solange es funktioniert...

N'Abend allerseits - Tom
Private Nachricht senden Benutzer-Profile anzeigen
 
Neues Thema eröffnen Neue Antwort erstellen



Einstellungen und Berechtigungen
Beiträge der letzten Zeit anzeigen:

 Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen
.





 Impressum  | Nutzungsbedingungen  | Datenschutz | FAQ | goMatlab RSS Button RSS

Hosted by:


Copyright © 2007 - 2025 goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks

MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.