Abrir e converter txt em Excel

#1

Boa tarde a todos.

Estou tendo dificuldades com um script onde o mesmo deverá abrir um arquivo txt no excel, executar algumas alterações e depois salvar em xlsx.

A dificuldade é que preciso que o script seja executado no servidor, para buscar as pastas locais, onde os arquivos se encontram. Porém ele não funciona.

O interessante é que esse mesmo script funciona perfeitamente num evento click de um botão no viewer.

Poderiam me ajudar?

Segue trecho do script que percebi não estar sendo executado.

   Set Excel = CreateObject("Excel.Application")
Excel.DisplayAlerts = False
Excel.Visible = False
xlDelimited = 1
xlWorkbookDefault = 51 'xlsx
Excel.Workbooks.Open TxtPath
Excel.Sheets(1).Columns("A").TextToColumns Excel.Range("A1"), xlDelimited, -4142, False, False,True,False,False
Excel.ActiveWorkbook.SaveAs NewFilePath, xlWorkbookDefault
Excel.Quit
#2

Boa tarde Adriano,

Este problema pode estar associado ao comportamento em sistemas operacionais mais atuais, em relação a softwares que rodam na conta SYSTEM tentarem executar tarefas que interagem com a tela. Porém, verifiquei que em alguns casos foi possível executar o script na conta System após criar uma pasta chamada DESKTOP, nos seguintes diretórios:
C:\Windows\system32\config\systemprofile
C:\Windows\SysWow64\config\systemprofile

image
image.png911×332 28.5 KB

Faça um teste, e se o problema persistir envie o log do E3 para o meu e-mail (delio@elipse.com.br).

#3

Tentei a sua sugestão, porém não obtive sucesso.

Aparentemente funcionou depois que atualizei a versão do Excel.
Estava usando o 2007 e agora instalei a 2013.

Acredito que era somente conflito na versão do Office.

Agradeço pela atenção.