boa tarde
tenho uma macro que busca um arquivo, abre e copia as informções que preciso para montar minha estatística.
mas se o arquivo estiver aberto por outra pessoa não consigo copiar as ifnormações.
como fazer com que ele abra o arquivo se o mesmo estiver aberto, mas como somente leitura, copia e fecha sem salvar.
Sub consolida()
Application.ScreenUpdating = False
'Consolida informações da planilha dados de todos os técnicos
Application.ScreenUpdating = False
Application.StatusBar = "Importando Dados dos Técnicos"
Dim lf, i, lfdados, lfcons As Integer
Dim caminho, arquivo As String
Dim rel As String
Dim cons, dados
rel = ThisWorkbook.Name
Set cons = Sheets("consolidar")
Set dados = Sheets("Dados")
lf = cons.Cells(65000, 2).End(xlUp).Row
For i = 2 To lf
caminho = cons.Cells(i, 2).Value
arquivo = cons.Cells(i, 3).Value
Workbooks.Open caminho & "" & arquivo
Sheets("Dados").Select
lfdados = Sheets("Dados").Cells(65000, 3).End(xlUp).Row
If lfdados > 1 Then
Range("a2:k" & lfdados).Copy
Windows(rel).Activate
dados.Select
lfcons = dados.Cells(65000, 3).End(xlUp).Row + 1
Cells(lfcons, 1).Select
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Windows(arquivo).Activate
ActiveWorkbook.Close False
Windows(rel).Activate
cons.Select
Else
ActiveWorkbook.Close False
Windows(rel).Activate
End If
Next
Set cons = Nothing
Set dados = Nothing
Call exclui_dup
Application.ScreenUpdating = True
End Sub
Postado : 16/03/2015 12:44 pm