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!

CSS

Desenvolvedores Web e Web Designers normalmente lidam com o fato de não poder usar qualquer tipo de fonte em seus layouts, já que não há a garantia que a fonte esteja instalada no computador que acessa o site, o que é necessário para sua renderização (ou seu usuário verá aquele texto lindo em Arial ou Verdana).

Ok, existem alguns truques para saber isso, mas nada saudáveis para a aplicação e muito menos recomendáveis.

A solução inevitável é produzir o texto com a fonte não padrão como uma imagem. Uma saída efetiva, mas não viável. Há porém uma solução desde o nascimento do CSS 2.0, mas que pouco vi ser utilizada.

Com a tag font-face, você pode declarar uma nova fonte que pode ser utilizado no seu CSS, e também, qual o arquivo de fonte respectivo. Por exemplo, o código abaixo declara a fonte Rugged Ride e aponta para um endereço do servidor onde ela está intalada:

@font-face {
    font-family: "Rugged Ride";
    src: url("http://www.tomasvasquez.com.br/fonts/Rugged Ride.ttf") format("truetype");
}

Depois dessa declaração, é possível fazer o seguinte:

<h1 style="font-family: 'Rugged Ride'">Texto com a Fonte Rugged Ride</h1>

Abaixo segue o HTML respectivo:

Texto com a Fonte Rugged Ride

Como é uma fonte pouco comum, existe uma grande chance de não tê-la instalada em seu computador, mas ela aparece corretamente. Lembrando que seu navegador precisa ter suporte a CSS 2.0, ou essa técnica não funcionará.

Claro que nem tudo são vantagens. Na primeira vez que o usuário acessar o site, ele vai precisar fazer o download da fonte. A depender de seu tamanho, o texto pode aparecer sem fonte até que ela seja baixada totalmente.

Agora é aproveitar essa vantagem de desenhar seus sites!

Abraços!

Mais um fruto do nosso fórum. Proeza do colega Rafael, valeu muito pela belíssima idéia.

O colega publicou no fórum uma maneira simples de criar praticamente um Windows Explorer dentro do Excel com VBA. Nada melhor do que mostrar como ficou:

Windows Explorer no VBA usando o controle WebBrowser

Tá, parece simples, mas na verdade, construir algo assim dá um bocado de trabalho. Porém, o Rafael teve uma sacada de mestre. Se o Windows Explorer e o Internet Explorer são praticamente a mesma coisa, porque não usar o controle WebBrowser para visualizar as pastas do computador? Simples!

Crie um UserForm, adicione um controle WebBrowser, aponte para um caminho existente no computador e pronto! Está funcionando, com uma quantidade de código minúscula!

Para fazer o download do modelo e conferir a discussão sobre ele, confira o tópico do nosso fórum:

http://www.tomasvasquez.com.br/forum/viewtopic.php?t=1514&p=7443

Bom proveito e os agradecimentos da comunidade ao colega Rafael!

Virou mania. Gostei tanto do ter feito isso ano passado que vou repetir e claro, comentar a quantas foram as visitas do site neste ano de 2011.

De imediato, fico feliz em dizer que, saber que a Home Page passou a ser a página mais acessada me deixa muito feliz, pois siginifica que a fidelidade dos usuários só aumentou. De resto, só boas notícias. Os acessos em relação ao ano anterior aumentaram! Para conferir como foi no ano passado, basta conferir este post:

http://www.tomasvasquez.com.br/blog/tecnologia/blog-os-top-20-posts-de-2010

De resto, poucas mudanças no ranking. O foco do pessoal tem sido Excel, VBA e as planilhas prontas que colocamos aqui. A intenção é diversificar o conteúdo, mas sem perder a identidade que tem mantido este blog.

Abaixo você confere a lista do 20 posts mais acessados do ano de 2011.

Acessos de 19/12/2010 até 19/12/2011

Post		Visualizações
Home page		122.907
Planilhas de Controle Financeiro no Excel		107.711
Modelos Prontos		67.012
Excel – Modelos de Folha de Pagamento		63.355
Modelos – Planilha de Banco de Dados no Excel		50.679
Excel – Crie uma planilha de gastos mensais personalizada		46.052
Segurança – Quebrando senhas de projetos VBA do Microsoft Office		15.647
Controle de Estoque no Excel		15.045
VBA – Emitindo mensagens personalizadas com MsgBox		14.944
Excel – Modelo de Agenda de Telefones em VBA		10.296
VBA – Auto executando macros ao abrir arquivos do Office		9.281
Criando um formulário no Word		9.256
Unindo dados de duas ou mais planilhas no Excel		9.216
Excel VBA – Escrevendo números por extenso		9.150
Excel – Planilhas interativas		9.051
Excel – Planilha ajuda em compras no mercado		9.014
Excel – Somando Meses com a função DATA()		8.659
Excel – Planilha de acompanhamento de perda de peso		8.219
Controle de Horas no Excel		7.618
Excel – Controle Financeiro 2010		7.432

Não vou me despedir ainda pois pretendo colocar novidades até o fim do ano. No mais, um muito obrigado a todos por este e que as coisas só melhorem em 2012.

Um grande abraço!