Hallo,


ich habe mal eine Frage. Und zwar habe ich hier mal wieder einen Excel-Export. Nur das dieser diesmal auch soweit noch formatiert werden soll, das hinterher ein druckbaren "Einheitsformular" rauskommt.
 
Also Sachen wie: Spaltenbreite, Summen bilden, Textausrichtung usw.

Nun habe ich mir schon ein paar Gedanken gemacht wie ich das denn wohl realisieren könnte. Zum einen gäbe es ja die Möglichkeit das per Excel-Makro zu machen, aber dann bräuchte jede Person die mit dem Export arbeitet ja auch eine "Muster-Excel-Datei" damt Makro. Die andere Möglichkeit ist dieses komplett per Lotus-Script zu regeln. Und genau da ist der Haken. Ich finde im Internet keine Auflistung der möglichen Befehle für Excel. Deshalb wollte ich wissen ob ihr vielleicht wisst wo ich sowas finden kann.

Noch eine andere Frage, ich sprach oben von einer "Muster-Excel-Datei". Kann ich im Script denn auch sagen das "er" genau diese Datei lokal auf dem Rechner des jeweiligen öffnen soll ? Weil sonst müsste man ja mit Strg+C und Strg+V arbeiten, oder ?

Wäre euch sehr dankbar wenn einer einen Tipp hätte !

mmh, ja den "Trick" habe ich auch ausprobiert. Also das mit dem Makro aufzeichen und dann in VBA Editor die Sachen rauskopieren. Eigentlich ganz nett aber interessant wird es ja bei den Befehlen die ich nicht eins zu ein übernehmen kann. z.B Textausrichtung oben oder so. Was mach ich denn dann mit den Kammeraden ?

Eigentlich ganz nett aber interessant wird es ja bei den Befehlen die ich nicht eins zu ein übernehmen kann. z.B Textausrichtung oben oder so. Was mach ich denn dann mit den Kammeraden ?

Schau dir das Beispiel an und vergleiche es mit der VBA-Hilfe oder dem Code in einem Makro. Wenn du erstmal das Prinzip verstanden hast, dann klappt auch mit den anderen Kameraden.  

Hier noch ein Beispiel:

...

'Konstanten für die vertikale Ausrichtung innerhalb der Zellen
Const xlVAlignTop = -4160
Const xlVAlignBottom = -4107
Const xlVAlignCenter = -4108

'Formatiert ein Arbeitsblatt mit den Attributen vertikale Textausrichtung oben und
'optimale Spaltenbreite
objSheet.Cells.Select  'Gesamtes Arbeitsblatt markieren
objExcel.Selection.VerticalAlignment = xlVAlignTop  'Vertikale Ausrichtung nach oben
objExcel.Selection.Columns.AutoFit  'Optimale Spaltenbreite
objExcel.Selection.Rows.AutoFit  'Optimale Zeilenhöhe
objSheet.Range("A1").Select          
...


In der Regel ist es so, dass alles was mit Formatierung zu tun hat, sich auf Selection beziehen.


Axel

 

Alternativ kannst Du auch eine Tabelle vorformatieren und dann in ein Setup-Dokument in die DB anhängen. Vor dem Export löst Du die Datei dann und schreibst die Werte in die formatierte Tabelle.

Das ganze hat den Charme, dass Du dann auch ein Makro in die Tabelle einfügen kannst, dass Du dann nach dem Export aufrufst und anschließend löschst.

Ich habe mit dem Vorgehen sehr gute Erfahrungen gemacht.

Markus

Notlösung? Ich finde das eigentlich die schönste Lösung, weil man sich durch die Formatierung und das Makro nicht damit rumschlagen muss, wie man das ganze sauber hinbekommt. Aber ich glaube da hat jeder seine eigenen Vorstellungen.  

Ja das wäre auch die "Notlösung" zu der ich dann ausweichen würde !

Ich empfinde das auch nicht unbedingt als Notlösung. Diese Vorgehensweise hat sogar in einigen Anwendungsfällen Vorteile.

Kleine Formatierungen kann man ohne weiteres mit Lotusscript durchführen. Umfangreicheres würde ich auf jeden Fall auch in Excel selbst mit einem Makro machen.


Axel
 

Also Makros löschen geht so (Codeschnipsel aus meiner Excel-Klasse):


_{'Zuerst die Codezeilen löschen
For i = Me.xlApp.ActiveWorkbook.VBProject.VBComponents.Count To 1 Step -1
      
l = 1         
l = Me.xlApp.ActiveWorkbook.VBProject.VBComponents(i).CodeModule.CountOfLines
Me.xlApp.ActiveWorkbook.VBProject.VBComponents(i).CodeModule.DeleteLines 1, l
         
Next
      
'dann die Module löschen
For i = Me.xlApp.ActiveWorkbook.VBProject.VBComponents.Count To 1 Step -1
         
Me.xlApp.ActiveWorkbook.VBProject.VBComponents.Remove(Me.xlApp.ActiveWorkbook.VBProject.VBComponents(i))
         
Next}   


Wie gesagt, es ist ein Schnispel aus meiner Excel-Klasse. Ich wollte hier auch nur zeigen welche Befehle genommen werden müssen und wie das Vorgehen aussieht.

Markus

(Codeschnipsel aus meiner Excel-Klasse):

Wo gibt's diese Excel-Klasse?

Hi,

da Markus seinen Code nicht mit uns teilen möchte (warum auch immer), kann ich dir mit meiner Klasse vielleicht auch helfen. Sie ist allerdings bei weitem noch nicht vollständig und wahrscheinlich noch nicht 100% fehlerfrei bzw. optimiert. Ich bitte daher um Nachsicht.

Anwendungsbeispiel (Agent):

(Options)
Use "libExcel"


Sub Initialize

...   
Dim oExcel As cExcel    

...

Set oExcel = New cExcel  'Erstellen eines OLE-Objects
Call oExcel.NewWorkbook
      
Call oExcel.SetCellValue("A1", "RB")
Call oExcel.SetCellValue("B1", "Land")

...

Call oExcel.FormatBereichAsText("A", "B" )      

...

row = 2

Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
   
   Call oExcel.SetCellValue("A" & Trim$(Str$(row)), doc.RegBereich(0))
   Call oExcel.SetCellValue("B" & Trim$(Str$(row)), doc.Land(0))
...
   Set doc = collection.GetNextDocument(doc)
   row = row + 1
Wend  'While Not (doc Is Nothing)
      
'Abschließende Formatierungen
Call oExcel.SortTable
Call oExcel.FormatBereichAsWaehrung("F","G")
Call oExcel.FormatBereichAsDateShort("I", "I" )
Call oExcel.FormatRangeFont("Arial", 9)
Call oExcel.FormatRowCenterBold(1)
Call oExcel.FormatRangeAlignment
Call oExcel.FormatRangeWidth("K:K")
      
'Aktivieren und Anzeigen von Excel      
Call oExcel.SetVisible
Call oExcel.ActivateExcel
...

Ich hoffe du kannst was damit anfangen.


Axel


 

Hi,

eine kleiner Hinweis, warum du den Code nicht weitergeben kannst, hätte keine Mißverständnisse ausgelöst. In der Regel lassen alle Forumsmitglieder die anderen an ihrem Code teilhaben.

Wenn du das aus rechtlicher Sicht nicht kannst, wofür sicherlich jeder Verständnis hat, hätte ein kurzer Hinweis genügt. So kam es rüber, als das du nicht willst.


Axel