Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 1736 |
SaberExcel VBA Estudos® - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, copia uma imagem de uma tabela para o corpo do outlook para envio de Email
Option Explicit
Sub Envia_selecao_celulas_via_email_HTML()
Dim objApp As Object, Novo_Email As Object
Dim sbObj As Scripting.FileSystemObject
Dim vlor_text As Scripting.TextStream
Dim rngValor As Range
Dim stHTMLBody As String
On Error Resume Next
'abre o inputbox para seleção da area a ser enviada...
Set rngValor = Application.InputBox("Selecione a area que deseja enviar via email:", _
, Selection.Address, , , , , 8)
If rngValor Is Nothing Then Exit Sub
On Error GoTo 0
'HTML-File cria um arquivo htm temporario
ActiveWorkbook.PublishObjects. _
Add(xlSourceRange, "C:\temp.htm", rngValor.Parent.Name, rngValor.Address, _
xlHtmlStatic).Publish True
'cria uma nova seção no outlook para envio
Set objApp = CreateObject("Outlook.Application")
Set Novo_Email = objApp.CreateItem(0)
'Abre HTML-file o arquivo Htm para inserção no texto do outlook via FIleSystemObject Textvlor_text objeto.
Set sbObj = New Scripting.FileSystemObject
Set vlor_text = sbObj.OpenTextFile("C:\temp.htm", ForReading)
stHTMLBody = vlor_text.ReadAll
With Novo_Email
.HTMLBody = stHTMLBody
.Display
End With
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA
Publicidade:
Compre com segurança, garantia e ótimos preços.
Adicionado em: | 29/10/2011 |
Modificado em: | 29/10/2011 |
Tamanho: | Vazio |
Downloads: | 2498 |
Saberexcel - o site de quem precisa aprender macros microsoft excel vba
Essas Funções do Aplicativo Microsoft Excel VBA, retornam um endereço de e-mail, observem que as funções personalizadas buscam por determinado caracter em algum lugar em uma frase, note que na primeira função busca o caracter (- ) ifem, quanto no segundo exemplo de função busca pelo caracter (@) Arroba. Os exemplos abaixo são muito úteis para quem lida com muitos nomes de emails que talvez estejam em meio a determinadas frases:
Espero que os exemplos de Função possam lhes ser útil. Fique com Deus, Expedito Marcondes
Essa função extrai uma determinada palavra de uma frase baseado em algum caracteres especificado no Macro por exemplo a frase:
CELULA (J2) = "Aprenda Microsoft excel vba, sozinho, praticando com os produtos didáticos saberexcel - [email protected] - "
Observe que nesta frase a função irá buscar o Caracter ( - ) traço (ifem)), e retornará o email. [email protected]
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Function ExtrairElementos(Texto, n, Separator) As String
ExtrairElementos = Split(Application.Trim(Texto), Separator)(n - 1)
End Function
USO CORRETO DA FUNÇÃO:
=ExtrairElementos(J2;2;"-")
OUTRA FUNÇÃO FUNÇÃO EXTRAI TEXTOS(EMAILS) DEPENDENDO DO CARACTER ESCOLHIDO.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Observe bem, se voce tem uma frase como esta (apenas exemplo), a função ira busca pelo caracter '@' e retornará o endereço de email contido na frase. (muito útil para quem trabalha com muitos emails)
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
USO CORRETO DA FUNÇÃO:
Celula D7 = 'Aprenda macros, fórmulas e funções [email protected], produtos didáticos saberexcel'
Fórmula usada: SE(D7="";"";SE( ExtrairENDERECOEMAIL(D7)="";"NÃO HÁ EMAILS"; ExtrairENDERECOEMAIL(D7)))
veja que que a função tem duas condições, porém poderá usar somente uma:
'=ExtrairENDERECOEMAIL(D7).
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Function ExtrairENDERECOEMAIL(s As String) As String
Dim LocalizacaoARROBA As Long
Dim vCONTADOR As Long
Dim textoTEMP As String
Const listaCARACTER As String = "[A-Za-z0-9._-]"
'Obtendo a localização do caracter '@' arroba
LocalizacaoARROBA = InStr(s, "@")
If LocalizacaoARROBA = 0 Then
ExtrairENDERECOEMAIL = "" 'not found
Else
textoTEMP = ""
'Obtendo o primeiro endereço de email
For vCONTADOR = LocalizacaoARROBA - 1 To 1 Step -1
If Mid(s, vCONTADOR, 1) Like listaCARACTER Then
textoTEMP = Mid(s, vCONTADOR, 1) & textoTEMP
Else
Exit For
End If
Next vCONTADOR
If textoTEMP = "" Then Exit Function
'obtendo o segundo endereco de email
textoTEMP = textoTEMP & "@"
For vCONTADOR = LocalizacaoARROBA + 1 To Len(s)
If Mid(s, vCONTADOR, 1) Like listaCARACTER Then
textoTEMP = textoTEMP & Mid(s, vCONTADOR, 1)
Else
Exit For
End If
Next vCONTADOR
End If
'Remover ponto a direita se por ventura existir
If Right(textoTEMP, 1) = "." Then textoTEMP = _
Left(textoTEMP, Len(textoTEMP) - 1)
ExtrairENDERECOEMAIL = textoTEMP
End Function
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções. http://www.microsoftexcel.com.br
e saberexcel.com
Adicionado em: | 02/12/2011 |
Modificado em: | 02/12/2011 |
Tamanho: | Vazio |
Downloads: | 2028 |
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 07/12/2012 |
Modificado em: | 07/12/2012 |
Tamanho: | Vazio |
Downloads: | 1121 |
Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), envia uma tabela do excel no corpo do email
essa planiha faz parte das planilhas da área exclusiva para assinantes Saberexcel
(todos os dias uma nova publicação) são milhares de planilhas.
Sub enviar_planilha_corpo_email()
Application.ScreenUpdating = False
Range ("vIntervalo").Copy Destination:=EscolaSaberExcel.Range("A1")
EscolaSaberExcel.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "ESCOLA SABEREXCEL VBA ESTUDOS"
.Item.To = "[email protected]"
.Item.Subject = "PRODUTOS DIDÁTICOS MS EXCEL VBA"
.Item.Send
End With
ActiveCell.Activate
MsgBox "Sua mensagem foi enviada com sucesso!!", vbInformation, "Escola SaberExccel VBA Estudos®"
Application.ScreenUpdating = True
End Sub
Private Sub Adicionar_Planilha_Click()
ActiveSheet.Copy Before:=Sheets(1)
Sheets(1).Range("C3").Value = Sheets(1).Range("C3").Value + 14
End Sub
Private Sub Enviar_Click()
Call enviar_planilha_corpo_email
End Sub
Private Sub cmdRENOMEARPLAN_Click ()
ActiveSheet.Name = ActiveSheet.Range("F4").Value
MsgBox ("Planilha renomeada [ " & ActiveSheet.Range("F4").Value & " ] com sucesso"), vbInformation, "Escola Saberexcel VBa Estudos®"
End Sub
//=======' na folha de código da folha de Planilha
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = ActiveSheet.Range("F4").Value
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
baixe o exemplo de planilha contendo os macros acima.
Adicionado em: | 03/02/2013 |
Modificado em: | 03/02/2013 |
Tamanho: | Vazio |
Downloads: | 774 |
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esse procedimento do Aplicativo Microsoft Excel VBA, usando Evento de folha de Planilha Evento Worksheet_Change() ao escrever
em determinada coluna, o procedimento usando a Função Split, decompõe um endereço de email em nome e servidor,
sendo que o Servidor irá para uma coluna e o nome para outra pré-determinada no procedimento(macro)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
If InStr(1, Target, "@") > 0 Then
Range("K" & Target.Row) = Split(Target, "@")(0)
Range("M" & Target.Row) = Split(Target, "@")(1)
Range("E" & Target.Row).Font.Size = 8
End If
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA