LuckFarias
-
Total de itens
5 -
Registro em
-
Última visita
Sobre LuckFarias
LuckFarias's Achievements
0
Reputação
-
Olá pessoal, preciso de uma ajudinha se possível, pois sou iniciante no Excel. Montei uma planilha de custos e preciso que ao abri-la seja criada uma numeração crescente de forma automática (Ex: 1-2-3-4-5-6...) Encontrei esta macro na internet: Private Sub Workbook_Open() Range("D4").Value = Range("D4").Value + 1 End Sub Porém também preciso que ao clicar em salvar, cada planilha de custo seja gravada em uma pasta específica no computador com nome do arquivo igual ao número gerado pela primeira macro (que no caso está na célula D4). Encontrei esta outra macro para executar a função: Sub salvar() ChDir "C:\" ActiveWorkbook.SaveAs Filename:="C:\Users\Custos" & Range("d4").Value & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub Até aí tudo bem, ao abrir a planilha o código é gerado automaticamente em ordem crescente, porém só consigo executar a segunda macro (salvar) manualmente clicando em "executar". Gostaria de saber como faço para que as duas macros sejam executadas ao abrir o arquivo, ou seja: abro, gera o código, preencho as informações, clico no botão salvar e pronto, salva o aquivo com o nome certo e na pasta definida. Desculpem se for algo banal, mas como disse sou iniciante e gostaria muito de ajuda. Obrigado!
-
Pessoal, tenho uma galeria de fotos em php que não utiliza BD, apenas grava a imagem em uma pasta e cria uma miniatura em outra pasta no servidor para depois exibí-las. O funcionamento está ok, o problema é que sou completamente leigo em php e preciso de um script para DELETAR estas imagens. Primeiro teria que visualizar as imagens, marcar e depois deletar. Alguém pode me ajudar?
-
beleza galera! Sou leigo em PHP e estou tentando aprender com o material aqui do fórum. Consegui este código para envio de um formulário que está funcionando perfeitamente. A questão é que eu preciso colocar a opção de escolha do destinatário. Estou quebrando a cuca, mas acho que a coisa é simples pra quem é do ramo. Se alguém puder ajudar serei muito grato. Tenho esse código: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>formulario+ anexo</title> <style type="text/css"> <!-- .style2 { font-family: Arial, Helvetica, sans-serif; font-size: x-small; } .style3 {font-size: xx-small} --> </style> </head> <body> <form name="form1" method="post" enctype="multipart/form-data" action="<?= $_SERVER['PHP_SELF'];?>?act=enviar"> <p class=style2" style="word-spacing: 0; margin: 0">Nome</p> <p class="style2" style="word-spacing: 0; margin: 0"> <input type="text" name="nome"> </p> <p class="style2" style="word-spacing: 0; margin: 0">E-Mail</p> <p class="style2" style="word-spacing: 0; margin: 0"> <input name="de" type="text" id="de"> </p> <p class="style2" style="word-spacing: 0; margin: 0">Assunto</p> <p class="style2" style="word-spacing: 0; margin: 0"> <input type="text" name="assunto"> </p> <p class="style2" style="word-spacing: 0; margin: 0">Anexo</p> <p class="style2" style="word-spacing: 0; margin: 0"> <input type="file" name="anexo"> O arquivo deverá ter no máximo 3Mb. </p> <p class="style2" style="word-spacing: 0; margin: 0">Mensagem</p> <p class="style2" style="word-spacing: 0; margin: 0"> <textarea name="msg" cols="50" rows="10"></textarea> </p> <p class="style2" style="word-spacing: 0; margin: 0"></p> <input type="hidden" value="e-mail@dominio.com.br" name="email"> <p class="style2" style="word-spacing: 0; margin: 0"> <input type="submit" name="Submit" value="Enviar"> <input name="reset" type="reset" id="reset" value="Limpar"> </p> </form> <? if ($act == "enviar"){ $mime_list = array( "html"=>"text/html", "htm"=>"text/html", "txt"=>"text/plain", "rtf"=>"text/enriched", "csv"=>"text/tab-separated-values", "css"=>"text/css", "gif"=>"image/gif", "doc"=>"application/msword", "jpeg"=>"image/jpeg", "jpg"=>"image/jpeg", "jpe"=>"image/jpeg", "exe"=>"application/octet-stream", "mid"=>"audio/midi", "midi"=>"audio/midi", "mov"=>"video/quicktime", "movie"=>"video/x-sgi-movie", "mp3"=>"audio/mpeg", "mpeg"=>"video/mpeg", "mpg"=>"video/mpeg", "mpga"=>"video/mpeg", "png"=>"image/png", "pps"=>"application/mspowerpoint", "ppt"=>"application/mspowerpoint", "ppz"=>"application/mspowerpoint", "qt"=>"video/quicktime", "ra"=>"audio/x-realaudio", "rgb"=>"image/x-rgb", "tif"=>"image/tiff", "tiff"=>"image/tiff", "wav"=>"audio/x-wav", "swf"=>"application/x-shockwave-flash", "zip"=>"application/zip", ); $ABORT = FALSE; $boundary = "XYZ-" . date(dmyhms) . "-ZYX"; $message = "--$boundary\n"; $message .= "Content-Transfer-Encoding: 8bits\n"; $message .= "Content-Type: text/html; charset=\"ISO-8859-1\"\n\n"; $message .= "Enviado em ". date("d/m/Y"). "<P>Confira os dados:<P> Nome: " .$_POST['nome]. "<BR> Email: " .$_POST['de']. "<BR> Mensagem:<BR>" .nl2br($_POST['msg']). "<P>"; $message .= "\n"; $attachments[1] = $anexo; foreach ($attachments as $key => $full_path) { if ($full_path !=') { if (file_exists($full_path)){ if ($fp = fopen($full_path,"rb")) { if ((filesize($full_path)/1024) > "3000"){ echo "O arquivo que você tentou anexar, possui mais que 3MB. Por favor, tente um arquivo menor."; exit; } $filename = array_pop(explode(chr(92),$full_path)); $contents = fread($fp,filesize($full_path)); $encoded = base64_encode($contents); $encoded_split = chunk_split($encoded); fclose($fp); $message .= "--$boundary\n"; $message .= "Content-Type: $anexo_type\n"; $message .= "Content-Disposition: attachment; filename=\"$anexo_name\" \n"; $message .= "Content-Transfer-Encoding: base64\n\n"; $message .= "$encoded_split\n"; } else { echo "Impossível abrir o arquivo$key: $filename"; $ABORT = TRUE; } } else { echo "O arquivo$key não existe: $filename"; $ABORT = TRUE; } } } $message .= "--$boundary--\r\n"; $headers = "MIME-Version: 1.0\r\n"; $headers .= "From: <".$_POST['de].">\r\n"; $headers .= "Content-type: multipart/mixed; boundary=\"$boundary\" charset=iso-8859-1\r\n"; $mensagem = mail($_POST['email'], $assunto, $message, $headers); if ($mensagem) { print "Mensagem enviada com sucesso!"; } else { print "O envio da mensagem falhou!"; } } ?> </body> </html>
-
Fernando, o que eu preciso é do seguinte: tenho um menu que quando clico na opção 1 abre mais algumas opções. Preciso abrir mais opções dentro à prtir deste sub-menu. Não sei se consegui ser bem claro, mas agradeço se puder me ajudar.
-
Obrigado pessoal, vou tentar na seção de JavaScript. Valeu!