>my test code, dont work
If you mean the code in the first post here, then it works fine here. But I'm on Windows 10 and, whilst IE has been 'removed' from Windows, the com library, Internet Controls, which is "internet.explorer", still works fine. I am led to believe that some installations it...
mxxml2.XMLHTTP and WinHTTP.WinHTTPrequest.5.1 are for most of your purposes pretty much the same thing, and you can use either interchangeably, i.e wherever you might use
CreateObject("MSXML2.XMLHTTP")
you can instead use
CreateObject("WinHTTP.WinHTTPrequest.5.1")
with no other changes...
Try
Decompiling your DB (a commandline thing, e.g "C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE" "YourDB.accdb" /decompile)
Recompile the VBA project (from VBA editor: Debug > Compile).
Then compact and Repair
>imulate the click event
Without the IE engine you'll need something like the WebView2 control or Selenium. XMLHTTP only sends HTTP requests and does not parse or run JavaScript or HTML like a browser does (under certain circumstances it is possible to emulate what the click event does, but I...
Given that VB as a whole currently (April 2025) has a market share of around 0.38% (at least according to PYPL PopularitY of Programming Language), and that VB6 is only going to represent a small proportion of that 0.38%, I am often surprised we get any posts in here at all!
Even if we go with...
Well, no. becasue that value is actually derived from a hidden HTML property of the input form. Which is a good thing, because that's easy to capture
Option Explicit
Public Sub spoon()
Dim html
Dim fonttags
Dim inputtags
Dim inputtag
Set html = New HTMLDocument
With...
There's clearly more to it than simply retrieving 7075. Today, for example, the value appears to be 7076
If you provide a brief explanation of how/why you need this value we can suggest an appropriate solution.
Given my code should be returning the value of every single cell in the table, what is it that you are actually trying to do? You want to treat the table like an array?
In which case:
result=myHTMLTable.Rows(rowIndex).Cells(colIndex).innertext
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.