GridView -> Excel = no gridlines
 

Hi! I use the following client script but get no gridlines in Excel.
function Excel_onclick()
dim sHTML
sHTML = document.getElementById("GridView1").outerHTML
dim oXL, oBook, oSheet
set oXL = CreateObject("Excel.Application")
Set oBook = oXL.Workbooks.Add
oBook.HTMLProject.HTMLProjectItems(1).Text = sHTML
oBook.HTMLProject.RefreshDocument
oXL.Visible = true
oXL.UserControl = true
end function

I am using a bad way?
How to solve it?

Regards Magnus