Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

...

Views

19 de dezembro de 2013

VBA Excel - Função DIR - 01 - Percorrer os arquivos em uma pasta - Loop Through the Files in a Folder


No VBA do Microsoft Excel, a função Dir é usada para retornar o primeiro nome do arquivo num diretório especificado, e uma lista dos seus atributos.

O nome do arquivo é retornado como uma String. A função Dir pode ser usada sem os respectivos argumentos para retornar o nome do próximo arquivo, neste mesmo diretório.

O uso mais comum da função Dir é percorrer todos os arquivos de uma pasta, executando uma ação em cada um. Outros usos comuns incluem a verificação da existência destes, saber se um diretório existe, ou procurar um arquivo específico.


Percorrer os arquivos em uma pasta

Sub AllFiles()

Dim MyFolder As String 'Path containing the files for looping
Dim MyFile As String 'Filename obtained by Dir function
 
Let MyFolder = "C:\ExcelFiles" 'Assign directory to MyFolder variable

Let MyFile = Dir (MyFolder) 'Dir gets the first file of the folder

'Loop through all files until Dir cannot find anymore
Do While MyFile <> ""

    The statements you want to run on each file
   
    Let MyFile = Dir 'Dir gets the next file in the folder

Loop

End Sub





Tags: Excel, VBA, Files, Folder, list, Dir, filedatetime, xls, xlsm, xlsb, loop, arquivos, pasta
, function, directory, 






Inline image 1

VBA Excel - Função DIR - 02 - Listar os arquivos de uma pasta em uma planilha - List the Files from a Folder on a Worksheet



No VBA do Microsoft Excel, a função Dir é usada para retornar o primeiro nome do arquivo num diretório especificado, e uma lista dos seus atributos.

O nome do arquivo é retornado como uma String. A função Dir pode ser usada sem os respectivos argumentos para retornar o nome do próximo arquivo, neste mesmo diretório.

O uso mais comum da função Dir é percorrer todos os arquivos de uma pasta, executando uma ação em cada um. Outros usos comuns incluem a verificação da existência destes, saber se um diretório existe, ou procurar um arquivo específico.


Listar os arquivos de uma pasta em uma planilha

Sub ListFiles()

Dim MyDirectory As String 'Folder containing the files
Dim MyFile As String 'The filename to enter on the worksheet
Dim NextRow As Long 'The row for the next filename in list

MyDirectory = "C:\ExcelFiles" 'Assign directory to MyDirectory variable

MyFile = Dir(MyDirectory) 'Dir gets the first file in the folder

'Find the next empty row in the list and store in NextRow variable
NextRow = Application.CountA(Range("A:A")) + 1

Do Until MyFile = ""

      Cells(NextRow, 1).value = MyFile
     
      NextRow = NextRow + 1 'Move to the next row

      MyFile = Dir 'Dir gets the name of next file in the folder
Loop

End Sub


Tags: 
Excel, VBA, Files, Folder, list, Dir, filedatetime, xls, xlsm, xlsb, arquivos, pasta, function, directory, worksheet

Inline image 1

VBA Excel - Função DIR - 03 - Verificando a existência de um Arquivo - Check if a Files Exists



No 
VBA do Microsoft Excel, a função Dir é usada para retornar o primeiro nome do arquivo num diretório especificado, e uma lista dos seus atributos.

O nome do arquivo é retornado como uma String. A função Dir pode ser usada sem os respectivos argumentos para retornar o nome do próximo arquivo, neste mesmo diretório.

O uso mais comum da função Dir é percorrer todos os arquivos de uma pasta, executando uma ação em cada um. Outros usos comuns incluem a verificação da existência destes, saber se um diretório existe, ou procurar um arquivo específico.


Verificando a existência de um Arquivo

Sub FileExists()

      Dim TheFolder As string 'Location of the file
      Dim FiletoCheck As String 'Name of the file you want to check

TheFolder = "C:\ExcelFiles" 'Assign directory to TheFolder variable

'Capture the name of file to check for using an input box
FiletoCheck = InputBox("Enter the name of the file you want to look for", "Enter file name")

'If FiletoCheck is an empty string then file not found
If FiletoCheck = "" Then
     
      Msgbox "Oh no, the file does not exist"

Else

      Msgbox "Yes, the file exists."

End If

End Sub



Tags: 
Excel, VBA, Files, Folder, list, Dir, filedatetime, xls, xlsm, xlsb, arquivos, pasta, check, exists, function, directory, 

Inline image 1

Excel VBA - List All the Excel Files in a folder



Também podemos recuperar algumas informações destes arquivos se necessário. Este código VBA listará os nomes e data da última atualização.

Como isso funciona?

A caixa de diálogo de seleção de pasta é usada para tornar mais fácil para o usuário selecionar o local desejado, retornando os arquivos.

A função Dir será usada para retornar cada nome de arquivo da pasta ou diretório.

Este código retornará listando todos os arquivos Excel contidos na pasta. Especificamos isso ao usar *. XLS na função Dir. O curinga e a extensão podem ser alterados para listar todos os arquivos que desejarmos, ou omitir inteiramente alguns arquivos desta.

O método FileDateTime foi usado para capturar a data de criação ou modificação.

Sub ImportFileList()
Dim MyFolder As String 'Store the folder selected by the using
Dim FiletoList As String 'store the name of the file ready for listing
Dim NextRow As Long 'Store the row to write the filename to

On Error Resume Next

Let Application.ScreenUpdating = False

'Display the folder picker dialog box for user selection of directory
With Application.FileDialog(msoFileDialogFolderPicker)
    Let .Title = "Please select a folder"
    .Show
    Let .AllowMultiSelect = False
    If .SelectedItems.Count = 0 Then
        MsgBox "You did not select a folder"
        Exit Sub
    End If
    Let MyFolder = .SelectedItems(1) & "\"
End With

'Dir finds the first Excel workbook in the folder
Let FiletoList = Dir(MyFolder & "*.xls")
Let Range("A1").Value = "Filename"
Let Range("B1").Value = "Date Last Modified"
Let Range("A1:B1").Font.Bold = True

'Find the next empty row in the list
Let NextRow = Application.CountA(Range("A:A")) + 1

'Do whilst the dir function returns an Excel workbook
Do While FiletoList <> ""
    Let Cells(NextRow, 1).Value = FiletoList 'Write the filename into the next available cell
    Let Cells(NextRow, 2).Value = FileDateTime(MyFolder & FiletoList) 'Write the date the cell was last modified
    Let NextRow = NextRow + 1 'Move to next row
    Let FiletoList = Dir 'Dir returns the next Excel workbook in the folder
Loop

Let Application.ScreenUpdating = True

End Sub








Tags: Excel, VBA, Files, Folder, list, Dir, filedatetime, xls, xlsm, xlsb, 

Inline image 1


17 de dezembro de 2013

Séries - LinkedIn - Trabalhe o seu Perfil - 01 - Promova a sua empresa
























O propósito desta série de posts é, dentre outras coisas, fazê-lo tornar-se visível à maior comunidade de networking profissional no momento.

Siga estas dicas passo-a-passo e depois comente aqui o seu progresso, número de visitações ao seu perfil, etc...



1. Promova a sua empresa (Promoting your company)


A sua empresa pode ser encontrada no LinkedIn?

Crie um perfil da sua empresa para sua organização.

Quando as pessoas procurarem por sua empresa no LinkedIn ou nos motores de busca do perfil da sua organização você aparecerá também.

O perfil da sua empresa conterá os links para todos os colaboradores dela que tiverem perfis no LinkedIn. Ainda ajudará a aumentar a visibilidade dos seus 

Aproveite e use a descrição da sua empresa para comunicar o que é importante, efetuando um link para seu site principal. 

Além disso, use a seção de especialidade de forma eficaz e usar as palavras certas para as pessoas que não buscam a sua organização pode encontrá-lo.


Tags: LinkedIn, Networking, marketing, Research, Tips, Business, Professionals, profissional, perfil, profile, dicas, empresa



Inline image 1


VBA Tips - Especialidades Médicas



O que segue é uma função antiga que utilizei para retornar os nomes das Especialidades a partir das suas respectivas siglas.

A função cobre apenas algumas, com as respectivas siglas, mas como poderá observar abaixo, poderá implementar outras especialidades com o tempo:

Function ReturnESP (nESP As String) As String
    '     Author: André Bernardes - bernardess@gmail.com
    '       Date: 14/02/2011 - 15:45
    'Description: Retorna o nome das Especialidades Médicas a partir das siglas.
    
    If nESP = "PSQ" Then
        Let ReturnESP = "PSIQUIATRA"
    ElseIf nESP = "NEU" Then
        Let ReturnESP = "NEUROLOGISTA"
    ElseIf nESP = "CRD" Then
        Let ReturnESP = "CARDIOLOGISTA"
    ElseIf nESP = "CLG" Then
        Let ReturnESP = "CLINICO GERAL"
    ElseIf nESP = "END" Then
        Let ReturnESP = "ENDOCRINOLOGISTA"
    ElseIf nESP = "GER" Then
        Let ReturnESP = "GERIATRA"
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    ElseIf nESP = "" Then
    End If
End Function

Anatomia Patológica
Anestesiologia
Angiologia e Cirurgia Vascular
Cardiologia
Cardiologia Pediátrica
Cirurgia Cardio-Torácica
Cirurgia Geral
Cirurgia Maxilo-facial
Cirurgia Pediátrica
Cirurgia Plástica e Reconstrutiva e Estética
Dermato-venereologia
Doenças Infecciosas
Endocrinologia-Nutrição
Estomatologia
Farmacologia Clínica
Gastrenterologia
Genética Médica
Ginecologia-Obstetrícia
Hematologia Clínica
Imuno-alergologia
Imuno-hemoterapia
Medicina Desportiva
Medicina do trabalho
Medicina Física e de Reabilitação
Medicina Geral e Familiar
Medicina Interna
Medicina Legal
Medicina Nuclear
Medicina Tropical
Nefrologia
Neuro-Cirurgia
Neurologia
Neuro-Radiologia
Oftalmologia
Oncologia Médica
Ortopedia
Otorrinolaringologia
Patologia Clínica
Pediatria
Pneumologia
Psiquiatria
Psiquiatria da Infância e da Adolescência
Radiodiagnóstico
Radioterapia
Reumatologia
Saúde Pública
Urologia


Tags: VBA, function, funções, especialidade, especialidades, tips, 


Inline image 1

13 de dezembro de 2013

VBA Tips - 01 das 10 Principais interações com as APIs do Windows - Sleep



Quando uma solução VBA está aquém de atender as nossas necessidades, provavelmente existirá uma função API do Windows que faremos trabalhar para nós.

Listo a seguir o que acredito ser as 10 Principais interações com as APIs do Windows.

Nós, desenvolvedores VBA do Office, sabemos que podemos pegar alguns atalhos para resolvermos muitas das nossas necessidades diárias. Às vezes, uma solução VBA torna-se complicada ou difícil de implementar. Neste momento podemos lançar mão das APIs - Application Programming Interface. Encontraremos milhares de funções úteis. é importante saber que pode usá-las em mais qualquer aplicativo baseado no Windows. (Essas dicas são específicas para sistemas 32 bits).

As funções do VBA fornecidas neste artigo não são de uso prático. Estas são chamadas simples para a API, para que possamos ver como trabalham em conjunto. Mas é certo que alguns destes podem facilmente passar para a sua biblioteca pessoal. 

Depois que souber como os procedimentos VBA chamam as funções da API e o que retornam, poderá modificar tais códigos para usá-los em seus próprios projetos.

1: Sleep

A função de Sleep suspende a execução por um período determinado. Coloca o código que está em execução num estado de inatividade até que o número de milissegundos transcorram na função. Basta declarar a função e, em seguida, chamá-la a partir de uma SUB ou FUNCTION:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  Sleep milliseconds


Tags: VBA, API, code,10, Sleep

Inline image 1

12 de dezembro de 2013

Excel Tips - Calendário Compacto para 2014 - THE COMPACT CALENDAR 2014




Continua o nosso desafio quanto a manter o controle sobre os diversos projetos e atividades nas quais estamos envolvidos! 

Acompanharmos as diversas fases em vários cronogramas exige disciplina e assertividade. Ter uma boa ferramenta de apoio, pode ser a diferença entre atingir os nossos objetivos ou despercebermos que deveríamos ter feito isso.

O que se segue é uma versão traduzida do Calendário Compacto para 2013, desenvolvido por David Seah.

Este calendário tem uma apresentação compacta, dividida em semanas, com linhas numeradas numa planilha Excel. Usá-lo nos ajudará a avaliarmos melhor a duração dos eventos previstos nas semanas do ano.

Esta versão do calendário é ideal para os projetos onde se planeja controlar as várias fases da implementação. Sua impressão está posicionada na margem esquerda de uma folha A4, proporcionando muito espaço para comentários e anotações.


Este Calendário Compacto é um Calendário de Planejamento muito versátil, fácil de personalizar e imprimir a partir do Microsoft Excel
12-month calendar in Excel 2007To add a holiday, just type in the date in the first column and a note in the second. The rest of this is for fancy formatting.The instructions worksheet reminds you how to modify things








Por padrão, o calendário inclui os feriados americanos destacados em vermelho, mas podemos inserir outros eventos.

Solicite uma versão 

Deixe um comentário junto com o seu endereço de e-mail neste POST(Acesse ao link do post, pois este artigo está sendo replicado em vários blogs)

Calendário Compacto é simples de imprimir. Encaixa-se em uma única página, as semanas são apresentadas como uma pilha de tempo disponível, torna-se fácil bloquear os dias, fazendo anotações sobre reuniões, feriados e fins de semana.

Modificando o Calendário Compacto

Precisará ter no mínimo o Microsoft Excel 2007 ou versão posterior para modificar os arquivos xltx do Calendário Compacto. Se estiver usando uma versão anterior do Office no Windows, utilize este service pack para download a partir do site da Microsoft.

NOTA: O Calendário Compacto está salvo como um modelo do Excel (xltx). Se clicar duas vezes em um arquivo de modelo do Excel, ele abre uma cópia que salvará sem modificar o modelo mestre. Se quiser editar o modelo em si, deve abrí-lo como um modelo do MS Excel.

Por favor, note que é necessário o Microsoft Excel 2007 ou versão mais recente .Outros softwares como o Open OfficeGoogle Docs, e outros podem importar a planilha Excel, mas devido as diferenças na maneira de lidar com as datas faz-se necessário certificar-se de que os calendários estarão corretos.
Tags: 2014, Excel, tips, calendário, calendar, download, David Seah, xltx, Office, MS Office, 




Inline image 1

LinkWithin

Related Posts Plugin for WordPress, Blogger...

Vitrine