none
Utilizando um form, como faço uma busca eficiente em uma tabela externa com extensão "xlsb" sem precisar abrir este arquivo? RRS feed

  • Pergunta

  • Pessoal quem pode me ajudar com esta dúvida, tenho um arquivo  com extensão "xlsb" que utilizo como um banco de dados externo e em um form utilizo uma textbox para digitar a chave primaria para a busca do registro nessa tabela, só consegui através do código abaixo mais só abrindo o arquivo.

    Private Sub Txt_N_Ocorrencia_AfterUpdate()

    Dim linha As Integer
    Dim N_Ocorrencia As Long
    N_Ocorrencia = Txt_N_Ocorrencia

    ' (A linha abaixo localiza um registro sem o looping pelo método find em uma tabela externa e
    '   para isso tenho que abrir o arquivo e depois fechar).

    linha = Workbooks.Open("C:\Bco_Dados\Bco_Ocorr_Faltas.xlsb").Sheets("Bco_Ocorr_Falta").Range("A:A").Find(N_Ocorrencia).Row

      Txt_N_Ocorrencia = Sheets("Bco_Ocorr_Falta").Cells(linha, 2)
      Txt_D_Atual = Sheets("Bco_Ocorr_Falta").Cells(linha, 2)
      Txt_D_Ocorrencia = Sheets("Bco_Ocorr_Falta").Cells(linha, 3)
      Txt_N_NotaFiscal = Sheets("Bco_Ocorr_Falta").Cells(linha, 4)

      Windows("Bco_Ocorr_Faltas.xlsb").Activate
      ActiveWorkbook.Close

    Alguém teria alguma outra solução para isso? agradeço desde já a ajuda.

    domingo, 2 de agosto de 2015 05:09

Respostas

  • Não sei se você está se referindo a mostrar a janela.

    O intuito do método Open é abrir uma conexão e você precisa utilizá-lo.

    É possível esconder a janela da aplicação:

    ActiveWorkbook.Windows(1).Visible = False

    • Marcado como Resposta Marcos SJ segunda-feira, 3 de agosto de 2015 19:30
    domingo, 2 de agosto de 2015 06:52