Arquivo da tag: download

Excel – Listar arquivos em diretório num ListBox

Acho que desenterrei essa. Mas o que seria da vida sem um pouco de saudosismo? Como idade não define utilidade, aí vai mais um código que pode servir de ajudar para aquele seu aplicativo bacana em Excel VBA. A ideia é ter acesso fácil a lista de arquivos de um determinado diretório. De aí em diante, as possibilidades são inúmeras. O form não poderia ser mais simples:

For Lista Arquivos Diretório
For Lista Arquivos Diretório

O código do botão ListarArquivos:

Private Sub cmdListaArquivos_Click()
    lstArquivos.Clear
    Dim arquivos() As String
    Dim lCtr As Long
    arquivos = ListaArquivos(txtCaminho.Text)
    For lCtr = 0 To UBound(arquivos)
      lstArquivos.AddItem arquivos(lCtr)
    Next
End Sub

E por fim, o código que faz o trabalho:

Option Explicit
 
Public Function ListaArquivos(ByVal Caminho As String) As String()
 
'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Dim FSO As New FileSystemObject
Dim result() As String
Dim Pasta As Folder
Dim Arquivo As File
Dim Indice As Long
 
ReDim result(0) As String
If FSO.FolderExists(Caminho) Then
    Set Pasta = FSO.GetFolder(Caminho)
 
    For Each Arquivo In Pasta.Files
      Indice = IIf(result(0) = "", 0, Indice + 1)
      ReDim Preserve result(Indice) As String
      result(Indice) = Arquivo.Name
    Next
End If
 
ListaArquivos = result
ErrHandler:
    Set FSO = Nothing
    Set Pasta = Nothing
    Set Arquivo = Nothing
End Function
 
Public Sub AbreForm()
    UserForm1.Show
End Sub
 
Public Sub VerCodigo()
    Application.Goto Reference:="AbreForm"
End Sub

Pressionado o botão Listar Arquivos em uma pasta do seu computador, temos algo parecido com isso:

For Lista Arquivos Diretório Preenchido
For Lista Arquivos Diretório Preenchido

Download do arquivo:

ListaArquivosDiretorio.zip
(10.67 KiB)

Bom proveito!

VBA – Fazendo o download de um arquivo

A pergunta veio do fórum, mas decidi colocar aqui para compartilhar com todos, até porque, esse código estava perdido em algum canto do meu HD faz muito tempo.
😀

O código abaixo realiza o download de um arquivo de uma URL informada em uma pasta também informada:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Sub Download()
    On Error GoTo Err
    Dim Auxiliar As Long
    Dim URL As String, CaminhoLocal As String
    URL = "http://www.tomasvasquez.com.br/downloads/modelocadastro.zip"
    CaminhoLocal = "C:\modelocadastro.zip"
    Auxiliar = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
    MsgBox "Download efetuado com sucesso!"
    Exit Sub
Err:
    MsgBox "Erro no download do arquivo"
End Sub

No caso, estou usando como exemplo o link do Modelo de Cadastro deste site. Basta colar o código em um novo módulo e executar, para em seguida ver que o Modelo de Cadastro é salvo no caminho “C:\modelocadastro.zip”.

Obviamente, a macro é adaptável a outras necessidades, URLs e tipos de arquivos.

Bom proveito!

Planilhas de Controle Financeiro no Excel – Parte 2

Já tinha falado uma vez sobre controles financeiros pessoais e indicado alguns exemplos. Desta vez, o pessoal da INFO Online colocou mais uma opção no seu site.

Planilha Controle Financeiro Pessoal ajuda a economizar

Planilhas de Controle Financeiro

Um eficiente controle financeiro é o melhor remédio para o salário sobrar no final do mês e a conta do banco ficar no azul. Mas nem sempre é simples fazer as contas. Pensando nos internautas com esse problema, a equipe da INFO preparou o Controle Financeiro Pessoal.

O aplicativo é uma tabela preparada para o Microsoft Excel 2007. Ela tem várias categorias de despesas, onde o internauta preenche os gastos que teve com moradia, alimentação, transporte, saúde, educação, lazer, vestuário e obrigações financeiras. Cada categoria, inclusive, tem subcategorias (em lazer, por exemplo, tem gastos com cinema e jornais), assim, o detalhamento das despesas ficam mais precisos.

Se o internauta preencher corretamente todos os campos, terá uma dimensão exata do quanto gasta e do quanto ganha por mês. Se descobrir, com esses números, que está com as finanças descontroladas, provavelmente terá de colocar um escorpião no bolso. Caso os números sejam favoráveis, aí é só gastar ou aplicar num fundo de investimento.

O link para Download é:

http://info.abril.com.br/downloads/controle-financeiro-pessoal

O autor da planilha é Fabiano Candido

Downloads – Yahoo! SiteBuilder

Precisando construir um site rapidinho? O Yahoo ajuda!

Yahoo! SiteBuilder é um software para que você crie seu site, ele fornece todo o suporte necessário para desenvolver sua página de modo fácil e rápido. Ele conta com mais de 360 templates customizáveis tanto para construir um site pessoal quanto um comercial, e caso não tenha um que satisfaça suas necessidades é muito fácil criar um. Possui um sistema simples de arrastar e largar é fácil adicionar novas páginas, trocar os layouts, mudar as cores, textos e o que mais você desejar.

Com o wizard(guia passo-a-passo) você contrói suas páginas em minutos, e o programa já vem com tudo para você fazer um site comercial, contendo opções prontas para adicionar botões de PayPal, Yahoo! Merchant ou doações on-line. É uma ótima ferramenta para quem está entrando no mundo da construção de páginas, é simples, rápido e não exige nenhuma experiência.

Para baixá-lo é preciso cadastrar-se no Yahoo, que é totalmente gratuito.

Drag and drop text

Tamanho: 12,70 MB
Desenvolvedor: Yahoo!
Sistema: Windows 98/Me/2000/XP/2003
Limitações: não possui

<< Download >>