>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
Becasue this code is in not written to scrape the page properly.
here's something to put you on the right tracks, but leaves you with some work to do.
Private Sub FILL_TABELLA_ANNI()
Dim X As Long
Dim result As String
Dim cell As Object
Dim ODOM As HTMLDocument
Dim...
My code takes no account of how many columns the flexgrid actually has, It will fail if there are not enough columns available. So just add a few more (either at design time or run time)
Flexgrids sort on an entire column - you can't only sort part of that column. And whilst you have populated only 15 rows, there are MORE than 15 rows in your columns. And so empty values are being included in your sort.
>SORT DATE in msflexgrid not correct
In what way is it wrong
>the date in array have thuis format: dd/mm/yyyyy
Just to make certain, the regional shortdate format on your PC is?
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.