olha,
realmente o problema do meu é usar um navegador,
mas ali como vc viu eu interajo com a pagina,
já no seu não é possivel,
seus erros
vc importou a pagina
mas sem definir a região "range" de onde quer pegar os valores vc vai ficar na mesma que está agora
como falei, não é dificil,
é apenas falta do basico no seu codigo
seu codigo pegar data
DataRange = ActiveCell.CurrentRegion.Value
NumRows = UBound(DataRange)
"falha" pq?
não selecionou uma area que tem data
não de definiu datarange como array nem range
tem que lembrar que está dentro do excel
meu codigo
Cells(L, Tic + 1).Value2 = DateValue(Left(IE.Document.all("box").innertext, 10)) '-----pega a data
peguei o valor da pagina e separei a data
tbm poderia ser usado em seu codigo
DateValue(Left(valor da celula onde contem a data, 10))
cara não existe função magica que vai adivinhar onde está oq vc quer
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 08/05/2015 8:15 pm