why VBHTMLMaker no longer works in my machine?

flora1

New Member
Joined
Nov 27, 2017
Messages
48
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
 
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.
 
Last edited:
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.

Rich (BB code):
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
 
Last edited:

Forum statistics

Threads
1,213,536
Messages
6,114,208
Members
448,554
Latest member
Gleisner2

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