Thanks Thanks:  0
Likes Likes:  0
Results 1 to 5 of 5

Thread: why VBHTMLMaker no longer works in my machine?

  1. #1
    New Member
    Join Date
    Nov 2017
    Location
    Sweden
    Posts
    39
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Question why VBHTMLMaker no longer works in my machine?

    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

  2. #2
    Board Regular MARK858's Avatar
    Join Date
    Nov 2010
    Location
    Southern England
    Posts
    9,789
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    1 Thread(s)

    Default Re: why VBHTMLMaker no longer works in my machine?

    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 by MARK858; Nov 27th, 2017 at 08:00 AM.
    Test VBA on a copy of your data (remember you can't normally reverse the action)

    Please follow the forum Rules and Guidelines & please use Code tags around your code i.e. [CODE]your code[/CODE]

    To post a screenshot try one of these links
    MrExcel HTML Maker, RoryA addin (Win & Mac) or Borders-Copy-Paste

  3. #3
    New Member
    Join Date
    Nov 2017
    Location
    Sweden
    Posts
    39
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: why VBHTMLMaker no longer works in my machine?

    thanks Mark

  4. #4
    MrExcel MVP
    Moderator
    Scott Huish's Avatar
    Join Date
    Mar 2004
    Location
    Oregon
    Posts
    19,529
    Post Thanks / Like
    Mentioned
    5 Post(s)
    Tagged
    1 Thread(s)

    Default Re: why VBHTMLMaker no longer works in my machine?

    Office 2010/365

  5. #5
    Board Regular MARK858's Avatar
    Join Date
    Nov 2010
    Location
    Southern England
    Posts
    9,789
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    1 Thread(s)

    Default Re: why VBHTMLMaker no longer works in my machine?

    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.

    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=8CFFDE...FFDEC0CE27E813
    Last edited by MARK858; Feb 2nd, 2018 at 02:22 AM.
    Test VBA on a copy of your data (remember you can't normally reverse the action)

    Please follow the forum Rules and Guidelines & please use Code tags around your code i.e. [CODE]your code[/CODE]

    To post a screenshot try one of these links
    MrExcel HTML Maker, RoryA addin (Win & Mac) or Borders-Copy-Paste

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •