Working with VBA

@AcidBurn wrote:

Hi!
Help to write the macro, please.

Sub Test1()
Dim Link%, Cond%, Result%: Link = 5: Cond = 5
Result = Application.Sum(Link, Cond)
MsgBox Result
End Sub

Sub Test2()
' Temporarily make Async functions run synchronously
' https://seotoolsforexcel.com/working-with-vba/
Dim Link$, Cond$, Result$
Link = "https://twitter.com/fvirtanen"
Cond = "//p[@class='ProfileHeaderCard-bio u-dir']"
' Result = Application.XPathOnUrl(Link, Cond) '>> Run-time error '438'
Result = Evaluate("=XPathOnUrl(Link, Cond)") '>> Run-time error '13'
End Sub

Test1 is working, Test2 - Run-time error '438' or Run-time error '13'.
What am I doing wrong?

Posts: 3

Participants: 1

Read full topic