G.Anjos

Boa tarde galera do ScriptBrasil. Mais uma vez recorro a vocês para automatizar processos manuais. Peço ao moderador(s) que caso o tópico esteja na árera incorreta que me avise. Intuito:Automatizar tarefas rotineiras de dificuldade baixa. Necessidade:Preciso criar aluma tipo de executavel (tipo *.bat) que, por mais que seja necessario outro aplicativo para roda-lo, precisa ser executado automaticamente diariamente.. Descritivo: Diariamente preciso ler um arquivo (*.cvs) que é importado de um link FTP e gerar um relatório. Gostaria que o processo de coleta das informaçoes fosse automatico e que eu só precisasse gerar o relatório (que por sua vez já está automatizado em VBA). Não faço a menor ideia de como poderei fazer isso em uma linguagem de prog... Sugestões??? De qualquer forma, obrigado a todos!

Excelente Raphael. Com sua dica e mais umas leituras consegui aprimorar mais ainda o resultado final!!! Muito obrigado. :D

Boa tarde Raphael, obrigado pela resposta tão rapida. Este é meu Modulo 2, modulo que gostaria que ficasse a condição. A partir daqui poderia continuar a exemplificação?! VLw Public Function ConectarSQL() As Boolean Dim timeout As Integer On Error GoTo trataErro timeout = 0 Set connSQLSERVER = New ADODB.Connection strDataSoure = "STVSAWN1441" strDataBase = "UKPRD1418" strUser = "CEDATABASE" strPWD = "Dsa98765" 'Aqui é montada a string de conexão strConexao = "Provider=SQLOLEDB.1;SERVER=" & strDataSoure strConexao = strConexao & ";DATABASE=" & strDataBase strConexao = strConexao & ";UID=" & strUser strConexao = strConexao & ";PWD=" & strPWD 'Criando um objeto de conexão com a base de dados e executa a Query connSQLSERVER.Open strConexao ' Cria o objeto Recordset. Dim rsstrConexao As ADODB.Recordset Set rsstrConexao = New ADODB.Recordset With rsstrConexao ' Associa a conexão. .ActiveConnection = strConexao ' Extrai os dados. .Open "SELECT BEL_DIVISAO.NomeDivisao, BEL_REPRESENTANTE.Territorio, BEL_REPRESENTANTE.NomeRepresentante, BEL_REPRESENTANTE.MudId, BEL_REPRESENTANTE.Logradouro, BEL_REPRESENTANTE.Complemento, BEL_REPRESENTANTE.Cidade, BEL_REPRESENTANTE.UF, BEL_REPRESENTANTE.Telefone, BEL_REPRESENTANTE.Celular, BEL_REPRESENTANTE.Email FROM UKPRD1418.dbo.BEL_DIVISAO BEL_DIVISAO, UKPRD1418.dbo.BEL_REPRESENTANTE BEL_REPRESENTANTE WHERE BEL_DIVISAO.IdDivisao = BEL_REPRESENTANTE.IdDivisao" ' Coloca os dados na planilha. Range("A5").Select ActiveCell.FormulaR1C1 = "Divisão" Range("B5").Select ActiveCell.FormulaR1C1 = "Território" Range("C5").Select ActiveCell.FormulaR1C1 = "Representante" Range("D5").Select ActiveCell.FormulaR1C1 = "MUDID" Range("E5").Select ActiveCell.FormulaR1C1 = "Logradouro" Range("F5").Select ActiveCell.FormulaR1C1 = "Complemento" Range("G5").Select ActiveCell.FormulaR1C1 = "Cidade" Range("H5").Select ActiveCell.FormulaR1C1 = "UF" Range("I5").Select ActiveCell.FormulaR1C1 = "Telefone" Range("J5").Select ActiveCell.FormulaR1C1 = "Celular" Range("L5").Select ActiveCell.FormulaR1C1 = "E-mail" Range("K5").Select Range("A6").CopyFromRecordset rsstrConexao End With ' Fecha conexão 'ConectarSQL = True Exit Function trataErro: 'timeout If Err.Number = -2147467259 And timeout < 5 Then timeout = timeout + 1 Resume Else MsgBox Err.Number & " - " & Err.Description Debug.Print Err.Number ConectarSQL = False Resume Next End If

Bom dia pessoal do Scriptbrasil. Antes de criar o tópico pesquisei muito, inclusive aqui, mas não encontrei uma solução que fosse adequada a minha necessidade ou que eu entedesse, explico: Necessidade; Aplicar uma tonalidade de cor alternando entre as linhas a partir da celula A5. Observações; Os dados são importados de uma base SQL da rede, logo não é possível determinar qual será o intervalo para aplicar as cores. Soluções que encontrei; Utilizar MSFlexgrid Utilizar Condição a partir de teste em celulas com valor NotEmpty || Copiar o conteudo de uma macro(macro para inserir cor) para criar o Modulo - E mais algumas que não me recordo agora. A questão é que com meu nível de conhecimento (básico, utilizo a ferramenta junto com Macros) algumas explicações como a do MsFlexgrid acabam dependendo de detahes que ainda desconheço, e com o chefe me cobrando hora após hora fica dificil. Gostaria de alguma orientação no assunto, acompanhado de uma solução de fácil entendimento ou com uma explicação. Agradeço a todos a colaboração.