Alexandre,
Gostaria apenas o status de toner em porcentagem, inclusive não estou conseguindo implementar em minha planilha o Código acima.
O codigo abaixo seria para direcionar o dados para as (Linha,coluna).
----------------------------------------------------------------------------------------------------------------------------
Option Explicit
Public Sub spuRetornarStatusToner()
Dim wbk As Excel.Workbook
Set wbk = Excel.ThisWorkbook
Dim wsh As Excel.Worksheet
Set wsh = wbk.Sheets("CONTROLE")
Dim i As Integer
For i = 1 To 20
wsh.Range("F" & 3 + i).Value = "insira aqui o status de toner obtido pelo navegador"
Next i
End Sub
-------------------------------------------------------------------------------------------------------------------
Lembrando que as impressoras estão em rede. E consigo acessar o status no navegador de internet.
Nesse caso eu posso gravar uma macro fazendo a importação de uma página de internet e problema resolvido, além de atualizar o status periodicamente?
Estou com uma possível solução mas não consegui implementar em minha planilha, você pode me dar um apoio?
Segue em anexo a solução e a planilha a ser implementada.
Para eu analisar o nivel de toner das 20 impressoras que sou responsável, será preciso criar um user form e um botão?
Ou qual recurso exatamente eu poderia usar.
Conforme a planilha em anexo os dados serão exibidos pelo Range F4 a F24.
E no arquivo script_commands, encontra-se a linha de comando HTML da impressora.
Segue o link (
http://1drv.ms/1Ns5HS1 ) da minha planilha que estou implementando e codigo html da impressora.
Obrigado