Ir ao conteúdo
  • Cadastre-se

Douglas ianes

Membros Juniores
  • Total de itens

    18
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. @Midori Funcionou perfeitamente. agora vou aperfeiçoar outras funções. muito obrigado pela ajuda.
  2. @Midori a principio o codigo que me passou deu certo. ficou assim. Sub Enviar_email() Set objeto_outlook = CreateObject("outlook.application") Set Email = objeto_outlook.CreateItem(0) Email.Display Email.To = "douglas.i@gmail.com" Email.cc = Cells(2, 1).Value & "@gmail.com" Email.Subject = "Segue notificação de falha" Email.attachments.Add ActiveWorkbook.FullName Email.attachments.Add "C:\Temp\painel.JPG" Email.HTMLBody = "Olá," _ & Chr(10) & Chr(10) & "Segue em anexo notificação de falha encontrada em OQC." _ & Chr(10) & Chr(10) & "Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value & _ "<html><img src=""cid:painel.JPG""</img></html> Email.send End Sub somente as quebra de texto que não estão funcionando. ja tentei <br> também e não consegui.
  3. Boa tarde pessoal. estou montando esse código para enviar uns relatórios por email, porém preciso anexar um grafico no corpo do email como imagem. Fato é que se eu salvar o arquivo em algum local como imagem pra depois usar no codigo um SW da empresa bloqueia essa imagem, então eu preciso que gere a imagem direto no corpo do email. <Sub Enviar_email() Call Mostra Set objeto_outlook = CreateObject("outlook.application") Set Email = objeto_outlook.CreateItem(0) Email.Display Email.To = "douglas.i@samsung.com" Email.cc = Cells(2, 1).Value & "@samsung.com" Email.Subject = "Segue notificação de falha" Email.Body = "Olá," _ & Chr(10) & Chr(10) & "Segue em anexo notificação de falha encontrada em OQC." _ & Chr(10) & Chr(10) & "Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value Email.attachments.Add ActiveWorkbook.FullName Email.send End Sub> como se fosse concatenado com o corpo do email alguem pode me ajduar??
  4. Bom dia Pessoal. estou colocando um código em uma planilha para enviar email ao final de outra sequencia de código. porém eu quero que anexe o mesmo arquivo que esta rodando a macro, e não estou conseguindo. segue o código <Sub Enviar_email() Set objeto_outlook = CreateObject("outlook.application") Set Email = objeto_outlook.createitem(0) Email.display Email.to = Cells(2, 1).Value Email.cc = "douglas.i@samsung.com" Email.Subject = "Segue notificação de falha" Email.body = Cells(2, 1).Value & "\venda -" & Chr(10) & Cells(2, 3).Value _ & "Atenciosamente" Email.attachments.Add ThisWorkbook.Name Email.send End Sub> a principio havia conseguido enviar, porém quando mudei o arquivo de pasta esta dando erro na hora de anexar. este arquivio será dinamico com nome e local diferente todos os dias.
  5. Deu certo sim, muito obrigado pela ajuda.
  6. @Midori Muito obrigado, estou com meio caminho andando, agora o problema que surgiu é que na hora que cria o atalho estou com 2 arquivos abertos, o arquivo XLSM e um arquivos XLSX que o codigo converte pra mim e apaga o XLSM ao final. esta criando atalho do arquivo xlsm, preciso que crie do arquivo xlsx que esta sendo criado. segue o codigo completo <Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Set Sourcewb = ActiveWorkbook 'Copia a planilha inteira Sheets.Copy Set Destwb = ActiveWorkbook FileExtStr = ".xlsx": FileFormatNum = 51 'Salve a nova pasta de trabalho e feche-a TempFilePath = ThisWorkbook.Path & "\" TempFileName = VBA.Left(ThisWorkbook.Name, (VBA.InStrRev(ThisWorkbook.Name, ".", -1, VBA.vbTextCompare) - 1)) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum Dim Atalho, Pasta As String Dim W, S As Object Pasta = "\\105.103.12.249\oqc\04.OQC-INSPECTION\01.ANALISES\01.Analise de Falhas OQC\02.Banco de dados\2020\" & Nome & "\" Atalho = Pasta & ThisWorkbook.Name & ".lnk" Set W = CreateObject("Wscript.Shell") Set S = W.CreateShortcut(Atalho) S.TargetPath = ActiveWorkbook.FullName S.IconLocation = Application.Path & "\Excel.exe" S.Save .Close SaveChanges:=False End With Dim xFullName As String xFullName = Application.ActiveWorkbook.FullName ActiveWorkbook.Saved = True Application.ActiveWorkbook.ChangeFileAccess xlReadOnly Kill xFullName Application.ActiveWorkbook.Close False Excel.Application.Quit> adicionado 28 minutos depois @Midori na realidade deu certo sim, eu me confundi porque ele esta pegando a extensão e utilizando como nome. no caso eu quero que o atalho tenha o mesmo nome sem a extensão .xlsm como parte do nome.
  7. Bom dia pessoal. tem uma planilha que preciso salvar um atalho dela em outra pasta para consulta de outro setor, consegui esse código para criar o atalho: <Dim Atalho As String, Pasta As String Dim LocalExcel As String, Livro As String Pasta = "C:\Users\douglas.i\Desktop\Nova pasta (2)\" Atalho = Pasta & ActiveWorkbook.Name & ".lnk" LocalExcel = Application.Path & "\Excel.exe" Livro = ActiveWorkbook.FullName Open Atalho For Output As #1 Print #1, "[InternetShortcut]" & vbCrLf & "lnk = " & Livro Print #1, "IconIndex=1" & vbCrLf & "IconFile=" & LocalExcel Close #1> o atalho esta sendo criado mas o arquivo da erro na hora de abrir, ja tentei url e lnk lnk eu clico e não acontece nada com o atalho, url da mensagem de destino de internet não é valido podem me ajudar.
  8. @Basole Consegui, muito obrigado. tive que adaptar para o resultado aparecer na mesma planilha ao invés de aparecer na plan2. ai utilizar somente o = para trazer a informação para a aba que eu precisava. Obrigado pela ajuda.
  9. @Basole aqui no meu PC esta abrindo normal, não sei o que pode estar acontecendo. mas coloquei assim os códigos que me enviou. Plan1 Private Sub Worksheet_Change(ByVal Target As Range) If Not Excel.Application.Intersect(Target, Range("A2:A10")) Is Nothing Then Sheets("Plan2").Range("A2").Value2 = GoogleTranslate(Target.Value2, "en") End If End Sub Esta pasta de trabalho Function GoogleTranslate(InputText As String, ToLang As String) As String Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Visible = False IE.navigate "http://translate.google.com/#auto/" & ToLang & "/" & InputText Do Until IE.ReadyState = 4 DoEvents Loop Application.Wait (Now + TimeValue("0:00:5")) Do Until IE.ReadyState = 4 DoEvents Loop GoogleTranslate = IE.Document.getElementsByClassName("result-shield-container tlid-copy-target")(0).innertext IE.Quit End Function depois tentei colocar em um modulo ao invés de Esta pasta de trabalho. e nos dois casos deu erro. estou tentando mandar as imagens mas esta dando erro de upload
  10. @Basole acho que eu devo esta colocando no local errado o codigo. segue arquivo que estou usando. teste tradução.7z
  11. @Basole esta dando erro de compilação: sub ou function não definida. Sheets("Plan2").Range("A2").Value2 = GoogleTranslate(Target.Value2, "en")
  12. @Basole consegue me ajudar com a questão acima??
  13. @gustavoomt como utilizar esta função?? eu vi algo dizendo que só funcionaria usando uma versão diferente do Excel tradicional.
  14. Bom dia pessoal. preciso fazer com que o texto escrito em português em uma célula da plan1 seja traduzido para inglês de forma automática em outra célula da plan2. podem me ajudar com isso.
  15. @Basole deu quase tudo certinho, somente o excel.application.quit que não esta fechando a aplicação. mas ja da pra eu usar a planilha como eu queria. muito obrigado pela ajuda.

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

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!