nicht angemeldet
EXCEL-Tabelle
Hallo!
Ich brauche wieder mal Hilfe bei einem 'Tabellen'-Problem! Ich habe folgendes Problem und 'leider' nur Fragmente zur Verfügung:
Igendwelche Daten sollen in einem EXCEL-Spreadsheet abgespeichert und dem Nutzer zur Verfügung gestellt werden. Ich habe viel herumgesucht und so manchen Tipp erhalten, das einzige was momentan funktioniert (und nicht an irgenwelchen Security- oder sonstwas Problemen kaputt geht) ist der nachfolgende Code:
<%
' Ein Instanz für das Spreadsheet definieren
Dim objSpreadsheet
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
' Zelle mit Wert füllen
objSpreadsheet.Cells(5, 5).Value = "Test"
' andere Möglichkeit
'objSpreadsheet.Range("A1").Value = "Noch'n Test"
' Selektieren funktioniert auch
'objSpreadsheet.Range("A1").Select
' Rahmen um die Zelle(n) zeichnen
Set c = objSpreadsheet.Constants
objSpreadsheet.Range("e5:e5").Borders.LineStyle = owcLineStyleSolid
objSpreadsheet.Range("e5:e5").Borders.Weight = c.owcLineWeightMedium
objSpreadsheet.Range("e5:e5").Borders.Color = "black"
' Größe der Zeichen ändern
objSpreadsheet.Range("e5:e5").Font.Size = "26"
' Textfarbe einstellen
objSpreadsheet.Range("e5:e5").Font.Color = "green"
' Zeichen auf Fett (Bold) stellen
objSpreadsheet.Range("e5:e5").Font.Bold = True
' Abbeitsblatt schützen
objSpreadsheet.Columns(2).Locked = True
objSpreadsheet.ActiveSheet.Protection.Enabled = True
' Export XLS-File to disk/folder
' ->>> IUSR_machinname muss Schreibberechtigung für den Ordner haben <<<-
objSpreadsheet.ActiveSheet.Export "C:\Inetpub\wwwroot\xls-file\FooBar.xls", 0
' Aufräumen
Set objSpreadsheet = Nothing
%>
Funktioniert eigentlich ganz gut. Ich kann jeder Zelle einen Wert zuordnen und ein paar andere Sachen auch machen. Zum Gelben vom Ei fehlt mir aber noch ein Tipp, wo ich mal ordentliche Beispiele für die o.a. Methode finde?!?!? Mir fehlen so Sachen wie Hintergrundfarbe setzen, die Sheets mit Passwort schützen, AutoFit verwenden u.a. Ich habe zwar schon so was wie eine programming reference in der Datei MSOWCVBA.CHM gefunden - bekomme das mit den Objekten und Methoden nicht so ganz auf die Reihe. Versuche ich es mit einem Befehl, dann gehts - beim nächsten murrt der Interpreter rum und ich finde den Fehler nicht. Gibts da irgendein Kompendium oder 'ne Datenbank - Forum usw. mit Anleitungen?
Für Hilfe wäre ich echt dankbar!!!
MfG... Harald
-
Hi,
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
gehe doch mal mit dem Objekt-Explorer auf die Klasse.
Für Hilfe wäre ich echt dankbar!!!
alternativ:
http://www.google.de/search?hl=de&q=OWC.Spreadsheet&meta=;-)
Rambo I