Ir ao conteúdo

Kelvim

Membro Pleno
 Perfil  Explorar Conteúdo

  • Posts

    93

  • Cadastrado em

  • Última visita

 Tipo de conteúdo 

Tudo que Kelvim postou

  1. Kelvim
    Boa tarde Consegui resolver utilizando um Loop e informando que na célula X sera plotado a célula da tabela com a propriedade innerHTML Cells(linh, 10).Value = td.innerHTML
  2. Kelvim
    Boa tarde Gostaria de saber como posso fazer uma varredura em um SITE XXXX procurando todos IE.document.getElementsByClassName("listar botao") e retornar no EXCEL a Propriedade do Campo Href. Att
  3. Kelvim
    A estrutura da pagina da Internet esta da seguinte maneira abaixo. onde tem as ultimas três TAG que se eu conseguisse chegar em qualquer um delas eu conseguiria ativar a opção de botão problema que ela esta muito escondida. Como posso clicar na ultima TAG por exemplo? <HTML> <HEAD> <IFRAME>{IFRAME 0} <BODY> <TABLE> <TR> <DIV> <FORM> <TABLE> <TR> <TR> <TD> <TABLE> <TR> <TD> <TABLE> <TR> <TD> <DIV> <DIV> <DIV> <DIV> <DIV> <DIV> <SPAN CLASS ="urNoUserSelect lsButton--content lsControl--centeraligned "> <IMG CLASS= "urImgBtn lsButton__image"> <SPAN CLASS = "lsButton--onlyImage-pusher">
  4. Kelvim
    @CasaDoHardware Não conheci este procedimento. Já serviu, obrigado mesmo. Atenciosamente
  5. Kelvim
    Boa noite Estou tentando implementar um loop no Excel com um um Exit Do para sair do processo quando for pressionado uma tecla. Entretanto não estou conseguindo. Alguem saberia como posso fazer um Loop e quando pressionar o F3 no Excel ele finalizar o Loop Do While. Atenciosamente
  6. Kelvim
    Boa tarde Eu estou tentando fazer um código para manipular uma pagina da Internet, entretanto esta página quando eu tento manipular os campos eu não estou conseguindo porque os campos em questão dentro de Frame. É uma página, dentro dela dois frames, e dentro do Frame01 um os campos que desejo manipular. Gostaria de saber como posso através do VBA EXCEL IE por exemplo clicar no botão XXX que está dentro de um frame. .document.getElementById("btnPersonas_5ECB2AD5B40A1ED698E1533408DF8619").click Att
  7. Kelvim
    Boa noite Eu estou editando um código e não estou conseguindo colocar para que uma imagem quem esta dentro de uma DIV seja alterada a cada X tempo. Gostaria de por exemplo a cada 30 segundos uma imagem, depois de 30 segundos outra imagem. Queria alterar entre a imagem de Index 0 e Index 1. ******************************************************************************************************** ********** Index 0 ************** <div data-image-index="0" data-displayer-width="1678" data-displayer-height="1119" data-displayer-uri="45b0e3_f2808e64042b45f7ade77b6229a3d126~mv2.jpg" data-height-diff="0" data-width-diff="0" data-bottom-gap="0" data-image-wrapper-right="0" data-image-wrapper-left="0" data-image-wrapper-top="0" data-image-wrapper-bottom="0" data-margin-to-container="0" itemscope="" itemtype="http://schema.org/ImageObject" style="position: absolute; left: 0px; top: 0px; opacity: 0.000164131; visibility: inherit; height: 553px; width: 100%;" class="style-isqm9g1yimageItem" data-state="notShowPanel desktopView unselected clipImage transIn normal noLink" id="comp-isqm6ofodataItem-iv884ilb"> ********** Index 1 ************** <div data-image-index="1" data-displayer-width="1700" data-displayer-height="1130" data-displayer-uri="45b0e3_4a186640b54f4ce38907204ea23571c1~mv2.jpg" data-height-diff="0" data-width-diff="0" data-bottom-gap="0" data-image-wrapper-right="0" data-image-wrapper-left="0" data-image-wrapper-top="0" data-image-wrapper-bottom="0" data-margin-to-container="0" itemscope="" itemtype="http://schema.org/ImageObject" style="position: absolute; left: 0px; top: 0px; opacity: 0.382182; height: 553px; width: 100%; visibility: inherit;" class="style-isqm9g1yimageItem" data-state="notShowPanel desktopView unselected clipImage transOut rollover noLink" id="comp-isqm6ofodataItem-iv883xp0"> ******************************************************************************************************** <div id="c1537inlineContent" class="p1inlineContent"> <div style="overflow: hidden; left: 0px; right: 0px; position: absolute; margin-left: 0.5px; margin-right: 0px; top: 81px; height: 550px; width: 100%;" data-gallery-id="comp-isqm6ofo" data-height-diff="0" data-width-diff="0" class="style-isqm9g1y" data-state="hidePlayButton autoplayOn notMobile desktopView touchRollOut animationInProcess" id="comp-isqm6ofo"> <div class="style-isqm9g1y_border"></div> <div style="height: 100%; z-index: 0;" data-gallery-id="comp-isqm6ofo" id="comp-isqm6ofoitemsContainer" class="style-isqm9g1yitemsContainer"> <div data-image-index="0" data-displayer-width="1678" data-displayer-height="1119" data-displayer-uri="45b0e3_f2808e64042b45f7ade77b6229a3d126~mv2.jpg" data-height-diff="0" data-width-diff="0" data-bottom-gap="0" data-image-wrapper-right="0" data-image-wrapper-left="0" data-image-wrapper-top="0" data-image-wrapper-bottom="0" data-margin-to-container="0" itemscope="" itemtype="http://schema.org/ImageObject" style="position: absolute; left: 0px; top: 0px; opacity: 0.000164131; visibility: inherit; height: 553px; width: 100%;" class="style-isqm9g1yimageItem" data-state="notShowPanel desktopView unselected clipImage transIn normal noLink" id="comp-isqm6ofodataItem-iv884ilb"> <div draggable="false" style="cursor:default;height:100%;width:100%;position:absolute;top:0px;left:0px;user-select:none;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-drag:none;-webkit-user-drag:none;-moz-user-drag:none;-ms-user-drag:none;user-modify:read-only;-webkit-user-modify:read-only;-moz-user-modify:read-only;-ms-user-modify:read-only" data-page-item-context="dataItem-isqm6ogz" data-gallery-id="comp-isqm6ofo" id="comp-isqm6ofodataItem-iv884ilblink" class="style-isqm9g1yimageItemlink"> <div style="height: 553px; width: 100%; margin: 0px;" id="comp-isqm6ofodataItem-iv884ilbimageWrapper" class="style-isqm9g1yimageItemimageWrapper"> <div style="cursor:default" id="comp-isqm6ofodataItem-iv884ilbzoom" class="style-isqm9g1yimageItemzoom"> <div style="position: relative; width: 100%; height: 553px; overflow: hidden;" data-style="position:relative;overflow:hidden" class="style-isqm9g1yimageItemimage" id="comp-isqm6ofodataItem-iv884ilbimage"> <img id="comp-isqm6ofodataItem-iv884ilbimageimage" alt="" data-type="image" itemprop="contentUrl" src="TESTE _ Início_files/45b0e3_f2808e64042b45f7ade77b6229a3d126_mv2.webp" style="width: 100%; height: 553px; object-fit:cover;"> </div></div></div> <div id="comp-isqm6ofodataItem-iv884ilbpanel" class="style-isqm9g1yimageItem_pnl style-isqm9g1yimageItempanel"> <h3 aria-hidden="true" style="text-align:left" itemprop="name" id="comp-isqm6ofodataItem-iv884ilbtitle" class="style-isqm9g1yimageItemtitle"></h3> <p id="comp-isqm6ofodataItem-iv884ilbDescription" style="text-align:left" itemprop="description" class="style-isqm9g1yimageItemdescription">TESTEogados Belo Horizonte</p></div></div></div> <div data-image-index="1" data-displayer-width="1700" data-displayer-height="1130" data-displayer-uri="45b0e3_4a186640b54f4ce38907204ea23571c1~mv2.jpg" data-height-diff="0" data-width-diff="0" data-bottom-gap="0" data-image-wrapper-right="0" data-image-wrapper-left="0" data-image-wrapper-top="0" data-image-wrapper-bottom="0" data-margin-to-container="0" itemscope="" itemtype="http://schema.org/ImageObject" style="position: absolute; left: 0px; top: 0px; opacity: 0.382182; height: 553px; width: 100%; visibility: inherit;" class="style-isqm9g1yimageItem" data-state="notShowPanel desktopView unselected clipImage transOut rollover noLink" id="comp-isqm6ofodataItem-iv883xp0"> <div draggable="false" style="cursor:default;height:100%;width:100%;position:absolute;top:0px;left:0px;user-select:none;-webkit-user-select:none;-moz-user-select:none;-ms-user-select:none;user-drag:none;-webkit-user-drag:none;-moz-user-drag:none;-ms-user-drag:none;user-modify:read-only;-webkit-user-modify:read-only;-moz-user-modify:read-only;-ms-user-modify:read-only" data-page-item-context="dataItem-isqm6ogz" data-gallery-id="comp-isqm6ofo" id="comp-isqm6ofodataItem-iv883xp0link" class="style-isqm9g1yimageItemlink"> <div style="height: 553px; width: 100%; margin: 0px;" id="comp-isqm6ofodataItem-iv883xp0imageWrapper" class="style-isqm9g1yimageItemimageWrapper"> <div style="cursor:default" id="comp-isqm6ofodataItem-iv883xp0zoom" class="style-isqm9g1yimageItemzoom"> <div style="position: relative; width: 100%; height: 553px; overflow: hidden;" data-style="position:relative;overflow:hidden" class="style-isqm9g1yimageItemimage" id="comp-isqm6ofodataItem-iv883xp0image"> <img id="comp-isqm6ofodataItem-iv883xp0imageimage" alt="" data-type="image" itemprop="contentUrl" src="TESTE_Início_files/45b0e3_4a186640b54f4ce38907204ea23571c1_mv2.webp" style="width: 100%; height: 553px; object-fit: cover;"></div></div></div>
  8. Kelvim
    Bom dia Esqueci de marca como resolvido. Mas muito obrigado
  9. Kelvim
    @Basole Segue acima
  10. Kelvim
    esta por exemplo na aba MENSAG - PRESENCIAL celula A44 porém na mesma aba MENSAG - PRESENCIAL existe alguns gráficos que também gostaria de enviar
  11. Kelvim
    Boa tarde Eu estou utilizando um código que envia email pelo Excel usando o Outlook. porém este código em questão eu não consigo enviar a imagem que estiver no corpo da planilha. Gostaria de saber se alguem conseguiria me ajudar. Sub ENVIAR_HTML() Dim OutApp As Object Dim OutMail As Object Dim rng As Range Dim resultado As VbMsgBoxResult Set rng = Nothing Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Application.DisplayAlerts = False resultado = MsgBox("Tem certeza que deseja Enviar o Arquivo?", vbYesNo, "ENVIAR ARQUIVO") If resultado = vbYes Then ArqAberto01 = ActiveWorkbook.Name Application.DisplayAlerts = False Windows(ArqAberto01).Activate Application.Dialogs(xlDialogOpen).Show ArqAberto02 = ActiveWorkbook.Name Windows(ArqAberto02).Activate CAMINHO = Workbooks(ArqAberto02).Path ArqAberto02 = ActiveWorkbook.Name Windows(ArqAberto02).Close Windows(ArqAberto01).Activate Sheets("MENU").Select Set rng = Sheets("MENSAGEM").Range("A1:L22").SpecialCells(xlCellTypeVisible) On Error Resume Next With OutMail .To = Sheets("CAMINHO").Range("B4").Value .CC = Sheets("CAMINHO").Range("B5").Value .BCC = "" .Subject = "OS - VISTORIA" '.HTMLBody = msg1 & RangetoHTML(rng) .HTMLBody = RangetoHTML(rng) '& Assinatura Set Signature = Account.NewMessageSignature .Attachments.Add ("" & CAMINHO & "\" & ArqAberto02 & "") .display End With SendKeys "^{ENTER}" On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing Else End If End Sub Function RangetoHTML(rng As Range) Dim fso As Object Dim ts As Object Dim TempFile As String Dim TempWB As Workbook TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" rng.Copy Set TempWB = Workbooks.Add(1) With TempWB.Sheets(1) .Cells(1).PasteSpecial Paste:=8 .Cells(1).PasteSpecial xlPasteValues, , False, False .Cells(1).PasteSpecial xlPasteFormats, , False, False .Cells(1).Select Application.CutCopyMode = False On Error Resume Next .DrawingObjects.Visible = True .DrawingObjects.Delete On Error GoTo 0 End With With TempWB.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=TempWB.Sheets(1).Name, _ Source:=TempWB.Sheets(1).UsedRange.Address, _ HtmlType:=xlHtmlStatic) .Publish (True) End With Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2) RangetoHTML = ts.readall ts.Close RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _ "align=left x:publishsource=") TempWB.Close savechanges:=False Kill TempFile Set ts = Nothing Set fso = Nothing Set TempWB = Nothing End Function
  12. Kelvim
    Private Sub CMD_OK_Click() If ComboBox1 = Empty And ComboBox3 = Empty And ComboBox2 = Empty And ComboBox4 = Empty And OPT_GERAL = False Then MsgBox "Escolha uma opção", vbInformation Else Dim EncontraString As String Dim Intervalo As Range Sheets("GERAL").Visible = True If OPT_MASTER = True And ComboBox1 <> Empty Then ' ******* PARCEIRO ******* If CHK_FANTASIA = True Then PDV = Right(ComboBox1, 7) EncontraString = PDV If Trim(EncontraString) <> "" Then With Sheets("GERAL").Range("A:A") Set Intervalo = .Find(What:=EncontraString, _ After:=.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False) If Not Intervalo Is Nothing Then Application.Goto Intervalo, True '****************** N_SIRIUS = ActiveCell.Offset(0, 2) N_REABERTURA = ActiveCell.Offset(0, 3) N_REVISITA = ActiveCell.Offset(0, 4) N_TROCA = ActiveCell.Offset(0, 5) N_CAPACITAÇÃO = ActiveCell.Offset(0, 6) Sheets("BASE").Range("L8") = N_SIRIUS Sheets("BASE").Range("O8") = N_TROCA Sheets("BASE").Range("R8") = N_REABERTURA Sheets("BASE").Range("U8") = N_REVISITA Sheets("BASE").Range("AA8") = N_CAPACITAÇÃO Unload FRM_MASTER Sheets("GRAFICO").Select Range("G3") = OPT_MASTER.Caption Range("K3") = ComboBox1 Else MsgBox "Sem informação sobre a Empresa", vbInformation End If End With End If ElseIf CHK_PDV Then PDV = Left(ComboBox1, 7) EncontraString = PDV If Trim(EncontraString) <> "" Then With Sheets("GERAL").Range("A:A") Set Intervalo = .Find(What:=EncontraString, _ After:=.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False) If Not Intervalo Is Nothing Then Application.Goto Intervalo, True '****************** N_SIRIUS = ActiveCell.Offset(0, 2) N_REABERTURA = ActiveCell.Offset(0, 3) N_REVISITA = ActiveCell.Offset(0, 4) N_TROCA = ActiveCell.Offset(0, 5) N_CAPACITAÇÃO = ActiveCell.Offset(0, 6) Sheets("BASE").Range("L8") = N_SIRIUS Sheets("BASE").Range("O8") = N_TROCA Sheets("BASE").Range("R8") = N_REABERTURA Sheets("BASE").Range("U8") = N_REVISITA Sheets("BASE").Range("AA8") = N_CAPACITAÇÃO Unload FRM_MASTER Sheets("GRAFICO").Select Range("G3") = OPT_MASTER.Caption Range("K3") = ComboBox1 Else MsgBox "Sem informação sobre a Empresa", vbInformation End If End With End If End If ElseIf OPT_CONSULTOR = True And ComboBox3 <> Empty Then Application.DisplayAlerts = False Sheets("GERAL").Activate Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$Microsoft50000").AutoFilter Field:=12, Criteria1:= _ ComboBox3 Range("L50000").Select Selection.End(xlUp).Select Range(Selection, "A1").Select Selection.Copy Sheets.Add After:=ActiveSheet PLAN02 = ActiveSheet.Name ActiveSheet.Paste Range("C50000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select LINHA = 2 POSIÇÃO = ActiveCell.Row 'Application.CutCopyMode = False X = LINHA - POSIÇÃO ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" Sheets("GERAL").Activate Selection.AutoFilter Sheets(PLAN02).Activate Range("C50000").Select Selection.End(xlUp).Select V = ActiveCell.Row Range(Cells(V, 3), Cells(V, 7)).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '****************** N_SIRIUS = Cells(V, 3) N_REABERTURA = Cells(V, 4) N_REVISITA = Cells(V, 5) N_TROCA = Cells(V, 6) N_CAPACITAÇÃO = Cells(V, 7) Sheets("BASE").Range("L8") = N_SIRIUS Sheets("BASE").Range("O8") = N_TROCA Sheets("BASE").Range("R8") = N_REABERTURA Sheets("BASE").Range("U8") = N_REVISITA Sheets("BASE").Range("AA8") = N_CAPACITAÇÃO Sheets(PLAN02).Select ActiveWindow.SelectedSheets.Delete Unload FRM_MASTER Sheets("GRAFICO").Select Range("G3") = OPT_CONSULTOR.Caption Range("K3") = ComboBox3 Application.DisplayAlerts = True ElseIf OPT_REG = True And ComboBox2 <> Empty Then Application.DisplayAlerts = False Sheets("GERAL").Activate Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$Microsoft50000").AutoFilter Field:=11, Criteria1:= _ ComboBox2 Range("L50000").Select Selection.End(xlUp).Select Range(Selection, "A1").Select Selection.Copy Sheets.Add After:=ActiveSheet PLAN02 = ActiveSheet.Name ActiveSheet.Paste Range("C50000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select LINHA = 2 POSIÇÃO = ActiveCell.Row 'Application.CutCopyMode = False X = LINHA - POSIÇÃO ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=AVERAGE(R[" & X & "]C:R[-1]C)" Sheets("GERAL").Activate Selection.AutoFilter Sheets(PLAN02).Activate Range("C50000").Select Selection.End(xlUp).Select V = ActiveCell.Row Range(Cells(V, 3), Cells(V, 7)).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '****************** N_SIRIUS = Cells(V, 3) N_REABERTURA = Cells(V, 4) N_REVISITA = Cells(V, 5) N_TROCA = Cells(V, 6) N_CAPACITAÇÃO = Cells(V, 7) Sheets("BASE").Range("L8") = N_SIRIUS Sheets("BASE").Range("O8") = N_TROCA Sheets("BASE").Range("R8") = N_REABERTURA Sheets("BASE").Range("U8") = N_REVISITA Sheets("BASE").Range("AA8") = N_CAPACITAÇÃO Sheets(PLAN02).Select ActiveWindow.SelectedSheets.Delete Unload FRM_MASTER Sheets("GRAFICO").Select Range("G3") = OPT_REG.Caption Range("K3") = ComboBox2 Application.DisplayAlerts = True End If Sheets("GERAL").Visible = False Sheets("GRAFICO").Select For i = 1 To 5 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = False Next If Sheets("BASE").Range("X9") >= 9 Then For i = 1 To 5 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") >= 7 Then For i = 1 To 4 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") >= 5 Then For i = 1 To 3 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") >= 3 Then For i = 1 To 2 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") >= 1 Then For i = 1 To 1 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = True Next ElseIf Sheets("BASE").Range("X9") = 0 Then For i = 1 To 5 ActiveSheet.Shapes.Range(Array("Picture " & i + 31)).Visible = False Next End If Application.DisplayAlerts = True Sheets("GRAFICO").enable = True End If End Sub adicionado 4 minutos depois @Kelvim Eu testei colocar o comando para selecionar a plan no final do codigo e funcionou ele parou de travar a movimentação. ele não estava deixando movimentar com o cursor. valeu adicionado 7 minutos depois @Kelvim Coloquei dentro do botão a opção de selecionar a plan. E voltou a travar ele não deixar navegar. Acredito que alguma parte do codigo esteja travando a plan para as setas navegarem
  13. Kelvim
    Bom dia Tem um código de VBA excel. Ele roda direito. O problema que quando tento mover a seleção entre as células usando as setas, ele trava como se tivesse bloqueado. Como devo proceder.
  14. Kelvim
    Boa tarde Meu nome é Kelvim. Gostaria de saber se alguém conhece algum código que faça um teste de ping ao mesmo tempo salve o arquivo no formato de PDF. Ou ate mesmo salve em TXT depois converta em PDF. Cheguei no comando abaixo. porém não conseguir coloca para salvar em PDF nem converter. DEU CERTTO ping www.google.com.br >teste.txt NÃO DEU CERTO ping www.google.com.br >teste.pdf
  15. Kelvim
    Descobri como resolver basta usar a propriedade VBAProject.EstaPasta_de_trabalho Para colocar senha na criptografia basta usar a opção acima. Agora gostaria de saber se alguem sabe como eu posso atraves do VBA colocar senha no VBAproject de outra pasta de trabalho
  16. Kelvim
    Boa noite Meu nome é Kelvim. Gostaria de saber se alguém sabe salvar um arquivo criptografado através do VBA. Atenciosamente adicionado 0 minutos depois @BasoleBoa noite Gostaria de pedir sua ajuda. Será que você saberia algo a respeito? adicionado 19 minutos depois Descobri como resolver basta usar a propriedade VBAProject.EstaPasta_de_trabalho
  17. Kelvim
    Boa tarde Gostaria de pedir ajuda. Tenho um código que manipula um código de HTML pelo VBA EXCEL. porém na pagina da internet tem um campo que tem um INPUT em uma celula de uma tabela que é preenchida por um calendario em JQUERY. Gostaria de saber como da um INPUT neste campo, sem precisar clicar com o mouse. <TABLE style="VERTICAL-ALIGN: top; horizontalAlign: left" class=framework-default-hbox border=0 cellSpacing=0 cellPadding=0 spacing="0" horizontalAlign="null" verticalAlign="null"> <TBODY> <TR> <TD align=left valign="top"><INPUT style="WIDTH: 180px; FONT-SIZE: 12px" value="30/06/2017 Período da Manhã" readOnly></TD> <TD align=left valign="top"> <DIV><IMG style="CURSOR: pointer" src="../Scripts/Calendar/images/calendar.gif" width=24 height=24></DIV></TD></TR></TBODY></TABLE> Queria apenas inputar e dar um onchanger coisa do genero para que ele reconheça o valor inputado. Atenciosamente
  18. Kelvim
    Boa tarde Descobri uma solução. Basta colocar o código a baixo do código With ActiveSheet.MailEnvelope Do Until .Item.attachments.Count = 0 .Item.attachments(1).Delete Loop
  19. Kelvim
    Boa noite Eu tenho um código que envia e-mail pelo VBA EXCEL, acessando o outlook. porém eu coloquei um código de Loop para ir alterando tando os destinatários quanto os anexo. porém os anexos a cada loop ele acrescenta mais um. Ele não limpa a instancia da variável. Gostaria de saber como limpar a variável dos anexos. Sub enviar_planilha_corpo_email() Dim ArqAberto01, ArqAberto02, CAMINHO As String Dim resultado As VbMsgBoxResult ArqAberto01 = ActiveWorkbook.Name resultado = MsgBox("Tem certeza que deseja Enviar o agendamento?", vbYesNo, "ENVIAR E-MAIL") If resultado = vbYes Then Application.DisplayAlerts = False Application.Dialogs(xlDialogOpen).Show ArqAberto02 = ActiveWorkbook.Name Windows(ArqAberto02).Activate CAMINHO = ActiveWorkbook.Path Windows(ArqAberto02).Close i = 1 Do While Sheets("PAINEL").Cells(i, 15).Value <> Empty Application.ScreenUpdating = False Sheets("MENSAG").Select Sheets("MENSAG").Range("C1").Value = Sheets("PAINEL").Cells(i, 17) Sheets("MENSAG").Range("E1").Value = Sheets("PAINEL").Cells(i, 15) Sheets("PAINEL").Cells(i, 18) = CAMINHO & "\CONSOLIDADO DE ABERTURA DE OSs" & Sheets("PAINEL").Cells(i, 15) & ".xlsx" Range("A1", "F30").Select Selection.Copy ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope ' .Item.To = Sheets("PAINEL").Cells(i, 16) '.Item.Attachments.Add ("" & CAMINHO & "\CONSOLIDADO DE ABERTURA DE OSs" & Sheets("PAINEL").Cells(i, 15) & ".xlsx" & "") .Item.Attachments.Add ("" & Sheets("PAINEL").Cells(i, 18) & "") .Item.Subject = "CONSOLIDADO DE ABERTURA DE OSs" .Introduction = "CONSOLIDADO DE ABERTURA DE OSs" .Item.Send ' .Item.Attachments.Clear 'Worksheet.MailEnvelope = Nothing End With Application.ScreenUpdating = True i = i + 1 ActiveSheet.MailEnvelope = Nothing Loop Else End If End Sub
  20. Kelvim
    São pastas diferentes. "C:\Program Files\Internet Explorer\iexplore.exe" IE 64 Bits "C:\Program Files (x86)\Internet Explorer\iexplore.exe" IE normal.
  21. Kelvim
    Boa tarde Apenas desta forma. Att
  22. Kelvim
    Boa tarde No gerenciador aparece apenas como iexplorer.exe Existe só uma diferença na hora de abrir o programa. Att
  23. Kelvim
    Boa tarde Gostaria de saber como posso abrir o internet Explorer 64 Bits pelo VBA EXCEL. Eu tenho um código porém ele só funciona para o internet Explorer comum. Set IE = CreateObject("InternetExplorer.application")
  24. Kelvim
    Boa noite Eu tentei fazer porém como tenho pouco conhecimento na área não deu muito certo. Sera que você poderia fazer os exemplos e anexar. Atenciosamente
  25. Kelvim
    Será que você conseguiria fazer um modelo dessa página em HTML, com uma pagina em PHP efetuando a consulta. Eu tentei mas não deu muito certo. Att

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!