Gente, bom dia!
Trabalho com a Area de Planejamento Estratégico e Financeiro de um Call Center.
Fiz esta macro a um tempo já, e mantenho a manutenção dela constantemente, contudo não estou conseguindo compreender este erro apresentado em uma planilha em específico, a mesma macro em outras planilhas funciona normalmente.
A macro completa funciona da seguinte forma.
CMS Supervisor aberto
Extrai relatórios do CMS
Salva-os em .txt na pasta da planilha
Limpa as sheet's onde serão colados
Cola os valores
Apaga os .txt
Contudo nesta planilha apenas, ao executar, ela segue todos os processos até colar valores, na hora de abrir os .txt é apresentado o caminho, o vba encontra o caminho e o arquivo, contudo não consegue abri-los
Já re-escrevi o código todo do 0, copiei de outra planilha que está funcionando e não sei onde posso corrigir a situação.
O erro é apresentado na primeira secção de abertura do arquivo
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ActiveWorkbook.Path & "\Login_Logout.txt", _
Destination:=ActiveCell)
(aqui em específico)
Segue o código
Sub Alocando_Dados()
Sheets("Login-Logout").Select
Cells.ClearContents
Cells(1, 1).Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ActiveWorkbook.Path & "\Login_Logout.txt", _
Destination:=ActiveCell)
.Name = "Login_Logout"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
Deslocamento = Application.CountA(Range(Cells(1, 1), Cells(20000, 1)))
Cells(Deslocamento + 1, 1).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ActiveWorkbook.Path & "\Login_Logout2.txt", _
Destination:=ActiveCell)
.Name = "Login_Logout2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
Deslocamento = Application.CountA(Range(Cells(1, 1), Cells(20000, 1)))
Cells(Deslocamento + 1, 1).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ActiveWorkbook.Path & "\Login_Logout3.txt", _
Destination:=ActiveCell)
.Name = "Login_Logout3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
Deslocamento = Application.CountA(Range(Cells(1, 1), Cells(20000, 1)))
Cells(Deslocamento + 1, 1).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ActiveWorkbook.Path & "\Login_Logout4.txt", _
Destination:=ActiveCell)
.Name = "Login_Logout4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
Sheets("Staffed").Select
Cells.ClearContents
Cells(1, 1).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ActiveWorkbook.Path & "\Produtividade.txt", _
Destination:=ActiveCell)
.Name = "\Produtividade"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
Kill ActiveWorkbook.Path & "\Login_Logout.txt"
Kill ActiveWorkbook.Path & "\Login_Logout2.txt"
Kill ActiveWorkbook.Path & "\Login_Logout3.txt"
Kill ActiveWorkbook.Path & "\Login_Logout4.txt"
Kill ActiveWorkbook.Path & "\Produtividade.txt"
End With
Sheets("Agents").Select
End Sub
