Tomás Vásquez – Blog

Nascido das mãos do colega Rafael do nosso fórum, o código abaixo realiza a exportação de uma planilha ativa no Excel para um arquivo Texto:

Sub Exportar()
    Application.DisplayAlerts = False
 
    template_file = ActiveWorkbook.FullName
 
    fileSaveName = Application.GetSaveAsFilename( _
                   InitialFileName:="C:\users" + _
                                    VBA.Strings.Format(Now, "mmddyyyy") + ".txt", _
                   fileFilter:="Text Files (*.txt), *.txt")
 
    If fileSaveName = False Then
        Exit Sub
    End If
 
    'cria uma cópia da pasta de trabalho atual da planilha atual
    Dim newBook As Workbook
    Dim plan As Worksheet
    Set newBook = Workbooks.Add
 
    ThisWorkbook.ActiveSheet.Copy Before:=newBook.Sheets(1)
 
    'exclui as demais planilhas
    For Each plan In newBook.Sheets
        If plan.Name <> ActiveSheet.Name Then
            newBook.Worksheets(plan.Index).Delete
        End If
    Next
 
    newBook.SaveAs Filename:= _
                          fileSaveName, FileFormat:=xlTextWindows, _
                          CreateBackup:=False
 
    'fecha a pasta de trabalho gerada
    newBook.Close SaveChanges:=True
    Set newBook = Nothing
 
    MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos"
 
End Sub

A parte bacana deste código é não necessidade de utilizar ou precisar conhecer de manipulação de arquivos, uma vez que estamos utilizando o “Salvar Como” arquivo texto. Fica bem mais fácil de customizar!

O link original do código do fórum pode ser visto aqui:

www.tomasvasquez.com.br/forum/viewtopic.php?t=1651&p=8162

Bom proveito!

Olha o pessoal do fórum aprontando de novo. Dessa vez foi o colega Leandro Alves o autor da proeza. Abaixo coloco o post do fórum referente ao excelente modelo de planilha disponibilizado pelo colega:

Olá Pessoal,

Estou disponibilizando este modelo de orçamento que fiz para o meu próprio uso. E modéstia a parte ficou legalzinho. Conforme a minha necessidade, não o fiz para realizar pesquisas num banco de dados porque colho as informações manualemte direto do site dos meus fornecedores.

Este é um aplicativo que calcula automaticamente o preço de venda de uma mercadoria baseado no seu preço de custo e na margem de lucro escolhida pelo usuario. Também pode-se estipular um preço de venda e ele calcula automaticamente a margem obtida. No rodapé ele mostra os dados financeiros do orçamento sendo eles Custo Total, Média da Margem de Lucro, Lucro por Produto e Lucro Total. Temos opções para desconto, acrescimo e ocultar informaçoes financeiras caso o cliente precise ver o orçamento.

É possivel Gravar, Editar, imprimir e Apagar um orçamento buscando-o através da tela de pesquisa onde o usuario realiza filtros por uma data especifica, por nome e até por intervalo de datas. E outro detalhe importante é que ao gerar um novo orçamento sempre é gerado num novo numerio sequencial para o mesmo automanticamente.

*Lembrando que todas as informações contidas no arquivo são ficticias e foram inseridas somente para testes.

Espero que gostem!

Abraços

Imagens do Modelo

Orçamento - Tela de Cadastro

Orçamento - Tela de Pesquisa

Download da planilha

Orçamento.rar (92.06 KiB)

Tópico do Fórum

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=23&t=1654

E um merecido agradecimento ao colega pela contribuição!

Há muitos outros colegas disponibilizando disversos modelos em nosso fórum. Vale a pena dar uma olhada!

Um grande abraço e bom proveito!

Dizer que o fórum está dando frutos já virou cliché por aqui. Mas desta vez vou compartilhar, com a permissão do autor, um dos modelos de planilha mais caprichados que passaram pelas minhas mãos.

O colega Erikson postou em nosso fórum e deixou todos boquiabertos. Trata-se de uma planilha (se é que é possível reconhecê-lo como uma planilha) que é um verdadeiro canivete suíco para quem acompanha jogos na Loteria, especialmente a MegaSena.

Além de poder cadastrar suas apostas em uma interface mais do que bacana, ele gera número aleatórios para novas apostas. Dá até para conferir o jogo online, sem sair do aplicativo!

Abaixo vocês conferem um pouco do visual do aplicativo, que acredito falar por si.

Loteria Tela Inicial

Surpresinha

Conferindo o Jogo

Conferindo o Jogo Online!

O download do arquivo pode ser feito no link abaixo:

http://www.tomasvasquez.com.br/forum/download/file.php?id=1084

A discussão no fórum sobre a planilha e atualizações pode ser conferida aqui:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=23&t=1593

Bom proveito a todos!

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!