У меня есть функция VBA, которая отлично работает в Excel.
Но я бы хотел запустить функцию из другого макроса и запустить марко в фоновом режиме ...
Функция stripHTML:
Public Function StripHTML(ActiveCell As Range) As String
Dim RegEx As Object
Set RegEx = CreateObject("vbscript.regexp")
Dim sInput As String
Dim sOut As String
sInput = ActiveCell.Text
sInput = Replace(sInput, "\x0D\x0A", Chr(10))
sInput = Replace(sInput, "\x00", Chr(10))
and a lot more replaces....
With RegEx
.Global = True
.IgnoreCase = True
.MultiLine = True
End With
sOut = RegEx.Replace(sInput, "")
StripHTML = sOut
Set RegEx = Nothing
End Function
Марко, который вызывает функцию:
Sub actual()
Call Module3.StripHTML(ActiveCell)
Range("C2").Select
ActiveCell.Formula = "=IFERROR(StripHTML(tablename[@[column *]]),"""")"
End Sub
Теперь, когда я использую формулу StripHTML в Excel, когда рабочая книга открыта, функция работает отлично. Но когда я использую макрос, функция не работает ...
Есть идеи?