Dear,
Please help me out to retrieve data from this website and feed those data into the excel Any help will be appreciated . I am trying on this below codes, but not getting the success
I am having the following type of excel sheet as below.
I want if BIC Code is filled then automatic Bank details get filled in all the columns as desired.
Please help me out to retrieve data from this website and feed those data into the excel Any help will be appreciated . I am trying on this below codes, but not getting the success
VBA Code:
Sub Scrape_Stats()
'Create Internet Explorer Browser
Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")
'Ask Browser to navigate to website (.Visible=False will hide IE when running)
With appIE
.Navigate "https://transferwise.com/sg/swift-codes/bic-swift-code-checker?code="
.Visible = True
End With
'Have the macro pause while IE is busy opening and navigating
Do While appIE.Busy
DoEvents
Loop
'Designate the table to be extracted
Dim contentDiv As Object
Set contentDiv = appIE.Document.getElementById("placeholder")
Dim dataTable As Object
Set dataTable = contentDiv.getElementsByTagName("d-block")(1)
'Close IE and clear memory
appIE.Quit
Set appIE = Nothing
'Clear area and paste extracted text into the appropriate sheet/cells
Worksheets("Sheet1").Range("B2").ClearContents
Sheets("Sheet1").Select
Range("B2").Select
End Sub
I am having the following type of excel sheet as below.
I want if BIC Code is filled then automatic Bank details get filled in all the columns as desired.
BIC Code | Bank Name | Line2 Auto | Line 3 Auto | Line 4 Auto |
AACIFRP1XXX | ABN AMRO COMMUNICATIONS INTERNATIONALES | PARIS | FRANCE | |