Excel Listview com planilha fechada

luis_uardo · 21 de setembro de 2018

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