FRC

Boa tarde a todos! Estou criando um código que envia informações para uma pagina da Web para que possa navegar. Eu usei o objeto InternetExplorer para abrir uma instancia dedicada para essa atividade. Porém, quando eu tento inspecionar o elemento na Web para saber qual name/ID para eu referenciar no VBA, eu não consigo. alguém pode ajudar? Segue codigos abaixo: ontato = wb.Worksheets(1).Cells(Lin, 10) Mensagem = Contato & "," & _ " o seguro do carro " & Cells(Lin, 2) & _ " na seguradora " & Cells(Lin, 3) & _ " vencerá no dia " & Cells(Lin, 6) 'Call SendKeys("{TAB}") IE.Document.all("Caixa de texto de pesquisa").innerText = ContatoVBA: HTML: Erro:

Boa Tarde a todos! Estou tentando fazer uma macro que cria uma pasta, já consegui essa parte, e que deveria pegar umas fotos e colocar nessa pasta. Estou tentando fazer com o Filesystemobject, porém, quando tento mover o objeto foto (foto.MoveFile) dá sempre o erro "O objeto não aceita essa propriedade ou metodo". alguém pode ajudar? Segue abaixo parte do código: 'Encontrar fotos Set arquivo = CreateObject("Scripting.Filesystemobject").getfolder(pasta) Set foto = CreateObject("Scripting.FileSystemObject") PastaOrigem = cPath & "\" & cliente & "\Fotos" PastaDestino = cPath & "\" & cliente & "\Fotos\" & site For Each foto In arquivo.Files If Left(site, 4) Like Left(foto.Name, 4) Then foto.MoveFile PastaOrigem, PastaDestino End If Next End Sub

Tenho um codigo que utilizo variaveis do tipo "Single", a qual tem o seu valor passado por um TextBox. Só que quando eu executo o código, aparece o erro: "Run-Time Error 13". Pesquisei a respeito e descobri que esse erro acontece quando se manipula variaveis de tipos diferentes, ou seja, o TextBox.Value não deve ser do tipo "Single". Como faço para resolver esse problema?? Segue parte do codigo para melhor entendimento: Private Sub CommandButton1_Click() Dim valor As Single If cbx_Bancos.Value <> "" Then With Range("B3") .NumberFormat = 0 .Value = cbx_Bancos.Value .Offset(0, 2) = Format(TextBox1.Value, 0) If TextBox2.Value = Empty Then valor = Empty Else valor = TextBox2.Value ' --> Dúvida End If .Offset(0, 4).Value = valor .Offset(0, 4).NumberFormat = "$#,##0.00" End With cbx_Bancos.Clear TextBox1 = Empty TextBox2 = Empty End If End Sub Segue em vermelho a parte do codigo que contem a duvida. Se alguém puder me ajudar, agradeço bastante. PS. Como adicionei a tag de código o texto não ficará vermelho, adicionei o comentaria na linha em questão.(Raphael_Suporte)