Ir ao conteúdo
  • Cadastre-se
luis_uardo

Excel Listview com planilha fechada

Recommended Posts

Olá a todos,

 

Eu tenho uma planilha com um formulário que salva em um BD com Nome, data, relatório e status. Como eu faço para visualizar os arquivos do bd, na plan original, sem que o bd abra?
Segue uma tentativa de código:

 

Sub List_view1

Dim LR As Long
Dim BD As Workbook
Dim wksOrigem as Worksheet
Dim lincont as long
Dim colcont as long
dim i as long
dim j as long
dim rData as range
Dim rCell as range
Dim LstItem as ListItem

Set wksOrigem = Worksheets("1")
Set rData = wksOrigem.range("A1").CurrentRegion

If Not VBA.Dir(strPath & strFile, vbDirectory) = Empty Then
      If Not IsFileOpen(strPath & strFile) Then
                
                    Excel.Application.ScreenUpdating = False
           Set BD = Excel.Application.Workbooks.Open(strPath & strFile)
                    Excel.Application.ScreenUpdating = True
        
                With BD.Worksheets("1")
                 
               linCont = rData.Rows.Count
 

colCont = rData.Columns.Count

For i = 2 To linCont
Set LstItem = Me.ListView1.ListItems.Add(Text:=rData(i, 1).Value)
For j = 2 To colCont
LstItem.ListSubItems.Add Text:=rData(i, j).Value
Next j
Next i
                    
                    
                End With
          
            If Not BD Is Nothing Then
                    Excel.Application.DisplayAlerts = False
                    BD.Close SaveChanges:=True
                    Set BD = Nothing
                    Excel.Application.DisplayAlerts = True
                      
            End If
     
Erro: Excel.Application.ScreenUpdating = True
      If Not BD Is Nothing Then BD.Close SaveChanges:=True:
      
      
End Sub

Set wksOrigem = sAba
Set rData = wksOrigem.range("A1").CurrentRegion

Compartilhar este post


Link para o post
Compartilhar em outros sites

Sem abrir o arquivo é impossivel.

 

O que você pode fazer é abrir o arquivo sem a interação do usuario, ou seja pelo vba.

 

Para saber o codigo basta usar o gravador de macros e abrir o arquivo.

Compartilhar este post


Link para o post
Compartilhar em outros sites

@luis_uardo nao ha como você pegar dados em uma planilha fechada isso é impossivel.

 

O que se faz neste caso é abrir o arquivo pelo vba carregar os dados necessarios e fechar o arquivo em seguida.

 

Para saber qual o codigo que abre e fecha o arquivo você pode usar o gravador de macros.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Creio ter entendido, porém, uma dúvida, é possível fazer isso com  planilha, no mesmo workbook, ocultada?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Sim é! Afinal os dados estarão na mesma pasta de trabalho.

Estar oculta nao influencia em nada, se você usar o codigo correto.

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×