Botão seleção de arquivos

[Beto]

Alguma maneira de “puxar” os dados para uma célula do botão “seleção de arquivos” do “Controles de Formulário”:

[Grafeno]

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,

[Beto]

Obrigado, colega, pelo seu desprendimento e colaboração!

[Grafeno]

Às ordens! E agradeço o retorno.