Astuces Excel
  1. Astuces Excel
  3. Parlez le tableau du site Web à la feuille de travail Excel après avoir cliqué sur un button
Intereting Posts
Transformer une formule dans le code vba Modifiez les valeurs dans le file excel des valeurs d'autres excel en utilisant Python Formulaire VB – pour permettre à l'interaction de l'user de sélectionner des données à partir de SQL Server C # Insérer un hyperlink dans une cellule pleine de text Do-Until Loop Not Recognizing Valeurs de plage Création d'un événement personnalisé avec VBA Vérification des cellules colorées à l'aide de SUMPRODUCT Fonction Excel Hlookup OleDbException en essayant de lire le file excel dans c # – La table externe n'est pas dans le format attendu J'aimerais voir si la feuille de calcul existe et select la feuille de calcul, mais "Argument not Optional" apparaît comment exporter des données de datagrid pour excel sans images? Boucle jusqu'à la dernière colonne (horizontalement) à utiliser Enregistrement des files Excel en tant que TSV à l'aide de la macro Comment utiliser VBA et RegEx dans Excel pour replace datatables? Directive AngularJS pour prévisualiser les documents stockés sur S3

Parlez le tableau du site Web à la feuille de travail Excel après avoir cliqué sur un button

J'ai fait un code Excel Vba qui télécharge des tables de différentes pages du site Web en utilisant des requêtes Web, mais maintenant je souhaite la modifier pour effectuer les opérations suivantes:

  1. Accédez au site Web (maintenant je le fais en créant une nouvelle application Internet Explorer)
  2. Cliquez sur un button (après cela, les informations nécessaires sont affichées de manière appropriée)
  3. Obtenez une table qui contient les informations nécessaires (après avoir cliqué sur le button) et mettez datatables dans Excel.

J'ai fait la première et la deuxième étape, mais je ne sais pas comment faire la troisième étape. Si l'on utilise une requête Web, elle montre le site sans button enfoncé.

Ceci fait partie du nouveau code (sans troisième étape): 

Sub DownloadDataAfterButtonClicked() Dim html As HTMLDocument Dim oIE As Object, p1 As Integer, p2 As Integer, p3 As Integer, page As Ssortingng, q1 As Ssortingng, q2 As Ssortingng, q3 As Ssortingng Dim app As New Excel.Application, nb As Excel.Workbook Set oIE = CreateObject("InternetExplorer.Application") oIE.Visible = True app.Visible = True Set nb = app.Workbooks.Add page = ("http://www.example.com") oIE.Navigate (page) Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop Set html = oIE.Document Set NodeList = oIE.Document.getElementbyId("switchLink") NodeList.Click