Skip to main content

VBA to read text from an already open webpage

VBA to read text from an already open webpage
' Determine if a specific instance of IE is already open.
    Set objShell = CreateObject("Shell.Application")
    IE_count = objShell.Windows.Count
    For x = 0 To (IE_count - 1)
        On Error Resume Next    ' sometimes more web pages are counted than are open
        my_url = objShell.Windows(x).Document.Location
        my_title = objShell.Windows(x).Document.Title
        'You can use my_title of my_url, whichever you want
        If my_title Like "Put your webpage title here" & "*" Then   'identify the existing web page
            Set ie = objShell.Windows(x)
            Exit For
        Else
        End If
    Next

Comments

Post a Comment

Popular posts from this blog

VBA - UI Automation Sample code:

VBA Reference to be added: VBA - UI Automation Project sample code Dim MyElement As UIAutomationClient.IUIAutomationElement Dim MyElement1 As UIAutomationClient.IUIAutomationElement 'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Enum oConditions    eUIA_NamePropertyId    eUIA_AutomationIdPropertyId    eUIA_ClassNamePropertyId    eUIA_LocalizedControlTypePropertyId End Enum Sub Test() Dim AppObj As UIAutomationClient.IUIAutomationElement Dim oInvokePattern As UIAutomationClient.IUIAutomationInvokePattern Dim oAutomation As New CUIAutomation ' the UI Automation API\ Dim oPattern As UIAutomationClient.IUIAutomationLegacyIAccessiblePattern Set AppObj = WalkEnabledElements("BTB Portal 3.0 KA") Set MyElement = AppObj.FindFirst(TreeScope_Children, PropCon...
Post a Comment
Read more

Python - PyQt5 set Background image

import sys from PyQt5.QtCore import QSize from PyQt5.QtGui import QImage, QPalette, QBrush from PyQt5.QtWidgets import * class MainWindow ( QWidget ): def __init__ ( self ): QWidget. __init__ ( self ) self .setGeometry( 100 , 100 , 300 , 200 ) oImage = QImage( "test.jpg" ) sImage = oImage.scaled(QSize( 300 , 200 )) # resize Image to widgets size palette = QPalette() palette.setBrush( 10 , QBrush(sImage)) # 10 = Windowrole self .setPalette(palette) self .show() if __name__ == "__main__" : app = QApplication(sys.argv) oMainwindow = MainWindow() sys.exit(app.exec_())
2 comments
Read more

VBA uiautomationcore.dll to save internet explorer download

Copy file  C:\Windows\System32\UIAutomationCore.dll  file to users Documents i.e  C:\Users\admin\Documents  then add reference  UIAutomationClient  to your macro file. Paste below code in your module: Option Explicit Dim ie As InternetExplorer Dim h As LongPtr Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( ByVal hWnd1 As LongPtr , ByVal hWnd2 As LongPtr , ByVal lpsz1 As String , ByVal lpsz2 As String ) As LongPtr Sub Download () Dim o As IUIAutomation Dim e As IUIAutomationElement Set o = New CUIAutomation h = ie . Hwnd h = FindWindowEx ( h , 0 , "Frame Notification Bar" , vbNullString ) If h = 0 Then Exit Sub Set e = o . ElementFromHandle ( ByVal h ) Dim iCnd As IUIAutomationCondition Set iCnd = o . CreatePropertyCondition ( UIA_NamePropertyId , "Save" ) Dim Button As IUIAutomationElement...
Post a Comment
Read more