Salvar uma planilha atraves de macro com nome digitado em uma celula

Gravei uma macro onde, copio uns dados de uma lista, colo em determinado lugar e vou em outra planilha q por vês segue condições conforme altero os dados q modifiquei para salvar ela como txt… Porém, essa macro sempre salva o arquivo txt com o mesmo nome, gostaria de saber como posso colocar o nome q quero q o arquivo tenha numa célula e a macro busque esse nome para salvar

Bom dia,

Como o seu código não foi disponibilizado para a comunidade dar uma olhada, posso apenas mostrar um exemplo de como pegar o conteúdo da célula, armazenar numa variável, concatenando com a extensão “.txt”. Em seguida, vc precisará adaptar sua macro para utilizá-la.

Sub Main
Dim oPlan as Object, oCel as Object
Dim sNomeArquivo as String

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

sNomeArquivo = oCel.String & ".txt"

MsgBox sNomeArquivo

End Sub

Edição: Completar a resposta.

.

[…] Gostaria q ao invés de salvar como programa1, 2 e 3, salvasse com os nomes digitados nas celulas A4, A5 e A6 da planilha (EDITOR) desde ja obrigado.

@Juan.rba, primeiramente é preciso inserir o seguinte trecho no início da sua macro:

rem ----------------------------------------------------------------------
Dim Editor As Object
Dim sNome1 as String, sNome2 as String, sNome3 as String
Editor = ThisComponent.Sheets.getByName( "EDITOR" )
sNome1 = Editor.getCellRangeByName("A4").String
sNome2 = Editor.getCellRangeByName("A5").String
sNome3 = Editor.getCellRangeByName("A6").String

Em seguida, alterar cada linha que define o nome do arquivo a ser salvo:
args18(0).Value = "file:///C:/Documents%20and%20Settings/Rover/Desktop/" & sNome1
args37(0).Value = "file:///C:/Documents%20and%20Settings/Rover/Desktop/" & sNome2
args57(0).Value = "file:///C:/Documents%20and%20Settings/Rover/Desktop/" & sNome3

Para facilitar, anexei o arquivo a macro alterada: editor-libre.ods (alterado)


Atte,
Grafeno

ola grafeno

muito obrigado pela atenção e ajuda, vou tentar anexar a planilha para vc dar olhada.

editor-libre.ods

AGORA ACHO Q ESTA, GOSTARIA Q AO INVÉS DE SALVAR COMO PROGRAMA1, 2 E 3, SALVASSE COM OS NOMES DIGITADOS NAS CELULAS A4, A5 E A6 DA PLANILHA (EDITOR)
DESDE JA OBRIGADO.

@Juan.rba, boa tarde! Por favor, suba novamente seu arquivo pois ele não está com suas macros.

De uma olhada agora grafeno, editei o meu comentário e troquei o arquivo em anexo, obrigado.

Pronto. Editei minha resposta… no final agora ela inclui um arquivo com a macro alterada.

muito obrigado amigo, exatamente o q eu precisava…