Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Versão 2019 - Macro não Roda

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
salvador
Manda bem
Manda bem
Mensagens: 130
Registrado em: Qua Fev 12, 2014 8:01 am

Versão 2019 - Macro não Roda

Mensagem por salvador »

Pessoal, todas as minhas macros que tem o métodos Application.GetOpenFilename não estão mais rodando na versão 2019 do Excel.

Será que alguém poderia me ajudar:

Abaixo trecho da macro que está dando problema. O Excel até abre o arquivo, mas não delimita as colunas, aí a macro não funciona.
Sub GERAR_APB_CPA()

On Error GoTo ErroMsg

'Seleção dos arquivos
Filenames = Application.GetOpenFilename(, , , , True)
Counter = 1
K = 1
'ubound determina quantos arquivos serão selecionados
While Counter <= UBound(Filenames)


'Abre os arquivos selecionados
Workbooks.Open Filenames(Counter)



'Acertando o relatório do sistema
Application.ScreenUpdating = False


Workbooks.OpenText Filename:=Filenames(Counter), Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(21, 2), Array(27, 1), Array(37, 1), Array(50, 1), Array(66, 1), _
Array(72, 1), Array(85, 1), Array(106, 1), Array(110, 1), Array(116, 1), Array(135, 1), _
Array(138, 1), Array(144, 1), Array(157, 1), Array(173, 1)), TrailingMinusNumbers:= _
True


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Versão 2019 - Macro não Roda

Mensagem por webmaster »

Eita... ainda estamos em 2018! :D

No Excel anterior ainda funciona?


Responder