Comment lire la table imbriquée <td> les valeurs à l'aide de VBA?

Quelqu'un m'aider ici en disant que la façon de lire les imbriquée html table de valeurs à partir d'une application tierce à l'aide de VBA Excel? comme exemple ci-dessous, j'ai collé une partie de la source HTML où je veux lire la totalité de la valeur et que vous souhaitez stocker dans le fichier excel.Mais ici, toutes sont des tableaux imbriqués qu'ils ont utilisés,et les tables n'ont pas de nom dans le code source html que j'ai vu.

<td>
<table cellspacing="1" cellpadding="0" class="data">
<tr class="colhead">
<th colspan="3">Expression</th>
 </tr>
<tr class="colhead">
<th>Field</th>
<th>Operator</th>
<th>Answer</th>
</tr>
<tr class="rowLight">
<td width="40%">        
Location Attributes:  LOC - Sub Commodity
</td>
<td width="20%">
= 
</td>
<td width="40%">
Abrasives
</td>
</tr>
<tr class="rowDark">
<td width="40%">
Location Attributes:  LOC - Commodity Tier1
</td>
<td width="20%">
= 
</td>
<td width="40%">
Advertising, Sales &amp; Promotion
</td>
</tr>

Grâce,
Arup

Comment est-ce un tableau imbriqué? Il n'y a même pas une déclaration de tableau.
j'ai pris le partie de la source html.. voulez-vous me collez ici le code source complet? dites-moi donc, je vais le faire..
J'ai mis à jour la source html. Ce que le source HTMl que j'ai reçu de la source de la page web

InformationsquelleAutor Arup Rakshit | 2012-10-31

1

C'est la façon dont je l'ai lu d'un tableau HTML:
```
Sub ReadHTMLtable()
Dim htmldb As New ADODB.Connection
Dim htmlcmd As New ADODB.Command
Dim rs As New ADODB.Recordset

With htmldb
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=Z:\filename.html;Extended Properties=""HTML Import;HDR=YES;IMEX=1"""
    .Open
End With

Set htmlcmd.ActiveConnection = htmldb
htmlcmd.CommandType = adCmdText
htmlcmd.CommandText = "Select * from [table]"
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open htmlcmd

'process rs here

End Sub
```
ce utilise ADO, mais elle doit être la même pour DAO
- Mais pour cela j'ai besoin d'enregistrer la page web .html dans la machine locale,mais comment le faire au moment de l'exécution?
- un exemple que j'ai trouvé qui montre grattant une page de données: pastebin.com/y28T2zhK
- quelles sont les références que j'ai besoin de l'inclure dans le MS Excel?
- Microsoft HTML Object Library
- Je ne veux que les valeurs enregistrées dans les séparer excel avec les noms de colonne nom du Champ,de l'Opérateur et de valeurs.pour eg. ici le Champ nom->Emplacement Attributs: LOC - les Sous Produits de base,l'Opérateur->=,reponse->Abrasifs et le nom de Champ->Emplacement Attributs: LOC - Produits de base Tier1,Opérateur->=,reponse->la Publicité, les Ventes & Promotion. Donc comment faire. Je ne m'intéresse qu'à ces valeurs pour obtenir les à partir de la page web pour excel comme un cliché.
- Pouvez-vous m'aider en suggérant de la bonne façon d'obtenir les mêmes?
InformationsquelleAutor SeanC

vous trouverez le code ci-dessous :

Option Explicit 
Sub TableExample() 
Dim IE As Object 
Dim doc As Object 
Dim strURL As String 
strURL = "[URL="http://example.comwww.dectech.org/football/index.php"]http://example.com[/URL]" ' replace with URL of your choice
Set IE = CreateObject("InternetExplorer.Application") 
With IE 
'.Visible = True
.navigate strURL 
Do Until .ReadyState = 4: DoEvents: Loop 
Do While .Busy: DoEvents: Loop 
Set doc = IE.Document 
GetAllTables doc 
.Quit 
End With 
End Sub 
Sub GetAllTables(doc As Object) 
' get all the tables from a webpage document, doc, and put them in a new worksheet
Dim ws As Worksheet 
Dim rng As Range 
Dim tbl As Object 
Dim rw As Object 
Dim cl As Object 
Dim tabno As Long 
Dim nextrow As Long 
Dim I As Long 
Set ws = Worksheets.Add 
For Each tbl In doc.getElementsByTagName("TABLE") 
tabno = tabno + 1 
nextrow = nextrow + 1 
Set rng = ws.Range("B" & nextrow) 
rng.Offset(, -1) = "Table " & tabno 
For Each rw In tbl.Rows 
For Each cl In rw.Cells 
rng.Value = cl.outerText 
Set rng = rng.Offset(, 1) 
I = I + 1 
Next cl 
nextrow = nextrow + 1 
Set rng = rng.Offset(1, -I) 
I = 0 
Next rw 
Next tbl 
ws.Cells.ClearFormats 
End Sub

InformationsquelleAutor user2216436

0

Cela nécessite des références à être mis à Microsoft HTML Object Library et Microsoft Internet Controls
```
Sub Extract_TD_text()
Dim URL As String
Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim TDelements As IHTMLElementCollection
Dim TDelement As HTMLTableCell
Dim r As Long
'Saved from www vbaexpress com/forum/forumdisplay.php?f=17
URL = "your file pathe/URL"
Set IE = New InternetExplorer
With IE
.navigate URL
.Visible = True
'Wait for page to load
While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
Set HTMLdoc = .document
End With
Set TDelements = HTMLdoc.getElementsByTagName("TD")
Sheet1.Cells.ClearContents
r = 1
For Each TDelement In TDelements
'Look for required TD elements - this check is specific to VBA Express forum - modify as required
If TDelement.ParentNode.ParentNode.ParentNode.Title = "table you want's title" Then
Sheet1.Range("A1").Offset(r, 0).Formula = "=" & Chr(34) & TDelement.innerText & Chr(34)
r = r + 1
End If
Next
IE.Quit
Set IE = Nothing  
End Sub
```
J'ai basé cette off de cette page
- Mais il va me donner tous les <TD> les valeurs de l'ensemble de la page source de droit?
- Ouais. Comment comptez-vous sur l'identification de la partie que vous voulez extraire? Ce qui est unique à ce sujet?
- C'est comme si votre table est définie de manière à ce que vous êtes à la recherche pour le title de la propriété. vous aurez besoin d'aller jusqu'à 3 niveaux de ParentNotes de TDelement et vérifier si elle est title pendant que vous imprimez. Voir les modifications.
- okie.. je vais avoir un code vbs qui va m'aider à naviguer ou à boucle url sur le web,une fois que j'aurai atteint cette page en particulier, je veux que mon code vba pour obtenir le <td> valeurs de la lecture et de l'insérer à un autre excel.désigne l'utilisation de VBS, je vais passer à la prochaine page web une fois que le VBA termine son extraction des données et l'enregistrer dans un fichier excel.pour ex. je donne ci-dessous le code source où je veux lire le nom du Champ,l'Opérateur et les valeurs, qui sont trois colonne de destination lors de ma dernière excel, où le vba en fait stocke ses données de lecture:
- Vous êtes en train de faire une partie de ce script VB et certains en VBA? Aussi, je ne suis pas sûr que cela m'aide à comprendre comment vous arrivez à déterminer les données de la table que vous voulez.
- la table est imbriqué dans un <TD> d'une table. et la table de destination ont aucune chose dans la déclaration. il n'a commencé que <table> c'est tout. j'ai essayé d'obtenir le source html, mais ccouldn pas. ici le forum pas alloing me coller le code source complet.Si j'étais en mesure de le coller ici,j'espère que vous pouvez me donner la bonne idée.Une idée de comment coller le contenu Html source ici?
- vous pouvez modifier à votre question. "Modifier" dans le coin inférieur gauche de la question post. Post de l'échantillon dans il.
- "Oups! Votre modification ne pouvait pas être présenté, car: Votre post semble contenir du code qui n'est pas correctement formaté sous forme de code. Veuillez tiret tous les code par 4 espaces à l'aide du code bouton de barre d'outils ou appuyez sur CTRL+K raccourci clavier. Pour plus d'édition de l'aide, cliquez sur [?] icône de barre d'outils." l'erreur que j'obtiens lorsque vous essayez d'enregistrer les modifications.
- Avez-vous essayer d'ajouter les espaces? Ou sélectionner tout le code et cliquez sur le { } bouton.
- je viens de mettre à jour le code source html,j'espère que vous pourrez m'aider maintenant. veuillez vérifier le contenu des descriptions et laissez-moi savoir si il est utile pour vous de comprendre.
InformationsquelleAutor Brad
0

J'ai regardé partout pour la réponse à cette question. J'ai enfin trouvé la solution qui a été fait par l'enregistrement d'une macro. Je sais, vous pensez tous que vous êtes au-dessus de cela, mais c'est effectivement la meilleure façon. Voir l'article complet ici: http://automatic-office.com/?p=344
En bref, vous voulez enregistrer la macro et accédez à des données --> à partir du web et accédez à votre site web et sélectionnez la table que vous voulez.

J'ai utilisé les solutions ci-dessus "obtenir de l'élément d'id" type de choses dans le passé, et il est idéal pour quelques éléments, mais si vous voulez une table entière, et vous n'êtes pas super expérimenté, il vous suffit d'enregistrer une macro.
ne dites pas à vos amis et ensuite de le reformater pour ressembler à votre propre travail afin que personne ne sait que vous avez utilisé l'outil macro 😉

Le code ressemble à ceci (y compris tout le superflu réglage des propriétés par défaut les valeurs par défaut que l'enregistrement d'une macro fait pour vous... la figure qui sont extra et les supprimer
```
Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
“URL;http://w1.weather.gov/obhistory/KFRI.html”, Destination:=Range(“$D$4″))
.Name = “KFRI”
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = “4″
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
```
Profiter de

InformationsquelleAutor Rrgg

C'est encore une autre façon. La chose la plus délicate est de savoir si vous avez une table imbriquée, vous devez
obtenir conteneur parent si un div, table. Utiliser les outils de développement F12 dans IE ou Chrome et de travailler votre chemin vers le bas. Dans l'exemple ci-dessous il y a une div qui contient un tableau. Dans l'exemple donné dans la question il y a un tableau contenant une table de sorte que vous auriez à trouver que la table parent et l'utilisation de code similaire à celui d'obtenir la table enfant. Espérons que cela aide.

     stabledata = ""
Set oTbl = odiv.getElementsByTagName("TABLE").Item(0)
Set oThead = odiv.getElementsByTagName("THEAD").Item(0)
Set oTRows = oThead.getElementsByTagName("TR").Item(0)
Set oTds = oTRows.getElementsByTagName("TH")
For Each oTd In oTds
DoEvents
stabledata = stabledata & oTd.innertext & Chr(9)
Next oTd
stabledata = stabledata & vbCrLf
Set oTBody = odiv.getElementsByTagName("TBODY").Item(0)
Set oTRows = oTBody.getElementsByTagName("TR")
For Each oTRow In oTRows
DoEvents
Set oTds = oTRow.getElementsByTagName("TD")
For Each oTd In oTds
DoEvents
stabledata = stabledata & oTd.innertext & Chr(9)
Next oTd
stabledata = stabledata & vbCrLf
Next oTRow

InformationsquelleAutor ozmike

Vous devez vous connecter pour publier un commentaire.