Importando XML para o Libreoffice

Olá a todos, estou com dificuldade de configurar uma Macro do VBA no Libreoffice.
Quando executo a mensagem é

LerXml.ods (568.9 KB)

Erro de execução do BASIC.
‘1’

Type: com.sun.star.script.CannotConvertException
Message: [automation bridge]UnoConversionUtilities::anyToVariant
Cannot convert the value of type :“ooo.vba.msforms.XControl” to the expected Automation type of VARTYPE: 8

VBA e Basic são linguagens diferentes, apesar de possuírem semelhanças.
.
Vi no arquivo que todos os módulos estão com a opção de compatibilidade ativada. Mas, às vezes, isso não é suficiente.
.
O ideal é que se adeque o código ao suíte de escritório (Excel ou Calc) que utiliza.
.
Consegue indicar em qual linha do código esse erro aparece?

1 Like

Oi Felipe, obrigado por disponibilizar seu tempo para me auxiliar.

Ontem não consegui descansar até tarde tentando kk.

O erro mudou, agora está nas variáveis de importações, pelo menos aparece para selecionar a pasta

Erro de execução do BASIC.
‘423’
Show

LerXml.ods (571.0 KB)

linha 29 do formulário frm_LerNfe

No Basic você precisa declarar e instanciar os objetos.
Segue exemplo do código que chama o formulário, mas precisa adicionar os demais elementos ao diálogo.

Sub PastaXmlNFe()
Dim Dlg As Object
Dim frm_LerNfe As Object
DialogLibraries.loadLibrary( “VBAProject” )
Dlg = createUnoDialog(DialogLibraries.VBAProject.getByName(“frm_LerNfe”))
frm_LerNfe = Dlg.getModel(“frm_LerNfe”)

  Dlg.execute
  Dlg.dispose

End Sub

LerXml.ods (598.8 KB)
Vídeo da planilha em Excel: LEITURA DO XML SAT POR EXCEL VBA - Fabio Mitsueda

2 Likes

Estou tentando fazer essas adaptações nessa planilha do vídeo.
Como não sei nada do Basic então to sofrendo um pouco kkk

Já é um avanço, com esse código consegui fazer abrir o formulário.
Obrigado WBastos.