BUG: ForeColor Do Not Paste Into Excel

[Reinfried Englmair]

With
http://support.microsoft.com/default.aspx?scid=kb;en-
us;316586
there is an example for background-color in Office XP
PivotTable:
Sub CopyToXL_1()
Dim sHTML, oXL, oBook
'Replace the mso-pattern style in the HTML returned from
the PivotTable.
sHTML = ptable.HTMLData
sHTML = Replace (sHTML, "mso-pattern:auto;", "mso-
pattern:auto none;")
'Open the HTML file in Excel using Automation.
Set oXL = CreateObject("Excel.Application")
Set oBook = oXL.Workbooks.Add
oBook.HTMLProject.HTMLProjectItems("Tabelle1").Text =
sHTML
oBook.HTMLProject.Refreshdocument
oXL.Visible = True
oXL.UserControl = True
End Sub

But:
The ForeColor and Background Colors of calculated members
do NOT paste into Excel.

Is this a bug ??????? and have anywhere an idea for an
workaround?