This one doesn't give any error. The css selector was faulty.

Sub Redmart_scraping() Dim driver As New WebDriver Dim posts As Object, post As Object driver.Start "Phantomjs", "https://redmart.com" driver.get "/bakery" Set posts = driver.FindElementsByCss("li.productPreview") For Each post In posts i = i + 1: Cells(i, 1) = post.FindElementByCss("h4 > a").Text Cells(i, 2) = post.FindElementByCss("span[class^=ProductPrice]").Text Cells(i, 3) = post.FindElementByCss("img.showImage").Attribute("src") Next post End Sub

@ranjithkumar10 I incorporated the code into my existing code. I am getting a compile error, method ir data member not found. It is reacting to the items as outlook.items line. Here is the code I am testing.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set objNS = olApp.GetNamespace("MAPI")
Set Items = Outlook.Item
Set Item = Outlook.MailItem
singlefolder As Outlook.Folder
testfolders As Outlook.Folder
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items

End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)

On Error GoTo ErrorHandler

'Only act if it's a MailItem
Dim Msg As Outlook.MailItem
If TypeName(Item) = "MailItem" Then
Set Msg = Item

'Set folder to save in.
Dim destfldr As Outlook.Folder
destfoldrId As String
Set Items = objNS.GetDefaultFolder(olFolderInbox).Item
Set Item = Items.GetFirst
destfoldrId = getfolderId("customfolder")
Dim myAttachments As Outlook.Attachments

'location to save in. Can be root drive or mapped network drive.
Const attPath As String = "T:\Daily Report Raw Data"
Const attPath2 As String = "T:\Programmatic Deal Raw Data"

'Change variables to match need. Comment or delete any part unnecessary.
If (Msg.SenderEmailAddress = "[email protected]") And _
(Msg.Subject = "Last 7 Day House Ads") And _
(Msg.Attachments.Count >= 1) Then
'save attachment
Set myAttachments = Item.Attachments
myAttachments.Item(1).SaveAsFile attPath & "\Daily House Ads.xls"
'mark as read
Msg.UnRead = False
'move email
Set destfldr = objNS.GetFolderFromID("DFPHouse")
Item.Move destfldr
End If

I think the issue is with this line

MailApp.sendEmail("[email protected]","New inquiry/referral form submission for Region1, "Sydni, Here's a new inquiry/referral submission for Region1.");

Subject parameter is not closed with quotes.

MailApp.sendEmail("[email protected]","New inquiry/referral form submission for Region1", "Sydni, There's a new inquiry/referral submission for Region1.");

Also make sure that script has access to send emails by manually running sendEmail in another test function.

Hi Glen,

The data in that page is rendered client side by making a call to their API. Read more about client side rendering here and how to scrape such sites here - https://codingislove.com/best-practices-scraping-website-data/

Here's the API Url for your understanding - https://www.cscjes-cronfa.co.uk/api/events?startDate=2017-07-26T00%3A00%3A00%2B05%3A30&take=25&skip=0&_=1501015156446

If you make a GET request to this URL then you'll get that data.

Hi @elfrom I tried this but there's an issue with the library which is throwing an error out of stack space if nested levels are more than 3. I'll keep trying to find any workaround and let you know if I find something. And yes this is one complicated recursion!

Hi, just try this. Neither any reference nor any external library is needed:

Sub Parsing_json() Dim http As New XMLHTTP60, itm As Variant With http .Open "GET", "http://jsonplaceholder.typicode.com/users", False .send itm = Split(.responseText, "id"":") End With x = UBound(itm) For y = 1 To x Cells(y, 1) = Split(Split(itm(y), "name"": """)(1), """")(0) Cells(y, 2) = Split(Split(itm(y), "username"": """)(1), """")(0) Cells(y, 3) = Split(Split(itm(y), "email"": """)(1), """")(0) Cells(y, 4) = Split(Split(itm(y), "street"": """)(1), """")(0) Cells(y, 5) = Split(Split(itm(y), "suite"": """)(1), """")(0) Cells(y, 6) = Split(Split(itm(y), "city"": """)(1), """")(0) Cells(y, 7) = Split(Split(itm(y), "zipcode"": """)(1), """")(0) Cells(y, 8) = Split(Split(itm(y), "phone"": """)(1), """")(0) Cells(y, 9) = Split(Split(itm(y), "website"": """)(1), """")(0) Cells(y, 10) = Split(Split(Split(itm(y), "company"": ")(1), "name"": """)(1), """")(0) Cells(y, 11) = Split(Split(itm(y), "catchPhrase"": """)(1), """")(0) Cells(y, 12) = Split(Split(itm(y), "bs"": """)(1), """")(0) Next y End Sub

Here's the tutorial - Fetching weather data in Excel VBA

@Mustapha-Aliyu This query should work

SELECT Table1.houseid, Table1.flatnumber, Table1.roomnumber, Max(Table1.payscale) AS [Max Of payscale] FROM Table1 GROUP BY Table1.houseid, Table1.flatnumber, Table1.roomnumber;

But It won't return tenant number. I'm trying to get that too. I'll let you know if I could get it!

Thanks for sharing!

Thanks for your response. The data of that site more specifically any site is not important to me at all. However, what does important to me is that whatever the structure of a site is, I can deal with that. That is why I rove different sites and try to understand their pattern. That's it.

@bennyys It's hard to debug without looking at the actual URL. Above posted HTML is also not in the right format.

Great! That did the trick. Thank you so much.....

thank you ranjithkumar10 fro the link.

I've got it sorted. Turn out that when I downloaded the updated chromedriver.exe and pasted it to this folder "C:\Program Files\SeleniumBasic", It works like magic without adding any argument in my script.

Thanks Ranjith, for your reply. I've already got it sorted.

You can use filters or sort by order to group rows vertically as shown in this gif - http://i.imgur.com/rZWI5fA.gif
But I'm not sure if you can get all the users horizontally in the same row unless you write a custom script.

Hi @ranjithkumar10,
Apart from I can't use simple GET to log in to FB, could you please check Function PageAuthorized above if you can manage to get it works.

Regards,
Benny

your welcome.