Botão seleção de arquivos

editar

Bom dia,

Uma maneira é associar o código abaixo ao evento Texto-modificado do seu controle Seleção de arquivo:

Sub Texto_Modificado( oEvento As Object )
Dim oSelArquivo As Object
Dim oPlan As Object
Dim oCel As Object
Dim sArquivo As String

   oSelArquivo = oEvento.Source
   sArquivo = oSelArquivo.Text

   oPlan = ThisComponent.Sheets.getByName("Planilha1")
   oCel = oPlan.getCellRangeByName( "A1" )

   oCel.String = sArquivo  
End Sub

Atte,