why VBHTMLMaker no longer works in my machine?

[flora1]

i have uploaded a copy of VBHTMLMaker it used to work in my excel 2010 32 bit.

i have upgraded to 64 bit of 2016 version Excel. and it does not work. it gives errors and i do not have the passwod to debug and see how to fix it.

anyone has any updated working copy? or anyone can help me fix this?

https://1drv.ms/x/s!AlfEVNV8SKm1dKHRc2XnnYVc8mo

 

[MARK858]

The VBHtml maker is only 32 bit complient.

I haven't seen any updates and not expecting to as the original writer is very rarely on the board these days.

 

[flora1]

thanks Mark

 

[Scott Huish]

https://www.mrexcel.com/forum/about-board/1017050-mrexcel-html-maker-update.html#31

 

[MARK858]

Hi Scott, that link is to the update for the MrExcel HTML Maker, what we are discussing here is the VBHTML Maker (even though these days it is better to use the BB option) which produces colored VB code rather than do it manually i.e.

Option Explicit

Function pull(xref As String) As Variant
    Dim xlapp As Object, xlwb As Workbook
    Dim b As String, r As Range, C As Range, n As Long
    n = InStrRev(xref, "\")
    If n > 0 Then
        If Mid(xref, n, 2) = "\[" Then
            b = Left(xref, n)
            n = InStr(n + 2, xref, "]") - n - 2
            If n > 0 Then b = b & Mid(xref, Len(b) + 2, n)
        Else
            n = InStrRev(Len(xref), xref, "!")
            If n > 0 Then b = Left(xref, n - 1)
        End If

        If Left(b, 1) = "'" Then b = Mid(b, 2)
        On Error Resume Next
        If n > 0 Then If Dir(b) = "" Then n = 0
        Err.Clear
        On Error GoTo 0
    End If

    If n <= 0 Then
        pull = CVErr(xlErrRef)
        Exit Function
    End If

    pull = Evaluate(xref)


    If IsArray(pull) Then Exit Function

    If CStr(pull) = CStr(CVErr(xlErrRef)) Then
        On Error GoTo CleanUp
        Set xlapp = CreateObject("Excel.Application")
        Set xlwb = xlapp.Workbooks.Add
        On Error Resume Next
        n = InStr(InStr(1, xref, "]") + 1, xref, "!")
        b = Mid(xref, 1, n)

        Set r = xlwb.Sheets(1).Range(Mid(xref, n + 1))

        If r Is Nothing Then
            pull = xlapp.ExecuteExcel4Macro(xref)

        Else
            For Each C In r
                C.Value = xlapp.ExecuteExcel4Macro(b & C.Address(1, 1, xlR1C1))
            Next C

            pull = r.Value

        End If

CleanUp:
        If Not xlwb Is Nothing Then xlwb.Close 0
        If Not xlapp Is Nothing Then xlapp.Quit
        Set xlapp = Nothing

    End If

End Function

The VBHTML maker is the last Addin at the address below...

https://onedrive.live.com/?id=8CFFDEC0CE27E813!189&cid=8CFFDEC0CE27E813