Search results for query: *

wow... found this code: Sub TEST_CLICK() Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "https://www.oklotto.it/ambi-frequenti.php" Set oBrowser = New...

ok strongm, can you create a code to use IE. Tks as usual. But before to click on "aggiorna" i need to set one item from dropdown "year", actually is 2025, but i need to set more...

https://www.oklotto.it/ambi-frequenti.php Possibile to simulate the click event on Aggiorna but set bifore the year 2024? Please without IE object. Naturally in VB 6.0

do not consider tyhe first question... Thi is the new problem. Get value from table cell My test cdoe Sub Getvalue() Dim htm As HTMLDocument Set htm = New HTMLDocument Dim CLS As Object Dim lRow As Long With CreateObject("msxml2.xmlhttp") .Open "GET"...

https://www.lottologia.com/lotto/previsioni-gruppi-omogenei/ Based this lin, how to get numeric value from each table, for: Bari Bari Milano Firenze Torino Note: the number of table is dinamic my test code: Option Explicit Private Sub Command1_Click() Dim objHtml As MSHTML.HTMLDocument...

please suggest me internet scurity antivirus, similare AVG inetrnet security. Tks Narturally free and with no expiration date

tks bro work great. only a tips... I have goggoling to find a func for MSXML2.XMLHTTP, similar when i use IE object to be sure the page is really charged Do While .Busy: DoEvents: Loop Do While .readystate <> 4: DoEvents: Loop i have tested one with: Set html = New HTMLDocument With...

sorry strongm yes in particular position

strongm the value in web page is dinamic. When i post the vale is 7075 to day is 7076 Sorry

i just using : ... Set HTML = New HTMLDocument With CreateObject("MSXML2.XMLHTTP") .Open "GET", "https://massimilianobenvenuti.it/i-numeri-piu-frequenti-nelle-10-ruote-del-lotto/", False .send HTML.body.innerHTML = .responseText End With ... i need to get the...

cell.Rows(1).Cells(2).innerText Yes but have error . I think Cell. Not Is the correct object

POSSIBLE to use the sintyax: cell.Rows(1).Cells(2).innerText to get each value from cells?

Private Sub FILL_TABELLA_ANNI() Dim ODOM As HTMLDocument Set ODOM = CreateObject("htmlFile") Dim X As Long Dim ANNO As String, POPZ As String, PERC As String With CreateObject("MSXML2.XMLHTTP") .Open "GET", "https://massimilianobenvenuti.it/archivio-storico-estrazioni-del-lotto-new"...

FOR strongm. im sorry but new city named NAZIONALE in Sub Example arySource = Split("BARI,CAGLIARI,FIRENZE,GENOVA,MILANO,NAPOLI,PALERMO,ROMA,TORINO,VENZIA,NAZIONALE", ",")

my code, CN = Me.LNR.Caption is refred from a label in red is the number of filled rows. On second clik on GIORNO have a blank rows! Note: i have a hide column 10 where numeric value, filled with: .TextMatrix(R, 10) = Format(STRDBROW(1, K), "yyyymmddhhnnss") is the formatted dta GIORNO...

Instead to set .col=nn I have set .colsel=nn Thats Is all.

RESOLVED MY SELF! Tks

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'https://www.tek-tips.com/viewthread.cfm?qid=1819041&action=updated '1-flexSortGenericAscending '2-flexSortGenericDescending '3-flexSortNumericAscending '4-flexSortNumericDescending...

TK strongm, as usual!

for strongm. my test code: Private Sub UNIONE_CELLE() 'flexAlignLeftTop 0 The column content is aligned left, top. 'flexAlignLeftCenter 1 Default for strings. The column content is aligned left, center. 'flexAlignLeftBottom 2 The column content is aligned left, bottom. 'flexAlignCenterTop 3...