Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Converting Excel to html file
I use this code, which works fine: Function fCreateHTMLTable(rngData As Range, _ blnUseHeaderTags As Boolean) As String '================================================= ================== '= Procedu fCreateHTMLTable = '= Type: Private Function = '= = '= Purpose: Creates a 'clean' HTML table (ie. no unwanted = '= formatting tags) from an Excel range. Understands = '= merged cells. = '= Parameters: rngData - Range - The range to be converted to = '= HTML. blnUseHeaderTags - Boolean - True if column = '= heads are to use <TH rather than <TD tags. = '= Returns: String - The HTML string surrounded by <TABLE = '= tags. = '= = '= Version: Date: Developer: Action: = '=---------|---------|---------------|-----------------------------= '= 1.0.0 |15-Nov-99| Rob Bruce | Created = '================================================= ================== '================================================= ============== 'HTML Tags 'Table Const TABLE_BEGIN As String = "<TABLE" Const TABLE_END As String = "</TABLE" 'Row 'light blue Const TABLE_ROW_FIELDS As String = "<TR bgcolor=#DCDCFF" 'light yellow Const TABLE_ROW_ODDS As String = "<TR bgcolor=#FFF66" 'no background colour Const TABLE_ROW As String = "<TR" Const TABLE_ROW_END As String = "</TR" 'Cells Const TABLE_HEADER_BEGIN As String = "<TH" Const TABLE_HEADER_END As String = "</TH" Const TABLE_CELL_BEGIN As String = "<TD" Const TABLE_CELL_END As String = "</TD" 'Attributes Const TABLE_CELL_MERGEROWS As String = " ROWSPAN = """ Const TABLE_CELL_MERGECOLS As String = " COLSPAN = """ 'Misc Const DOUBLE_QUOTE As String = """" Const TAG_CLOSE As String = "" Const COMMENT_START As String = "<!--Exported From Excel: " Const COMMENT_END As String = "--" '================================================= ============== Dim intColCount As Integer Dim intRowCount As Integer Dim intColCounter As Integer Dim intRowCounter As Integer Dim intMergeRowsCount As Integer Dim intMergeColsCount As Integer Dim rngCell As Range Dim blnCommitCell As Boolean Dim strHTML As String Dim strAttributes As String 'Initial table tag... strHTML = TABLE_BEGIN 'Comment - delete this line or comment it out 'if you don't want the HTML comment at the head 'of your table... strHTML = strHTML & vbCrLf & COMMENT_START & _ rngData.Address(external:=True) & _ COMMENT_END With rngData 'Discover dimensions of the data we 'will be dealing with... intColCount = .Columns.Count intRowCount = .Rows.Count 'Loop down the table's rows For intRowCounter = 1 To intRowCount 'Make the HTML a little friendlier If intRowCounter = 1 Then If blnUseHeaderTags Then strHTML = strHTML & vbCrLf & TABLE_ROW_FIELDS Else strHTML = strHTML & vbCrLf & TABLE_ROW_ODDS End If Else If Not intRowCounter Mod 2 = 0 Then strHTML = strHTML & vbCrLf & TABLE_ROW_ODDS Else strHTML = strHTML & vbCrLf & TABLE_ROW End If End If 'Loop accross columns... For intColCounter = 1 To intColCount 'Mark the cell under current scrutiny by setting 'an object variable... Set rngCell = .Cells(intRowCounter, intColCounter) '(Re-) initialise variable that will hold 'the cell's internal attributes... strAttributes = "" '(Re-) initialise variable that will tell us 'whether this cell will be written to the table '(it will not if it is part of a merged range 'and is not that range's first cell). blnCommitCell = True 'Is the cell merged?.. If Not rngCell.MergeArea.Address = _ rngCell.Address Then 'Is the cell the first cell in the merged range? '(we're only interested in it if it is) If rngCell.Address = rngCell.MergeArea. _ Cells(1).Address Then 'How many columns in the merged range?.. intMergeColsCount = rngCell.MergeArea. _ Columns.Count 'If there are more than one we need to 'register this in the Attributes string... If Not intMergeColsCount = 1 Then strAttributes = TABLE_CELL_MERGECOLS & _ intMergeColsCount & DOUBLE_QUOTE End If 'Do the same sort of thing for rows in 'the merged range... intMergeRowsCount = rngCell.MergeArea _ .Rows.Count If Not intMergeRowsCount = 1 Then strAttributes = strAttributes & _ TABLE_CELL_MERGEROWS & _ intMergeRowsCount & DOUBLE_QUOTE End If Else 'Otherwise we don't want to do anything 'with this cell - it is irrelevant to 'HTML: Only the first (upper left) cell 'of an HTML merged range is actually 'coded into the table... blnCommitCell = False End If End If 'OK, so now we need to construct the actual 'HTML tag for the cell - if the cell is to 'be coded, of course... If blnCommitCell Then 'Use <TH table header tags for the top 'row of the table... If intRowCounter = 1 And blnUseHeaderTags Then strHTML = strHTML & TABLE_HEADER_BEGIN & _ strAttributes & TAG_CLOSE Else 'Otherwise use regular <TD tags... strHTML = strHTML & TABLE_CELL_BEGIN & _ strAttributes & TAG_CLOSE End If 'Now we can enter the cell's actual value. 'We'll use the Text property of the cell 'so that the actual display of the cell is 'coded into the HTML table... strHTML = strHTML & rngCell.Text 'Close off the tag by inserting the 'appropriate </TH or </TD tag end. If intRowCounter = 1 And blnUseHeaderTags Then strHTML = strHTML & TABLE_HEADER_END Else strHTML = strHTML & TABLE_CELL_END End If End If Next intColCounter 'Close off the row... strHTML = strHTML & TABLE_ROW_END Next intRowCounter End With 'Finally, close off the table... strHTML = strHTML & vbCrLf & TABLE_END 'Return the HTML string... fCreateHTMLTable = strHTML End Function RBS "Vadamalai." wrote in message ... I am developed Converting Excel file into html file using "Windows console C#" Application. Service installed successfully(Windows XP, Office 2007). But i am getting error "ExcelToHTML.ConvertExcelToHTML() - Error accessing Excel document. 'c:\vadamalai\Service\Process\Processed\HTML\CDS_L IST_AT_MCF.HTML' cannot be accessed. The file may be corrupted, located on a server that is not responding, or read-only." And ExcelToHTML.ConvertExcelToHTML() - Error accessing Excel document. Retrieving the COM class factory for component with CLSID {00024500-0000-0000-C000-000000000046} failed due to the following error: 80080005. Pls reply me what can i do |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Converting Excel to HTML | Excel Worksheet Functions | |||
Converting PDF or HTML to Excel | Excel Worksheet Functions | |||
Converting excel spread sheet to html then to web page | New Users to Excel | |||
converting .html to regen lost .xls file | Excel Worksheet Functions | |||
Converting Excel File to html | Excel Discussion (Misc queries) |