Criando uma pausa na execução do código

Código muito simples, dispensa maiores explicações.
Já vi gente fazendo um "For - Next" sem nada dentro do looping (até funciona...) mas esta é uma solução mais "elegante"!

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Public Sub Pausa(ByVal segundos As Single)
     Call Sleep(Int(segundos * 1000#))
End Sub

Fechando um processo no TaskManager

A automação no Office nos permite controlar outros aplicativos, mas existe um pequeno "problema" já comentado aqui em um post anterior: mesmo finalizando o aplicativo controlado com "Application.quit" ou limpando a váriavel com "Set var_aplicativo = nothing", o processo continua ativo no gerenciador de tarefas do Windows (TaskManager), o que por vezes pode resultar em erro quando se executa o código duas vezes.
Não sei se isso é um bug ou uma caracterítica do recurso, mas vou deixar aqui um código que elimina o problema.
Obs.: o código não foi escrito por mim, consegui-o nas inúmeras pesquisas pela internet e estou apenas repassando aqui. Já utilizei-o por várias vezes, sempre com sucesso.

'Para usar - exemplo:
'Call Closeprocess("Excel.exe")

================================

Option Explicit

Public Const TH32CS_SNAPPROCESS As Long = 2&
Public Const MAX_PATH As Long = 260

Public Type PROCESSENTRY32
   dwSize As Long
   cntUsage As Long
   th32ProcessID As Long
   th32DefaultHeapID As Long
   th32ModuleID As Long
   cntThreads As Long
   th32ParentProcessID As Long
   pcPriClassBase As Long
   dwFlags As Long
   szExeFile As String * MAX_PATH
End Type

Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" _
  (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function ProcessFirst Lib "kernel32" _
   Alias "Process32First" _
  (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function ProcessNext Lib "kernel32" _
   Alias "Process32Next" _
  (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function OpenProcess Lib "kernel32" _
  (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
   ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" _
  (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Declare Sub CloseHandle Lib "kernel32" _
  (ByVal hPass As Long)

Public Function CloseProcess(EXEName As String) As Boolean

  Dim hSnapShot  As Long
  Dim uProcess   As PROCESSENTRY32
  Dim hProcess   As Long

  CloseProcess = False
  hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
  If hSnapShot = -1 Then Exit Function

  uProcess.dwSize = Len(uProcess)
  If ProcessFirst(hSnapShot, uProcess) = 1 Then
     Do
        If LCase$(Left$(uProcess.szExeFile, InStr(1, uProcess.szExeFile, vbNullChar) - 1)) _
           = LCase$(EXEName) Then
           hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, uProcess.th32ProcessID)
           CloseProcess = TerminateProcess(hProcess, ByVal 0&) > 0
           Exit Do
        End If
     Loop While ProcessNext(hSnapShot, uProcess)
  End If

  Call CloseHandle(hSnapShot)

End Function

A partir de uma planilha, ler dados de outra via ADO

Arquivos XLS não são multiusuários por natureza.
O Excel até permite o compartilhamento, via Ferramentas > Compartilhar Pasta de Trabalho, mas são tantos detalhes que precisam ser observados que o usuário precisa se adaptar ao recurso, sendo que na verdade o recurso deveria facilitar a vida dele.
Recentemente precisei fazer um sistema onde ocorria a leitura de dados de vários XLS's para gravar num outro XLS e este por sua vez, poderia estar aberto no momento da gravação.
Depois de pesquisar, escrever muido código e testar bastante, cheguei a conclusão de que a melhor forma era utilizar o Active Data Objects.
Segue um exemplo de código para leitura de dados de um arquivo XLS a partir de outro.
O melhor de tudo é que podemos utilizar a sintaxe SQL nos comandos, com algumas poucas adaptações é claro, que fará com que os desenvolvedores de banco de dados se sintam bem à vontade.

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim ssql As String
Sub teste()
    'cria uma conexão ADO
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset

    'Na string de conexão, o caracter "aspas duplas" é substituído pelo
    'correspondente em ASCII -> Chr(34)
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Planilha.xls" & _
    ";Extended Properties=" & Chr(34) & "Excel 8.0;HDR=Yes" & Chr(34)

    'abre o recordset pelo nome da planilha
    'Obs.:
    '- No comando SELECT o nome da planilha vai entre chaves e 
    'com um "$" no final do nome
    
    Set rst = cnn.Execute("Select * from [plan1$]")
    
    MsgBox rst(0)
    
    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing

End Sub

Importação de arquivos CSV via ADO

Depois que aprendi a trabalhar com o ADO(Active Data Objects), vi que trata-se de um recurso muito flexível e principalmente, fácil de utilizar.
Postarei em breve vários exemplos de utilização do ADO no VBA.
Esta é a dica para importar arquivos texto com os campos separados por vírgula (CSV - Comma Separated Values). Basta copiar o código e ajustar o caminho/nome do arquivo csv:

Option Explicit

Private Sub importa()

    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim adcomm As New ADODB.Command
    Dim caminho As String
    Dim linha As Integer
    Dim coluna As Integer
   
    caminho = "D:\paulo\Projetos VB\ADO Arquivo Texto\"
   
    'Conexão para arquivo texto sem cabeçalho:
    'connCSV.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
    '& caminho & ";Extended Properties='text;HDR=NO;FMT=Delimited'"
   
    'Conexão para arquivo texto com cabeçalho e colunas
    cnn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" _
    & caminho & ";Extensions=asc,csv,tab,txt;HDR=NO;Persist Security Info=False"
       
    rst.Open "Select * From TesteDeDados.txt", cnn, adOpenStatic, adLockReadOnly, adCmdText
   
    linha = 1
    coluna = 1
    Do While Not rst.EOF
        Cells(linha, coluna).Value = rst(0)
        Cells(linha, coluna + 1).Value = rst(1)
        rst.MoveNext
        linha = linha + 1
    Loop
   
    cnn.Close
    Set cnn = Nothing


End Sub