www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Daten aus DB mit VBScript in Excel
Autor:  elsasser
E-mail:  Antworten bitte nur in das Forum!
Datum:  11.02.2004 14:24:27
Subject:  Daten aus DB mit VBScript in Excel
Bezug zum Buch:  WindowsScripting
Message:  Ich habe folgendes Problem:

Ich fülle Daten via VBScript aus einer DB in ein
ExcelSheet ab. Das klappt auch wunderbar. Nun möchte ich
das Sheet zugleich noch ordentlich formatieren können.

Frage:

Welche funktionen stehen einem hier zur Verfügung. Kann
mir jemand sagen wie ich zu dieser Info komme (website
oder so).

Beispiel:

<<
' Erstellen einer Objektreferenz
Set FSO = CreateObject("Scripting.FileSystemObject")
' Excel Sheet vorbereiten
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
objXL.Workbooks.Add
objXL.Columns(1).ColumnWidth = 40
objXL.Columns(2).ColumnWidth = 12
objXL.Columns(3).ColumnWidth = 60
objXL.Columns(4).ColumnWidth = 12
objXL.Columns(5).ColumnWidth = 12
objXL.Columns(6).ColumnWidth = 12
objXL.Columns(7).ColumnWidth = 12
objXL.Columns(8).ColumnWidth = 12
objXL.Columns(9).ColumnWidth = 12
objXL.Columns(10).ColumnWidth = 15

objXL.Cells(1, 1).Value = "Kurzadresse"
objXL.Cells(1, 2).Value = "kd_artikelnr"
objXL.Cells(1, 3).Value = "artkurzbez"
objXL.Cells(1, 4).Value = "auftrags_id"
objXL.Cells(1, 5).Value = "lieferdatum"
objXL.Cells(1, 6).Value = "Bestellt_KE"
objXL.Cells(1, 7).Value = "Geliefert_KE"
objXL.Cells(1, 8).Value = "Kuerzung_KE"
objXL.Cells(1, 9).Value = "user_artnr"
objXL.Cells(1, 10).Value = "Fehler Code"

objXL.Range("A1:j1").Select
objXL.Selection.Font.Bold = True
objXL.Selection.Interior.ColorIndex = 1
objXL.Selection.Interior.Pattern = 1      'xlSolid
objXL.Selection.Font.ColorIndex = 2

objXL.Columns(5).select
objXL.Selection.NumberFormat = "dd.mm.yyyy"


' Daten beginnen in zweiter Zeile (erste Zeile ist
Überschrift)
intIndex = 2
>>


Danke für eure Info

Gruss

Dominik


Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Daten aus DB mit VBScript in Excel von elsasser  am 11.2.2004 2:24:27 PM
 Re: Daten aus DB mit VBScript in Excel von Dr. Holger Schwichtenberg  am 17.2.2004 5:37:27 PM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019