Pergunte aqui
0

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

perguntadas 2016-07-14 22:09:10 +0200

imagem do gravatar de Juan.rba

updated 2016-11-03 14:58:25 +0200

imagem do gravatar de Grafeno

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

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

1

respondidas 2016-07-15 17:16:05 +0200

imagem do gravatar de Grafeno

updated 2016-07-19 19:14:13 +0200

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

editar assinalar como ofensivo Excluir Link mais

Comentários

ola grafeno

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

imagem do gravatar de Juan.rbaJuan.rba ( 2016-07-18 16:06:44 +0200 )editar
0

respondidas 2016-07-18 16:41:29 +0200

imagem do gravatar de Juan.rba

updated 2016-07-19 17:53:45 +0200

C:\fakepath\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.

editar assinalar como ofensivo Excluir Link mais

Comentários

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

imagem do gravatar de GrafenoGrafeno ( 2016-07-18 19:57:28 +0200 )editar

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

imagem do gravatar de Juan.rbaJuan.rba ( 2016-07-19 17:54:52 +0200 )editar

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

imagem do gravatar de GrafenoGrafeno ( 2016-07-19 19:16:08 +0200 )editar

muito obrigado amigo, exatamente o q eu precisava...

imagem do gravatar de Juan.rbaJuan.rba ( 2016-07-19 20:32:36 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2016-07-14 22:09:10 +0200

Lidas: 3,042 vezes

Última atualização: Jul 19 '16