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.
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.
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…