VBA Problem bei HTML export

22/01/2009 - 23:20 von Christian Pfeffer | Report spam
Hallo,

Ich habe es jetzt soweit, das mir eine html Datei erstellt wird,
doch habe ich nach jeder Zeile wieder eine Kopfzeile und am ende noch eine
Zeile mit nur Nullen.
Wàre nett, wenn mir jemand hilft.
Abfrage13 liefert Name, Dreier, Teiler, Vierziger und Tage
Mein Code:
Private Sub Befehl0_Click()

'* Create an HTML page displaying the query: Abfrage13

Dim MyDB As Database, MySet As Recordset
Dim MyFileName As String, MyCurrentGroup As String
Dim Name As String, Dreier As Double, Teiler As Double, Vierziger As Double,
Tage As Double

DoCmd.Hourglass True

Set MyDB = CurrentDb()
Set MySet = MyDB.OpenRecordset("Abfrage13", dbOpenDynaset)
MyFileName = "c:\vacancies.htm"
Open MyFileName For Output As #1


Print #1, "<html><head>"
Print #1, "<title>Ergebnisse Schützenverein</title>"
Print #1, "</head><body>"
Print #1, "<table border=1>"

MySet.MoveFirst
MyCurrentGroup = "0"

Do Until MySet.EOF
If MyCurrentGroup <> MySet!Teiler Then

If MyCurrentGroup <> "0" Then
Print #1, "<tr><td>" & MySet!Name & "</td>"
Print #1, "<td>" & Format(MySet!Dreier, "###0.00") & "</td>"
Print #1, "<td>" & Format(MySet!Teiler, "###0.0") & "</td>"
Print #1, "<td>" & Format(MySet!Vierziger, "###0.00") & "</td>"
Print #1, "<td><b>" & Format(MySet!Tage, "#0") & "</b></td></tr>"

End If
MyCurrentGroup = MySet!Name
Print #1, "<tr><td>Name</td><td>VM-Wertung</td><td>Teiler</td> <td>40er</td>
<td>Tage</td></tr>"
End If

MySet.MoveNext
Loop

Print #1, "<td>" & Name & "</td>"
Print #1, "<td>" & Dreier & "</td>"
Print #1, "<td>" & Teiler & "</td>"
Print #1, "<td>" & Vierziger & "</td>"
Print #1, "<td>" & Tage & "</td></tr>"
Print #1, "</table>"
Print #1, "<p class='myfooter'>Report created " & Format(Date, "dd mmm yy")
& ". Page created</p>"
Print #1, "</body></html>"
Close #1
MySet.Close

DoCmd.Hourglass False
End Sub

Viele Grüße, Christian
 

Lesen sie die antworten

#1 Christian Pfeffer
22/01/2009 - 23:50 | Warnen spam
Hallo,

Nach einer Denkpause habe ich es doch geschafft,

nur wenn bei einer Zelle kein Wert geliefert wird kommt
<td></td> heraus,
es soll aber <td> </td> heraus kommen.

Gruß, Christian

Ähnliche fragen