Html maker - testers required!

Richard Schollar

MrExcel MVP
Joined
Apr 19, 2005
Messages
23,707
As some of you may be aware, I have been making an add-in to produce html output of selected data in Excel. The output is fairly consistent with that produced by Excel Jeanie as can be seen here:

http://www.mrexcel.com/forum/showpos...&postcount=241

the differences being:

1. the interface is a whole lot simpler
2. you can choose if you want to output all the formulas in selection or only some of them
3. the ouput colour-codes nesting levels in the formulas
4. it only does formulas and data (it doesn't report conditional formatting or data validation applied)
5. it comes as an .xla file rather than an .exe (so doesn't require Admin rights to install!)
6. the code is visible for anyone that wants to laugh (or cry) at it


The generated html should also be considerably simpler as much of the formatting and style elements are now held in a css file applied to the whole Board (Suat Ozgur has created a css class which I link to in the generated html).

It has been tested by me and Jon von der Heyden and feedback from Suat incorporated. What I need now is for some others to test and come back with any comments.

If you would like to see the file and perhaps test it, please Private Message me with your email address and I'll send you the .xla file and a .doc file with guidance notes:

The .xla file is approx 100Kb in size, so it isn't very big. It will work in all versions of Excel since xl2000, although I will be developing a specific xl2007 ribbon interface next.

Thanks!
 
Last edited:
Upvote 0

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.
Hi Rory, thanks for the reply.

You seem to have downloaded the Mac version for some reason?

… Because I did not read the notes properly.!! Oops!! I Thought it was an update. I stupidly Just did not notice that the mac version was a separate extra.
. So I deleted everything, started again and now I have everything correctly! Brilliant. Thanks

The BBCode bit of mine is the same as shg's add-in.

….. I think the extra bit is still not there…
Yours…





……………………………….
Shg from Post #3
http://www.mrexcel.com/forum/excel-questions/837991-excel-forum-software.html
https://app.box.com/s/soezox25h3w0q5s4rcyl







But no problem I can use shg for a table without headers… (I just have to have it monochrome as it errors at a line which I think makes the colors..

Code:
        [color=blue]End[/color] [color=blue]Select[/color]
 
        [color=blue]If[/color] .Font.Bold [color=blue]Then[/color] AddTag sL, sR, "B"
        [color=blue]If[/color] .Font.Italic [color=blue]Then[/color] AddTag sL, sR, "I"
        [color=lightgreen]'If .DisplayFormat.Font.Color <> vbBlack Then AddTag sL, sR, "COLOR", sBbRGB(.DisplayFormat.Font.Color)'Error 428 : Object  does not support this Property or Method[/color]
        [color=blue]If[/color] .Font.Underline <> xlUnderlineStyleNone [color=blue]Then[/color] AddTag sL, sR, "U"
 
        [color=blue]If[/color] bFrm [color=blue]Then[/color]

.. so I have to edit that bit out. May just be my system? (XL 2007 )

So got there in the end again
Thanks.
Alan
 
Upvote 0
The BBCode bit of mine is the same as shg's add-in.

You seem to have downloaded the Mac version for some reason?

Hello,

is it possible to download the addin BBcode and where ?
What are the possibility with this add in ?

Patrick (XP and xl 2007)
 
Last edited:
Upvote 0
OK, I have updated the add-in on my site.


Hi

Brilliant, thanks..
When you do it could you check out the error bit with the color? (Or don’t bother – I will let you know!)
(… shg does not like colors… he may have dropped in that error on purpose! - only joking!! :laugh:)

Alan

………………………………………………….

P.s. Just some minor long term suggestions, if it were possible.

. 1) If your BBCode with the Formula option could produce the color breakdown like the HTML maker does.. that would be a crowning opting I think.

HTML Maker:



Yours With Formulas:

[TABLE="class: grid"]
[TR]
[TD][/TD]
[TD]
P​
[/TD]
[/TR]
[TR]
[TD]
4​
[/TD]
[TD]
{=INDEX(INDEX($A$16:$C$33,N(IF(1,MMULT(N(TRANSPOSE($A$16:$A$33)=$A$3:$A$10),ROW($A$16:$A$33)-ROW($A$15)))),3),)}​
[/TD]
[/TR]
[/TABLE]


… but not a big deal.. I am in a small minority with my color obsession!!


P.s. 2

. For me it always looks better if the table size is reduced (to smallest – not sure if that is size 1? ) because there are often problems with the width when trying to post a Table with lots of columns. I think lots of people have problems with that

[TABLE="class: grid"]
[TR]
[TD][/TD]
[TD]
P​
[/TD]
[/TR]
[TR]
[TD]
4​
[/TD]
[TD]
{=INDEX(INDEX($A$16:$C$33,N(IF(1,MMULT(N(TRANSPOSE($A$16:$A$33)=$A$3:$A$10),ROW($A$16:$A$33)-ROW($A$15)))),3),)}​
[/TD]
[/TR]
[/TABLE]


P.s. 3

. And a very last unimportant one: It would be helpful if after copying successfully to the clipboard, a Message box pops up to confirm that it “works” . This feature is in the Mr Excel Visual Basic Code Maker.




………






….And the absence of it in the HTML Screenshot maker often catches people out, not realizing that it has been copied.

………………………………..
 
Last edited:
Upvote 0
Hello,

i m testing "Copy range to Clipboard" and i have a error here: (line 190)

140 Case vbEmpty
' nada
150 End Select
160 End Select


170 If .Font.Bold Then AddTag sL, sR, "B"
180 If .Font.Italic Then AddTag sL, sR, "I"
190 If .DisplayFormat.Font.Color <> vbBlack Then AddTag sL, sR, "COLOR", sBbRGB(.DisplayFormat.Font.Color)
200 If .Font.Underline <> xlUnderlineStyleNone Then AddTag sL, sR, "U"


210 If bFrm Then
220 If .HasFormula Then
 
Upvote 0
Hello,

is it possible to download the addin BBcode and where ?


Patrick (XP and xl 2007)


Ask Mr. Excel - VBA HTML Maker

………………………………………….


Hello,


What are the possibility with this add in ?

Patrick (XP and xl 2007)









Code:
[color=blue]Public[/color] [color=blue]Function[/color] GetURLRoaryA(cell [color=blue]As[/color] Range, [color=blue]Optional[/color] default_value [color=blue]As[/color] [color=blue]Variant[/color]) [color=blue]As[/color] [color=blue]Variant[/color] [color=lightgreen]'When an Array is assigned through Let to this function, it returns an Array which then through effectively A "Let One Liner" becomes a modified Range based on the Supplied range and any Additional Arguments. It can be thought as a normal Function working on a input Range. A Particular characteristic here is that the Output is created in a loop which specifically assigns each cell within the range. This probably ensures that VBA in any further workings "Know" or "allows" for an Array and so for example ensures that this Function can be used in Evaluate Function "One liners" without the usual "coercing stuff". I think variant is the only type of Function capable of returning an Array. By val use the value held in the value within the sub (Function) , rather than referencing the allocated source "bucket" of the variable. So any given value to the Variable outside the Sub (Function) are not changed[/color]
[color=lightgreen]'     'Lists the Hyperlink Addresses for a given range[/color]
[color=lightgreen]'     'If cell does not contain a hyperlink, return default_value[/color]
[color=lightgreen]'                                    Dim rCell As Range'...." started out with a simpler version and then decided to redo it to handle ranges with more than one row/column but forgot to remove the variable declaration."[/color]
    [color=blue]Dim[/color] vOut() [color=blue]As[/color] [color=blue]Variant[/color]
    [color=blue]Dim[/color] x [color=blue]As[/color] Long: [color=blue]Dim[/color] y [color=blue]As[/color] Long [color=lightgreen]'We build a collection of output by looping into an Array. So these variables will be used for both Row,Column indicies for the cell Range coming into the Function, as well as the Array Indicies. Long is a Big whole Number limit (-2,147,483,648 to 2,147,483,647) If you need some sort of validation the value should only be within the range of a Byte/Integer otherwise there's no point using anything but Long.--upon/after 32-bit, Integers (Short) need converted internally anyways, so a Long is actually faster.[/color]
    [color=blue]If[/color] IsMissing(default_value) [color=blue]Then[/color] default_value = vbNullString [color=lightgreen]'I guess this is important to give it an empty cell rather than not yet anythng, as not yet anything may cause strange errors somewhere[/color]
 
Upvote 0
Last edited:
Upvote 0
OK, I have updated the add-in on my site.

......and (very) shortly after.......

OK, I've uploaded a new version of the PC add-in which now has options for Grid, Headers and coloured formula parts. Oh, and a message on successful copy as well as a Cancel button on the form.


[Table="width:, class:grid"][tr][td]Row\Col[/td][td]
P​
[/td][/tr]
[tr][td]
5​
[/td][td]
=INDEX(INDEX($A$16:$C$33,N(IF(1,MMULT(N(TRANSPOSE($A$16:$A$33)=$A$3:$A$10),ROW($A$16:$A$33)-ROW($A$15)))),3),)​
[/td][/tr]
[/table]



…. Words fail me… Amazing! We and the Forum Software are not worthy!


<a href="http://s1065.photobucket.com/user/DocAElstein/media/MegaRoryTool_zpsgpm7ll6u.jpg.html" target="_blank"><img src="http://i1065.photobucket.com/albums/u400/DocAElstein/MegaRoryTool_zpsgpm7ll6u.jpg" border="0" alt=" photo MegaRoryTool_zpsgpm7ll6u.jpg"/></a>

 
Upvote 0

Forum statistics

Threads
1,223,907
Messages
6,175,300
Members
452,633
Latest member
DougMo

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top