Macro to fill a Microsoft Edge form with data from an Excel sheet

[fabcat1]

Hi,



I’d like to create a macro which would generate entries in a database filling a Microsoft-Edge form from an Excel file (1 page for each line of the Excel file)



The steps are :

1. Declare the variables
   • Dim ws As Worksheet
   • Dim i As Integer
   • Dim lastrow As Integer
2. Open the Excel worksheet “Data”
   • Set ws = ThisWorkbook.Sheets("Data")
3. Open a Microsoft-Edge page “mypage”
   • ActiveWorkbook.FollowHyperlink Address:="microsoft-edge:https://Path/Home.aspx"
4. Temporisation to ensure the page is loaded
5. Fill textboxes with the content of the Excel sheet cells ws.Cells(i, 1), ws.Cells(i, 2), ws.Cells(i, 3), ws.Cells(i, 4)
   • Type=”text” id=”textbox1” , Type=”text” id=”textbox2” Type=”text” id=”textbox3” Type=”text” id=”textbox4”
6. Click the “submit” button
   • Type=”button” id=”submit_button”
7. Increment i and fill another entry (loop steps 3 to 6)
8. Loop until ws.Cell(i, 2) is empty

Can someone please help ?



Thanks a lot

 

[shknbk2]

Study up on Selenium for VBA. I use it all the time to control webpage data insertion and data dumping.

Here is a good tutorial to start:

VBA - scraping websites videos | Excel VBA Part 57.1 - Getting Started with Selenium Basic and Google Chrome

Wise Owl video on VBA - scraping websites: Excel VBA Part 57.1 - Getting Started with Selenium Basic and Google Chrome

www.wiseowl.co.uk

 

[fabcat1]

Study up on Selenium for VBA. I use it all the time to control webpage data insertion and data dumping.

Here is a good tutorial to start:

VBA - scraping websites videos | Excel VBA Part 57.1 - Getting Started with Selenium Basic and Google Chrome

Wise Owl video on VBA - scraping websites: Excel VBA Part 57.1 - Getting Started with Selenium Basic and Google Chrome

www.wiseowl.co.uk

Shknbk2

Thanks for your answer

Unfortunately it doesn't help me

I have to use an Edge page (in a professional environment) and populate it

So far I can open the page but I can't set a tempo to ensure the page is loaded before I fill the fields.

so far my code is as follow

Can you please help me with the tempo ?
Thanks


Sub OpenEdge()
Dim Edge As Object
Dim objelement As Object
Dim c As Integer
Dim LastRow, i, j As Integer

Set Edge = CreateObject("shell.Application")

With Edge


'ouvrir la page de saisie d'une nouvelle demande
ActiveWorkbook.FollowHyperlink Address:="microsoft-edge:https://teams.company/sites/NewForm.aspx?RootFolder="


'temporisation


'remplir le titre de la demande
obj.FindElementByName("Titre Champ obligatoire").SendKeys ("titre_test")


'créer la nouvelle demande
obj.FindElementByPath("//*[@value='SubmitToApprobationButton']").Click




End With

End Sub

 

[fabcat1]

Study up on Selenium for VBA. I use it all the time to control webpage data insertion and data dumping.

Here is a good tutorial to start:

VBA - scraping websites videos | Excel VBA Part 57.1 - Getting Started with Selenium Basic and Google Chrome

Wise Owl video on VBA - scraping websites: Excel VBA Part 57.1 - Getting Started with Selenium Basic and Google Chrome

www.wiseowl.co.uk

Also, I can't use Selenium as it's not validated by the IT service of my company so far

 

[shknbk2]

Are you able to populate the page using your code once it is loaded? For example, if you put in a wait block of 10 seconds to make sure it is loaded, can you fill the objects with data?