Option Explicit Const CDATABASE = "keywords.xls" Const OUTPUTDATEI = "meinprojekt.hhk" Const OVERWRITE = True Dim oRS, oConn, fso, KeyDatei, strOutput strOutPut = vbTab & "

" & vbCrLf Set fso = CreateObject("Scripting.FileSystemObject") Set KeyDatei = fso.CreateTextFile(OUTPUTDATEI, OVERWRITE) WriteHead() Readdb WriteFooter() KeyDatei.Close MsgBox "Fertig" Sub Readdb() Set oConn = CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Excel 8.0;DATABASE=" & CDATABASE Set oRs = oConn.Execute("SELECT * FROM Datenbank ORDER BY 2") Do Until oRs.eof KeyDatei.write Replace(Replace(strOutPut, "xxxx", oRS(0)), "yyyy", oRS(1)) oRs.MoveNext Loop oRs.close oConn.close End Sub Sub WriteHead() KeyDatei.Write "" & vbCrLf & "" & vbCrLf & _ "" & vbCrLf & "" & vbcrlf & _ "" & vbCrLf & "

" & vbCrLf End Sub Sub WriteFooter() KeyDatei.Write "" & vbCrLf & "" End Sub