|
| |
Visual-Basic Einsteiger| Re: Exprt in rtf-Datei | |  | | Autor: e-dirk | | Datum: 23.12.02 18:06 |
| Ich habs selbst gebaut.....
Die gleichen Serienbriefvorlagen von word akzeptieren auch eine Excelldatei.
Folgender Code "Benutzt" Excell als Objekt
Dim ObjXL as Object
dim objActiveWkb as Object
Public Sub Export_SB()
Dim rs As ADODB.Recordset
Dim Anzahl As Integer
Dim i As Integer
i = 2
Dim T As String
Set rs = New ADODB.Recordset
rs.Open "VB_Export_Serienbrief", DBUSR.ADO_Connection, , adLockReadOnly
'ExcelArbeitsmappe Öffnen
Set objXL = CreateObject("Excel.Application")
objXL.Application.Workbooks.Add
Set objActiveWkb = objXL.Application.ActiveWorkbook
''Überschriften eintragen
With objActiveWkb
.Worksheets(1).Cells(1, 1) = "Firma"
.Worksheets(1).Cells(1, 2) = "Abteilung"
.Worksheets(1).Cells(1, 3) = "Anrede"
.Worksheets(1).Cells(1, 4) = "Titel"
.Worksheets(1).Cells(1, 5) = "Vorname"
.Worksheets(1).Cells(1, 6) = "Name"
.Worksheets(1).Cells(1, 7) = "StraßePostfach"
.Worksheets(1).Cells(1, 8) = "Staat"
.Worksheets(1).Cells(1, 9) = "PLZ"
.Worksheets(1).Cells(1, 10) = "Ort"
.Worksheets(1).Cells(1, 2) = "Briefanrede"
End With
''Recordsetdurchlaufen und Eintragen
Do
With objActiveWkb
.Worksheets(1).Cells(i, 1) = rs!Firma
.Worksheets(1).Cells(i, 2) = rs!Abteilung
.Worksheets(1).Cells(i, 3) = rs!Anrede
.Worksheets(1).Cells(i, 4) = rs!Titel
.Worksheets(1).Cells(i, 5) = rs!Vorname
.Worksheets(1).Cells(i, 6) = rs!Name
.Worksheets(1).Cells(i, 7) = rs!StraßePostfach
.Worksheets(1).Cells(i, 8) = rs!Staat
.Worksheets(1).Cells(i, 9) = rs!PLZ
.Worksheets(1).Cells(i, 10) = rs!Ort
.Worksheets(1).Cells(i, 2) = rs!Briefanrede
End With
i = i + 1
rs.MoveNext
Loop Until rs.EOF
objXL.Application.Calculate
objXL.Visible = True
CodeExit:
Exit Sub
PS: bei mir funz der "Tags-einfügen" btn nicht... | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
