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

in Excel Rahmen zeichnen
 

Martin1986
Forum-Century

Forum-Century

Beiträge: 121
Anmeldedatum: 20.06.11
Wohnort: ---
Version: Win 2016b Linux 2016b
     Beitrag Verfasst am: 18.07.2011, 08:26     Titel: in Excel Rahmen zeichnen
  Antworten mit Zitat      
Hallo,

ich versuche gerade mit matlab ein komplett fertig generierten Bericht zuerstellen und in Excel zuspeichern, was ich schon habe ist das automatische anpassen der Spaltenbreiten und das setzen der Nachkommastellen Was mir noch fehlt wären die Rahmen

Code:
Excel = actxserver('Excel.Application');
        if ~exist([pfad name],'file')
             ExcelWorkbook = Excel.workbooks.Add;
             ExcelWorkbook.SaveAs([pfad name])
             ExcelWorkbook.Close(false);
        end
        ExcelWorkbook = Excel.workbooks.Open([pfad name]);
       
       
        warning off MATLAB:xlswrite:AddSheet;
        %
        %put Data
        xlswrite2007(....)
        Excel.Sheets.Item(5).Range('A:L').EntireColumn.AutoFit;
        Sel=['B' num2str(pos) ':L' num2str(pos)];
        Range=Excel.Sheets.Item(5).Range(Sel);
        Range.NumberFormat = '0.00';
....
        Excel.Sheets.Item(3).Delete;
        Excel.Sheets.Item(2).Delete;
        Excel.Sheets.Item(1).Delete;
        ExcelWorkbook.Save
        ExcelWorkbook.Close(false) % Close Excel workbook.
        Excel.Quit;
        delete(Excel);


für die Rahmen habe ich versucht mit
Code:

Excel.Borders.LineStyle='xlContinuous';
Excel.Sheets.Item(5).Range(Sel).Borders;

 

zuarbeiten, leider funktioniert das nicht hat jemand Ideen wie das gehen könnte?

Hier noch mal als Beipiel was ich machen wollen würde(als statisches Excel Makro)
Code:
Sub Makro1()
'
' Makro1 Makro
'

'
    Range("A1:K4").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("A2:A4").Select
    Selection.Font.Bold = True
    Range("E1").Select
    Selection.Font.Bold = True
    Range("H1").Select
    Selection.Font.Bold = True
    Range("K1").Select
    Selection.Font.Bold = True
End Sub


es wäre nur deutlich günstiger das in matlab zumachen, da ich in Matlab ja schon weiß was wo steht Wink
Private Nachricht senden Benutzer-Profile anzeigen


tompie
Forum-Guru

Forum-Guru

Beiträge: 260
Anmeldedatum: 19.09.07
Wohnort: München
Version: immer alles
     Beitrag Verfasst am: 18.07.2011, 11:14     Titel:
  Antworten mit Zitat      
Hallo,

die direkte Adressierung in der Form

Selection.Borders(xlDiagonalDown)

funktioniert mit Matlab nicht. Man muß auf die Item-Methode ausweichen. So etwas wie

Selection.Borders.Item('xlDiagonalDown').LineStyle = xlNone

sollte funktionieren, wenn man den Enumeration-Wert von xlNone (-4142) direkt als Zahl eingibt.

Das Ganze ist mit Matlab 100%ig machbar, habe auch schon ähnliches realisiert.

Gruß tompie
Private Nachricht senden Benutzer-Profile anzeigen
 
Martin1986
Themenstarter

 Forum-Century

Forum-Century

Beiträge: 121
Anmeldedatum: 20.06.11
Wohnort: ---
Version: Win 2016b Linux 2016b
     Beitrag Verfasst am: 18.07.2011, 11:30     Titel:
  Antworten mit Zitat      
es funktioniert, aber nur wenn man sich in Excel die Definitionen anzeigen lässt diese xl... sind nur Zahlen damit kann man das auch in matlab machen schnell und sauber Wink

zumindest habe ich das nur so hinbekommen...
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.