Best Practices > Diskussionen zu Best Practices

COM-Schnittstelle MS Excel

<< < (6/8) > >>

ata:
... Funktion zum Ermitteln der Spaltennamen.  Die Funktion gibt ein Text-Array zurück. Erstes Element ist der Buchstabe "A"

Eine Verwendung kann wie folgt aussehen:
Dim vColName As Variant
vColName = xlGetColumnNames( )

Print "Die fünfte Spalte hat den Buchstaben " & vColName( 5 )




--- Code: ---Function xlGetColumnNames( ) As Variant
   ' # übergibt die möglichen 256 Excel-Spalten-Namen als Array
   Dim vCol As Variant
   Dim sDummy( 0 ) As String
   vCol = Evaluate( |vA := "A":"B":"C":"D":"E":"F":"G":"H":"I":"J":"K":"L":"M":"N":"O":"P":"Q":"R":"S":"T":"U":"V":"W":"X":"Y":"Z";@Subset(("" :vA) *+ vA;256)|)
   xlGetColumnNames = ArrayAppend( sDummy , vCol )
End Function

--- Ende Code ---

ata:
... Funktion zum Speichern einer Excel-Datei.

Eine Verwendung kann wie folgt aussehen:

Call xlSaveAs( xlWbk , "C:\Temp\demo.xls" )



--- Code: ---Function xlSaveAs( xlWbk As Variant , sFilePath As String ) As Variant
   If sFilePath <> "" Then Call xlWbk.SaveAs( sFilePath )
End Function

--- Ende Code ---

WildVirus:
Interessant dürfte auch die Funktion pagesetup sein:


--- Code: --- '#######################
' Seiteneinstellungen
'#######################
With xl.ActiveSheet.PageSetup
'Variablen
'&A - Gesamtseitenzahl
'&B - Blattname
'&D - Datum
'&I - Bild
'&N - Dateiname
'&P - Speicherort
'&S - Seite
'&U - Uhrzeit
.Orientation = 2
.LeftHeader = ""
.CenterHeader = "&""Arial,Bold""&18"+db.Title
.RightHeader = ""
.LeftFooter = "&""Arial""&8&P-&N"
.CenterFooter = "&""Arial""&8Seite &S von &A"
.RightFooter = "&""Arial""&8&D - &U"
.PrintArea = ("A1:H5")
.PaperSize = 9
.CenterHorizontally = True         
.FitToPagesTall =False
.zoom = False
.FitToPagesWide=1
.PrintTitleRows=xl.Rows("1:1").Address
End With

--- Ende Code ---

Was mir noch nicht gelingen will, ist der Zeilenumbruch innerhalb eines Feldes, z.B. CenterFooter, aber wahrscheinlich bin ich nur zu müde.

Der Excel-Makrorekorder nimmt chr(10), gebe ich das aus LN mit, kommt es als Text an.

ata:
... danke - ich schau mir das die Tage mal an und werde es mit einbauen...

Toni

bikerboy:
Habe die ganzen Funktionen mal in einer Klasse zusammengefasst. Hoffe ich kann damit jemanden Weiterhelfen und ich hoffe ich gewinne das Fleisskärtchen.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete