Ir ao conteúdo
  • Cadastre-se

Quedison Nunes Alves

Membro Júnior
 Perfil  Explorar Conteúdo

  • Posts

    7

  • Cadastrado em

  • Última visita

Reputação

1
  1. Quedison Nunes Alves começou a seguir Comando Salvar em VBA com Nome variável , PHP processamento de Logs PHP , PowerShell - Robocopy em Loop e 3 outros
  2. Quedison Nunes Alves
    Pessoal, estou com um projeto e precisava de uma ajuda. Normalmente recebo algum logs do sistema conforme anexo Estou desenvolvendo uma pagina simples web ( Html, PHP ) para analisar os logs Detalhes da Pagina : Textbox - Logs ( onde inserir os logs ) Funcionario : Uma lista suspensa Funcionarios ( [ID]: 1187 Gustavo ) Acao: Uma lista suspensa Acao ( [RETIROU]: ou [GUARDOU]: ) Botao Processar ( fara o processamento dos logs ) Textbox - Resultados Exportar - Botao export Resultados TXT Observacao : no campo resultado gostaria que retornar todos os lancamentos que foram filtrados Exemplo : Filtros: Funcionario : 1183 Paulo Amancio Acao : RETIROU Resultados O Funcionario 1183 Paulo Amancio realizou a seguinte acao : RETIROU : 18 Placa RETIROU : 22 Madeira RETIROU : 18 Ferro Exemplo da pagina : logs.txt
  3. Quedison Nunes Alves
    Quedison Nunes Alves alterou sua foto pessoal
  4. Quedison Nunes Alves
    Bom dia Pessoal, estou com um projeto de melhoria, e gostaria de auxilio para o script do powershell abaixo: Preciso fazer varias copias, porém pode ser que não exista o caminho destino, então, deve se criar a pasta destino. criei o script abaixo que funciona: # Declarando Variaveis/ Caminhos $folderorig = "C:\Users\QuedisonAlves\Desktop\origem" $folderdest = "C:\Users\QuedisonAlves\Desktop\pasta1" # PowerShell verifica se existe um arquivo $FileExists = Test-Path $folderdest #Caso Exista Inicia Robocopy If ($FileExists -eq $True) {robocopy $folderorig $folderdest /TEE /LOG:C:\temp\robocopylog.txt} #Caso não Exista Cria-se a pata e Inicia Robocopy Else {New-Item -Path $folderdest -ItemType Directory} robocopy $folderorig $folderdest /TEE /LOG:C:\temp\robocopylog.txt porém funciona para apenas um diretorio ( folderdest ) Gostaria, de adicionar um sistema de repeticao, que faria este comando apenas trocando o destino $folderdest1 = "C:\Users\QuedisonAlves\Desktop\pasta1" $folderdest2 = "C:\Users\QuedisonAlves\Desktop\pasta2" $folderdest3 = "C:\Users\QuedisonAlves\Desktop\pasta3" $folderdest4 = "C:\Users\QuedisonAlves\Desktop\pasta4" $folderdest5 = "C:\Users\QuedisonAlves\Desktop\pasta5" alguém poderia me auxiliar. caso não tenha entendido a ideia, por gnetileza me avisem, posso redigir a explicacao.
  5. Quedison Nunes Alves
    Bom dia Pessoal ! Estou montando uma macro que envia e-mail contendo um link. neste link devera conter: Nome do arquivo = Dim sFile As String: sFile = Application.ActiveWorkbook.Name Caminho: Dim PathWatting As Strin: PathWatting = "C:\Users\Nunes\Desktop\PROJETO\Teste_Local\ENVIADOS\" Link = "<a href=" & PathWatting & Ano & "\" & Mes & "\" & sFile & ">Click Aqui</a> Para acesso ao Documento" Erro: porém o nome do aquivo pode possuir espacos e na hora que o VBA envia o link , ele vem quebrado . segue exempo: Deveria vir assim o link: file///C:\Users\Nunes\Desktop\PROJETO\Teste_Local\ENVIADOS\Cadastro Clientes Restritos.xlsm Mas vem assim: file///C:\Users\Nunes\Desktop\PROJETO\Teste_Local\ENVIADOS\Cadastro (faltando dados bem na parte onde temos os espacos ) Segue o codigo para usado. Sub Envia_email() Dim sFile As String: sFile = Application.ActiveWorkbook.Name Dim PathWatting As String: PathWatting = "C:\Users\Nunes\Desktop\PROJETO\Teste_Local\ENVIADOS\" 'Enviar e-mail Dim sPara As String Dim sMsg As String Dim sAssunt As String Dim Link As String sAssunt = sFile + " - Aguardando Aprovação" 'Assunto Link = "<a href=" & PathWatting & sFile & ">Click Aqui</a> Para acesso ao Documento" strbody = "<BODY style=font-size:10pt;font-family:Arial>Prezados !<br><br>" & _ "Para Aprovação, Acesse o link Abaixo:<br><br/><a href=" & FullNameNew & Link & "<br><br>" & _ "Diretorio: " + PathWatting & FullName & "<br>" & _ "Nome Arquivo: " + sFile & _ "<br>" & _ "<br><br>" & _ "Obrigado," & _ "<br>" & _ "ATT Equipe Desenvolvimento" Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.createitem(0) With OutlookMail .to = "" .cc = "" .bcc = "" .Subject = sAssunt .Body = sMsg 'Attachments.Add .htmlbody = strbody .display End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub
  6. Quedison Nunes Alves
    Bom dia Pessoal Tenho algumas Auditoria para realiza no Windows Server, e gostaria de saber se algum script que facilita nesta estapa. Preciso validar algumas politicas locais do servidor Como por exemplo esta abaixo.: Como conseguir visualizar as mesmas informações utilizando script no powershell. Obrigado !
  7. Quedison Nunes Alves
    @AfonsoMira Deu certo, Me ajudou bastante Obrigado..
  8. Quedison Nunes Alves
    Bom dia Pessoal Tenho uma solicitação próximo deste assunto. Preciso Salvar uma copia da planilha atual . mas preciso que seja verificado se ja existe um arquivo com o mesmo nome . Ex. "Relatorio-01-08-2022- 01" Se já existe quero que seja salvo para "Relatorio-01-08-2022- 02" Após salvar a copia preciso que seja enviado via e-mail em anexo. Poderia me ajudar, acredito que tenha que adicionar uma estrutura de repeticao. Tenho o seguinte condigo. Sub SavaCopia_envia_Email() Dim sPara As String Dim sMsg As String Dim sAssunt As String Dim NomeCopia As String Dim DirCopia As String Dim Contador As Integer Dim Caminho As String NomeCopia = "Relatório_" & VBA.Format(VBA.Now, "dd-mm-yyyy") & "." & Contador & ".xlsx" Caminho = "C:\Users\Nunes\Desktop\PROJETO\Teste\BKPDOCUMENTO\" DirCopia = "C:\Users\Nunes\Desktop\PROJETO\Teste\BKPDOCUMENTO\" + NomeCopia Contador = 1 If NomeCopia = Caminho Then Contador = Contador + 1 Else ActiveWorkbook.SaveAs Filename:= _ Caminho + NomeCopia, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End If 'Enviar e-mail NomeCopia = "Relatório_" & VBA.Format(VBA.Now, "dd-mm-yyyy") & "." & Contador & ".xlsx" sAssunt = "Assunto de Envio de Relatório em Anexo" sMsg = "Mensagem teste de envio de e-mail com anexo" Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .to = "" .CC = "" .BCC = "" .Subject = sAssunt .Body = sMsg .Attachments.Add DirCopia .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub
  9. Quedison Nunes Alves
    Bom dia Pessoal Tenho uma solicitação próximo deste assunto. Preciso Salvar uma copia da planilha atual . mas preciso que seja verificado se ja existe um arquivo com o mesmo nome . Ex. "Relatorio-01-08-2022- 01" Se já existe quero que seja salvo para "Relatorio-01-08-2022- 02" Após salvar a copia preciso que seja enviado via e-mail em anexo. Poderia me ajudar, acredito que tenha que adicionar uma estrutura de repeticao. Tenho o seguinte condigo. Sub SavaCopia_envia_Email() Dim sPara As String Dim sMsg As String Dim sAssunt As String Dim NomeCopia As String Dim DirCopia As String Dim Contador As Integer Dim Caminho As String NomeCopia = "Relatório_" & VBA.Format(VBA.Now, "dd-mm-yyyy") & "." & Contador & ".xlsx" Caminho = "C:\Users\Nunes\Desktop\PROJETO\Teste\BKPDOCUMENTO\" DirCopia = "C:\Users\Nunes\Desktop\PROJETO\Teste\BKPDOCUMENTO\" + NomeCopia Contador = 1 If NomeCopia = Caminho Then Contador = Contador + 1 Else ActiveWorkbook.SaveAs Filename:= _ Caminho + NomeCopia, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End If 'Enviar e-mail NomeCopia = "Relatório_" & VBA.Format(VBA.Now, "dd-mm-yyyy") & "." & Contador & ".xlsx" sAssunt = "Assunto de Envio de Relatório em Anexo" sMsg = "Mensagem teste de envio de e-mail com anexo" Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .to = "" .CC = "" .BCC = "" .Subject = sAssunt .Body = sMsg .Attachments.Add DirCopia .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

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...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!