Inspeção - Prioridade de Documento

Tópicos sem resposta, sem retorno do autor... ou seja, o lugar deles é o buraco negro!

Inspeção - Prioridade de Documento

Mensagempor carlosrgs » Qui Jun 22, 2017 12:57 pm

Boa tarde pessoal.

Abri o tópico aqui, pois o problema acredito não ser com "Macro" em si.

Estou montando uma planilha no trabalho, para realizar conciliações.
Tenho a Pasta de Trabalho A que é o arquivo para usar.

E a Pasta de Trabalho B, que é minha base de dados (Não uso Acess pois não temos no pacote Office)

Tenho varias Macros que executo no Arquivo A, que abre o Arquivo B e vai atualizando.

Fiz uma macro para atualizar um relatório X em real.
A macro abre o arquivo Base e atualiza.

Copiei a Macro para fazer o mesmo com Dólar unica diferença é que seleciona outra Aba (Sheets) na base, e executa normalmente.

O Problema surge após eu executar essa Macro do Dólar, após a atualização da base se eu tentar abrir a Pasta de trabalho novamente, aparece a mensagem de
"o excel não pode abrir o arquivo reparando ou removendo o conteúdo ilegível"

Dei uma pesquisada na internet e segui os passos desse link fazendo a inspeção https://taskcenter.mega.com.br/hc/pt-br/articles/214728998-Relat%C3%B3rios-O-Excel-encontrou-conte%C3%BAdo-ileg%C3%ADvel-em-XX-xls-

E aparece a parada da imagem para remover, alguém sabe me dizer o que é isso ?

Como eu uso Macros para abrir a Base e atualizar, quando aparece essa mensagem fica dando erro e não abre o arquivo.

Achei este tópico que a pessoa teve praticamente o mesmo problema.
http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=23495&p=118628
Mas a opção On error resume next não atende pois preciso abrir o arquivo.

Segue arquivo com o erro em anexo (Zip)

Unica coisa que tem nele é o código
Código: Selecionar todos
Public Function lfRetiraNumeros(ByVal vValor As String) As String
Application.Volatile
Dim vQtdeCaract As Long
Dim vControle As Boolean
vQtdeCaract = Len(vValor)
vControle = False
For i = 1 To vQtdeCaract
If IsNumeric(Mid(vValor, i, 1)) Then
If vControle = True And lfRetiraNumeros <> vbNullString Then
lfRetiraNumeros = lfRetiraNumeros + " "
End If
vControle = False
lfRetiraNumeros = lfRetiraNumeros & Mid(vValor, i, 1)
Else
vControle = True
End If
Next
lfRetiraNumeros = Replace(Trim(lfRetiraNumeros), " ", "/")
End Function


Valeu Abraço!
Você não está autorizado a ver ou baixar esse anexo.
_______________________________________________________________________________________________
Abraço!
Carlos Rafael

* Marque o tópico como Resolvido se foi solucionado seu problema.
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 440
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 81 times
Have thanks: 95 times

{ SO_SELECT }

Voltar para Buraco Negro

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante

cron