Zow

Olá pessoal, Estou tentando usar essa macro que copia os dados de uma célula a cada 15 segundos, no entanto após os 15 segundos aparece o seguinte erro: Não foi possível encontrar a macro "Pasta1!QuinzeMin". O que estou fazendo de errado? Public Sub QuinzeMin() Dim hora As String With ThisWorkbook hora = .Worksheets("Plan1").Range("a1").Value With .Worksheets("Plan1") .Range("A1:b1").Copy .Range("A3").PasteSpecial Paste:=xlPasteValues .Range("A3").EntireRow.Insert End With End With NextEvent = Now + TimeValue("00:00:15") Application.OnTime NextEvent, "QuinzeMin" End Sub

Pessoal, estou montando um programa que analisa cotações de ativos do mercado financeiro. Preciso de uma linguagem que funcione o mais rápido possível e absorva e compile uma grande quantidade de informação. No momento sei um pouco de html, php, C+ e Visual Basic. Além dessas há alguma que me permita ganhar alguns milissegundo a mais ? Para imprimir gráficos na tela há alguma linguagem que vocês indicam ? Obrigado,

Pessoal, estou precisando importar uma série de dados de uma tabela para o excell. Manualmente eu faço assim: Abro o excell >>> dados >>>>Importar dados externos >>>>Nova consulta à Web >>>>> colo a Url do site>>>>> Importar Daí escolho a célula e a informação é importada pro excell. Alguém sabe qual a função que faz esse caminho ?

Alguém sabe se isso fere alguma lei ? Acho que não, pois afinal a informação está lá disponível para uso né?

Olá pessoal, Estou querendo copiar informações do endereço: http://cotacoes.economia.uol.com.br/bolsas...e=20&page=1 As informações estão na tabela da página e modificam-se a cada minuto. A intenção é fazer uma planilha em excell mesmo para controle de ações. Pretendo usar a propria linguagem VBA do excell para isso. A dúvida está justamente em como fazer para copiar esses elementos dentro da tabela. Há alguma forma de se obter a informação da tabela da fonte do site? Tipo um URL com a informação da tabela apenas? Do contrário, há alguma forma de copiar a informação que está nessa página? Vocês podem me dizer como faço isso? Ou pelo menos qual o caminho para começar? Obrigado

Pessoal, estou querendo criar um aplicativo que funcione apenas algumas ferramentas do Fireworks. Gostaria de saber qual o caminho que posso seguir para conseguir entrar nessa parte da programação gráfica e se tem algum programa que faça isso..

Não posso ir armazenando os valores em Loop? Tipo: For k = 1 to Quantotal 'Quantotal é a quantidade total de vetores VALOR(k) = ThisWorkbook.Sheets("Plan1").Cells(i, quantidade - k).Value Next k

Pessoal, aprendendo a trabalhar com vetores agora: De uma planilha que tenho diversas linhas e colunas preenchidas quero fazer um vetor que percorre cada coluna e faz os cálculosde uma fórmula de médias, mas tá dando erro "Subscrito fora do intervalo." Será que alguém pode me dizer o que há de errado? Segue o código: Public Sub carregaMM() 'Determinando a quantidade de colunas já preenchidas Dim Z As Long Dim T As Long Dim quantidade As Long Z = 1 T = 1 Do While Z = 1 If ThisWorkbook.Sheets("Plan1").Cells(1, T).Value <> "" Then T = T + 1 Else Z = 0 End If Loop quantidade = T - 1 'Declaração de variáveis para uso na média Dim MM3 As Double Dim VALOR() As String Dim i As Long Dim k As Long 'Inicia os cálculos linha a linha Dim totaldelinhas As Long totaldelinhas = ThisWorkbook.Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To totaldelinhas 'Vetor VALOR é o vetor que armazena o valor que queremos VALOR(k) = ThisWorkbook.Sheets("Plan1").Cells(i, quantidade - k).Value 'Médias móveis MM3 = VALOR(0) + VALOR(1) + VALOR(2) MM3 = MM3 / 3 'Imprime o nome na 1ª coluna ThisWorkbook.Sheets("Plan2").Cells(i, 1).Value = ThisWorkbook.Sheets("Plan1").Cells(i, 1).Value ThisWorkbook.Sheets("Plan2").Cells(i, 2).Value = MM3 Next i End Sub

Preciso captar informação dinâmica de uma página, que fica mudando cada vez dou um refresh. Qual o caminho devo seguir para copiar essa informação para uma base de dados? Eu consigo selecionar a informação e exibir o código fonte (da seleção) do site, então essa informação está aqui: </td><td class="mb" align="center"><font color="#cf0000">-0.31</font></td><td class="mb" align="center"><font color="#cf0000">-0.75</font></td><td class="mb" align="center"><font color="#cf0000">41.29</font></td><td class="m" align="center">41.29</td><td class="m" align="center">41.3</td><td class="m" align="center">41.74</td><td class="m" align="center">41.17</td><td class="m" align="center">41.49</td><td class="m" align="center">5102400</td><td class="m" align="center">13:05:31</td> Agora qual o script que me permitiria: 1- abrir o site 2- resgatar essas informações que estão na </td> 3 - Imprimir em uma base de dados , pode ser txt mesmo. Alguém pode me indicar o caminho que devo seguir? Seria com outra linguagem? Obrigado

POis é meus amigos, já re-desinstalei o xampp, reinstalei, já testei o Wamp também, mas continua acontecendo o mesmo ! Nem o Localhost nem o phpmyadmin conectam... fica no "Conectando..." Acho que vou ter que arrumar outro PC !

Segue o código: While (paciência) Ajuda++ rsrsrs :blush: Option Explicit Public Sub carregavolumetotal() 'Variáveis para uso no loop Dim Arquivo As Integer Dim CaminhoArquivo As String Dim TextoArquivo As String Dim TextoProximaLinha As String Dim ContadorLinha As Long 'Declaração de variáveis para uso no arquivo Dim nome As String 'Configura a leitura do arquivo Arquivo = FreeFile ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'LISTAGEM DOS ARQUIVOS (essa função eu baixei da net e serviu pro meu caso, então não mudei) 'Ela abre os arquivos de um diretório e vai listando eles, no meu caso usei isso para que os arquivos fossem sendo manipulados automaticamente. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim oSearch As FileSearch Dim strDirName As String: strDirName = InputBox("Digite o caminho do diretório:", "Caminho") Dim strPrompt As String: strPrompt = strDirName & Chr(13) & Chr(13) Dim I As Long Set oSearch = Application.FileSearch With oSearch .LookIn = strDirName .SearchSubFolders = False .Filename = "*.*" .Execute If .FoundFiles.Count > 0 Then For I = 1 To .FoundFiles.Count strPrompt = strPrompt & .FoundFiles(I) & Chr(13) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'INICIO DA PROGRAMAÇÃO: RECEBE O NOME DOS ARQUIVOS, CRIA PLANILHA E IMPRIME A INFORMAÇÃO ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Abre o arquivo para leitura Open .FoundFiles(I) For Input As Arquivo ContadorLinha = 1 'Lê o conteúdo do arquivo linha a linha Do While Not EOF(Arquivo) Line Input #Arquivo, TextoProximaLinha TextoProximaLinha = TextoProximaLinha & vbCrLf TextoArquivo = TextoArquivo & TextoProximaLinha 'Armazenando as informações de cada linha do texto nas poições relativas 'OBS: AQUI O ARQUIVO É GIGANTESCO, ENTÃO VOU RESUMIR INFO = Mid(TextoProximaLinha, 1, 2) INFO2 = Mid(TextoProximaLinha, 3, 8) INFO3 = Mid(TextoProximaLinha, 11, 2) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Preenche as colunas na planilha '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ThisWorkbook.Sheets("planilha").Cells(ContadorLinha, 1).Value = INFO1 ThisWorkbook.Sheets("planilha").Cells(ContadorLinha, 2).Value = INFO2 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ' NESTA PARTE EU QUERIA ABRIR UM OUTRO ARQUIVO TEXTO E EDITÁ-LO COM AS INFORMAÇÕES DENTRO DESSE MESMO LOOP!!!! ' MAS QUANDO USO O OPEN, ELE DIZ QUE O ARQUIVO JÁ ESTÁ ABERTO!!! ' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ContadorLinha = ContadorLinha + 1 Loop 'Coloca na janela de verificação imediata Debug.Print TextoArquivo 'Fecha o arquivo Close Arquivo 'Preenchendo as colunas da planilha ThisWorkbook.Sheets("planilha").Cells(1, I).Value = nome 'CONTINUAÇÃO DO FOR DA LISTAGEM DE ARQUIVOS Listagem: Next I Else strPrompt = strPrompt & "No files found." End If ' Display the file list in a message box. MsgBox strPrompt End With End Sub

Amigos, Para contar o número de linhas preenchidas na planilha usei esse cód.: ThisWorkbook.Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row Para contar o número de colunas tentei esse: ThisWorkbook.Sheets("Plan1").Cells(1, Columns.Count).End(xlUp).Column mas não deu certo, porque retorna o número de colunas totais da planilha, mesmo as em branco. Só fazendo um Loop pra contar ou há alguma fórmula?

Pessoal, Estou fazendo uma Macro que lê dados de um arquivo texto, gera uma planilha com esses dados organizados e abre e edita outro arquivo texto com apenas alguns dos dados. Não estou conseguindo colocar a abertura e manipulação em um único código. pois quando vou abrir o segundo arquivo para edição, me retorna a mensagem de que o arquivo já está aberto. É possível abrir dois arquivos texto ao mesmo tempo? como posso fazer isso?

mJi valeu pela resposta, mas não conectou! Muito estranho porque estava funcionando direitinho antes... pode ser que algum programa que instalei invadiu a porta 80, mas como eu mudei achei que ia funcionar. Outro detalhe é que apareceu ao mesmo tempo que ocorreu o erro a atualização do firefox, mas tentei pelo explorer e o chrome e continua na mesma.

Pessoal, resolvi postar aqui porque não encontrei solução alguma para meu caso. O Xampp estava funcionando normalmente daí um dia simplesmente não abriu mais o painel do admnistrador do BD. Eu digito http://Localhost/ ou http://localhost/phpmyadmin/ ou mesmo http://localhost/xampp/ e nada de carregar... A aba fica só no "Conectando" e aquela setinha da skol estilo "desce redondo" rodando do lado. Eu desinstalei e reinstalei o bichinho mas nada de funcionar. Deu um erro na porta 80 do Apache depois que instalei, então eu modifiquei no arquivo httpd dentro da pasta conf do diretório do Apache para a porta 8080 e nada... Desativei o Firewall do windows, e nada... Alguém já passou por isso e resolveu, pode dar uma luz? Ou alguém indica outro programa grátis pra testar o BD no localhost? Abs!!