Boa noite pessoal,

Vi vários artigos aqui no site sobre captura de dados de site, consegui acessá-lo de forma eficiente mas não consigo entender o modo de extração de dados

O código é esse:

Sub condoc()
Dim objIE  As InternetExplorer
Dim x
Dim ele As Object
'x = UserForm1.TextBox1.Value
x = 313134
RowCount = 1
Set objIE = CreateObject("InternetExplorer.Application") 'UserForm2.WebBrowser1
Set sht = Sheets("Plan1")
With objIE
 
 .StatusBar = False
 .Toolbar = False
 .Width = 800
 .Height = 600
 .Resizable = False
 .AddressBar = False
 .Visible = True
 .Top = 60
 .Left = 560
 
 .Navigate "http://kkk.com
 Do While .Busy Or _
 .ReadyState <> 4
 DoEvents
 Loop

End Sub

Preciso retornar pra planilha a data de emissão, numero, tipo de documento.

Alguém pode me ajudar?

Desde já, obrigado.

O código do site é esse:

<table width="90%" align="center" class="texto_principal" cellspacing=3>
				<tr align="middle"> 
					<td colspan="4" align="center" height="27"> 
						<b><font size="2" color="#666666">
							Código Gerado pelo Sistema nº
						</font><font color=red size="3"><i> 
						313131</i></font></b>
				<tr width="29"> 
					<td colspan="4" align="left" height="18"> 
						<p> 
						Unidade Geradora: 
						<b>Faculdade de Agronomia Eliseu Maciel</b></p>
					</td>
				</tr>
							<tr width="29"> 
					<td colspan="4" align="left" height="18"> 
						Tipo do documento: 
									<b>atestado</b>					</td>
				</tr>
				<tr width="29"> 
					<td  colspan="5" height="14"> 
						<table class="texto_principal" width=100%>
							 <tr>
								<td height="17">
									Data da Emissão: 
									<b>13/12/2013</b> 
								</td>
								<td align="right" width="43%" height="17"> 
									<p>Data 1º tramitação: <b>13/12/2013</b></p>
								</td>
							</tr>
						</table>