export data to Excel??
Hi,
I'm trying to export data to a new Excel Sheet as an application. And I am using the following VBScript sub:
Sub print2(controlID)
dim sButtonClicked, sHTML, pos, sButtonHTML, oExcel, oBook, Elements, tblTOExport
sButtonClicked = controlID & "_hlkExportTOExcel"
Set Elements = document.all.tags("table")
FOR i=0 TO Elements.length -1
pos = InStr(Elements.Item(i).innerHTML, sButtonClicked)
if pos > 0 then
tblTOExport = Elements.Item(i).Id
Exit For
end if
NEXT
sHTML = document.all.item(tblTOExport).outerHTML
sButtonHTML = document.all.item(sButtonClicked).outerHTML
sHTML = Replace(sHTML, sButtonHTML, " ")
set oExcel = createobject("Excel.application")
set oBook = oExcel.Workbooks.Add
oBook.HTMLProject.HTMLProjectItems("Sheet1").Text = sHTML
oBook.HTMLProject.RefreshDocument
oExcel.Visible = True
oExcel.UserControl = True
End Sub
I've two problems :
1) In the formed sheet I cannot see Turkish characters correctly. I'm losing actual letters, is there a need to set the encoding / language to Turkish, if there is how can I do that?
2) I want to remove the Hyperlinks in the sheet but when I use WorkSheet.Hyperlinks.Delete I'm also losing the formatting.
Any help??
|