>decide to use the code "GetJsonData()"
Whilst I am naturally happy that you have returned to this, may I ask why? Did my Selenium-based code above not work for you?
>the Json return all info for my project
The json returned by my code is the json that is used to dynamically build the table...
BTW, not quite sure why SoftwareRT has suggested scraping the page with Selenium, since the whole point of my suggestion of this alternative was that you'd be able to 'Export CSV'.
So here's my code for doing just that (albeit using the Edgedriver rather than the Chromedriver)
Sub TEST_Edge()...
>I ran this in an Access Module so I could F8 Step through code
>testing in Access (VBA)
Bit confused, to be honest. Firstly, why are you attempting to provide VBA solutions in the VB6 forum? The F8 thing seems strange, given that the VB6 IDE has the same capability.
Secondly, as it...
>>i have set also Selenium type library in preference of VB 6.0
Just to avoid one possible area - which Selenium Type library?. There should are two, one for 32bit, one for 64bit. You want the 32bit one for VB6
Also with VB6 you may want to try the alternate initial navigation:
BOT.Start...
Right, so whilst we could emulate clicking the button on the page just as we (sort of) have for the Cerca button, the data to export isn't on the page, so the Export button has nothing to export.
And what we have done is get just teh data that is used to populate the table back as a json...
>good idea, or not?
Since I don't know what you then want to do with the data I don't know whether it is a good idea or not
My point is that, since you have the data in the json string, you can save it as a CSV (or whatever format you like) yourself
Option Explicit
Public Sub doit()
Dim strResult As String
strResult = GetJsonData()
Debug.Print strResult
End Sub
' Requires reference to Microsoft HTML Library
Public Function GetJsonData() As String
Dim objHttp As Object
Dim myHTMLDoc As New HTMLDocument
Set...
IE does not render the site correctly - the table (which is dynamically created in e.g Edge) does not get created, so it cannot be scraped.
And whilstr it is possible to emulate clicking the button (by performing a form SUBMIT) in MSXML2 this does not update the page either - it returns the...
>What might cause this behavior?
Can't answer that at the moment (not least because something has broken my Visual Studio installation), but
>FileSystemWatcher glitch
Can't see any restrictions on this. I was able to create a thread with that title
Function IsMember(domainName, computerName, groupName)
Dim objConnection, objCommand, objRecordSet, ldapFilter, baseDN, filter, attributes
Dim groupDN, computerDN, isMember
Ah, actually I see you already addressed this ...
>Do I just repeat the attachements.add code for each attachment
Yes, you do. Abd just check the attachment name has a value before adding it (you might even want to check it is a valid name as well)
So
If AttachmentName <>"" then Attachments.Add AttachmentName
...= GetObject("winmgmts:\\.\root\cimv2")
' Query to get all installed printers
Set colPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
' Loop through all printers found
For Each objPrinter In colPrinters
' Check if the printer's port contains...
>you need uncheck all email notifications in your profile
you may also need to go into watched forums (and watched threads) and disable email and alerts as per your preferences there as well.
(the end result is that alerts/notiocations are far more flexible than the old site - it is just a...
So, this is the first time you have mentioned SQL or that the error was a SQL-related
Indeed, your OP is very specific about this being a 429 error.
And the SQLSecurityCheck does not 'prevent Excel from directly running code in Word' - it simply alerts you that a SQL command is attempting to...
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.