Bom dia,
Agradeço a grande ajuda do post do
charles.jenkins
, sem ele não teria conseguido usar o
LibreOffice
com o SAP B1.
Este documento explica passo a passo para inserir o código em Visual Basic explicado no post
AutoOpen.xls and LibreOffice or OpenOffice
criado pelo autor acima.
É necessário fazer as alterações utilizando
Excel
(utilizei o Excel 2013 para explicar a alteração do arquivo).
1) Ativando aba Desenvolvedor.
- Abra o Excel.
- Clique em
Arquivo
.
- Clique em
Opções
.
- Clique em
Personalizar Faixa de Opções
.
-
Em
Personalizar Faixa de Opções
e em
Guias Principais
, marque a caixa de seleção
Developer
.
http://office.microsoft.com/pt-br/excel-help/mostrar-a-guia-desenvolvedor-HA101819080.aspx
Será ativada uma aba chamada Desenvolvedor.
2) Alterando o AutoOpen.XLS
- Abra o arquivo AutoOpen.XLS no Excel
- Pressione a aba
Desenvolvedor, Exibir Código
- Clique duas vezes no
Module2,
será apresentado o código em Visual Basic que faz a abertura do arquivo texto exportado pelo SAP.
Rotina Original.
- Substitua o código fonte inteiro pelo código abaixo, podemos ver que foi criada uma nova sub-rotina para abertura do
LibreOffice
Public Sub OpenExlFile(ExcelPath As String)
Attempt1:
On Error GoTo Fail1
' Assume we're running Microsoft Excel
' Inicio: Rotina original
Workbooks.OpenText FileName:=ExcelPath, _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=