Ir ao conteúdo
  • Cadastre-se

Kelvim

Membros Plenos
  • Total de itens

    83
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

1 Seguidor

Sobre Kelvim

  • Data de Nascimento 15/07/1991 (28 anos)

Informações gerais

  • Cidade e Estado
    BETIM
  1. Boa tarde Eu estou tentando automatizar uma planilha e colocar um código para a planilha fazer uma conexão com um TXT porém, quando faço manualmente o processo roda. Quando faço utilizando a macro ocorre um erro [Expression.Error] O valor não é uma cadeia de único caractere. ActiveWorkbook.Queries.Add Name:="04", Formula:= _ "let" & Chr(13) & "" & Chr(10) & " Fonte = Csv.Document(File.Contents(""S:\04.txt""),[Delimiter="" "", Columns=20, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & " #""Tipo Alterado"" = Table.TransformColumnTypes(Fonte,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", ty" & _ "pe text}, {""Column5"", type text}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}, {""Column10"", type text}, {""Column11"", type text}, {""Column12"", type text}, {""Column13"", type text}, {""Column14"", type text}, {""Column15"", type text}, {""Column16"", type text}, {""Column17"", type text}, {""Column18" & _ """, type text}, {""Column19"", type text}, {""Column20"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo Alterado""" ActiveWorkbook.Worksheets.Add With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=04;Extended Properties=""""" _ , Destination:=Range("$A$1")).QueryTable .CommandType = xlCmdSql .CommandText = Array("SELECT * FROM [04]") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = "_04" .Refresh BackgroundQuery:=False End With
  2. Boa tarde Tem um código que traz as informações da pagina da Web para o Excel. Gostaria de saber se eu consigo escolher um Item em especifico para ele trazer. .document.getelementbyid("teste").Value Eu tenho o ID da tabela porém não consigo utilizar o código abaixo para trazer. Ele traz apenas os texto a tabela ele não traz. With Sheets("RASCUNHO").QueryTables.Add(Connection:="URL;" & myURL, Destination:=Sheets("RASCUNHO").Range("a1")) .BackgroundQuery = True .TablesOnlyFromHTML = False .Refresh BackgroundQuery:=False .SaveData = True End With
  3. Consegui utilizando o código abaixo, Sub CSV() Dim MyFileName As String Dim CurrentWB As Workbook, TempWB As Workbook Application.DisplayAlerts = False Application.Calculation = xlCalculationManual ENDERECO = ActiveWorkbook.Path Windows("PASTA X").Activate Sheets("TESTE").Select Range("AG1:AK1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Workbooks.Add arquivo02 = ActiveWorkbook.Name ActiveSheet.Paste plan = ActiveSheet.Name Rows("1:1").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp Application.DisplayAlerts = False Set CurrentWB = ActiveWorkbook ActiveWorkbook.ActiveSheet.UsedRange.Copy Set TempWB = Application.Workbooks.Add(1) With TempWB.Sheets(1).Range("A1") .PasteSpecial xlPasteValues .PasteSpecial xlPasteFormats End With 'Dim Change below to "- 4" to become compatible with .xls files 'MyFileName = CurrentWB.Path & "\" & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv" MyFileName = "C:\TESTE.csv" 'Range("f5").Value = CurrentWB.Path & "\" & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv" Application.DisplayAlerts = False TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True TempWB.Close SaveChanges:=False Application.DisplayAlerts = True Windows(arquivo02).Close False Windows("PASTA X").Activate Application.DisplayAlerts = True Application.Calculation = xlCalculationAutomatic Application.DisplayAlerts = True End Sub
  4. Boa tarde Gostaria de saber como posso escolher um arquivo quando vou fazer Upload de um arquivo pelo VBA Excel no Internet Explorer. Ele abre o Windows Explorer, porém não consigo manipular.
  5. Boa tarde Gostaria de saber como exportar uma planilha do Excel para CSV porém quando faço isso ele exporta tudo concatenado na mesma célula da coluna A separado por "," virgula. Gostaria de saber como exportar pelo VBA para CSV e de forma que cada valor seja separado por ";" ponto e virgula. Att
  6. 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
  7. 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
  8. Bom dia Gostaria de pedir uma ajuda. Alguém saberia exportar apenas o gráfico como PDF e ajustar o tamanho a folha. Att
  9. 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">
  10. @CasaDoHardware Não conheci este procedimento. Já serviu, obrigado mesmo. Atenciosamente
  11. 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
  12. 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
  13. 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>
  14. Bom dia Esqueci de marca como resolvido. Mas muito obrigado
  15. Boa noite Tenho um arquivo do Access. Onde tenho uma tabela onde tem um campo onde a configuração é para texto longo. No formulário campo texto entretanto só é exibido 255 caracteres. Se alguém souber como resolver.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!