Note: The other languages of the website are Google-translated. Back to English

Como salvar o arquivo do Excel com o valor da célula?

Quando você usa uma pasta de trabalho, já pensou em salvar o arquivo do Excel com base no conteúdo de uma célula? Por exemplo, você tem “Preço de venda” na célula A1 e gostaria de salvar a pasta de trabalho com o nome Preço de venda. Claro, você pode digitar o nome na caixa de diálogo Salvar como e salvá-lo. Mas esse será um método ineficiente em sua quantidade de trabalho. Hoje, vou falar sobre um truque rápido para resolver isso.

Salve o arquivo Excel com um valor de célula específico usando o código VBA

Guia Office Habilite a edição e navegação com guias no Office e torne seu trabalho muito mais fácil ...
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e tudo mais usados ​​ou complexos aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais de 20 recursos de texto: Extrair número da string de texto; Extraia ou remova parte dos textos; Converta números e moedas para palavras em inglês.
  • Ferramentas de mesclagem: Várias pastas de trabalho e planilhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma.
  • Ferramentas de divisão: Divida os dados em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos do Excel, PDF ou CSV; Uma coluna para várias colunas.
  • Colar Ignorando Linhas ocultas / filtradas; Contagem e soma por cor de fundo; Envie emails personalizados para vários destinatários em massa.
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer planilha; tipo por semana, dia, frequência e muito mais; filtros por negrito, fórmulas, comentário ...
  • Mais de 300 recursos poderosos; Funciona com Office 2007-2021 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.

seta azul bolha direita Salve o arquivo Excel com um valor de célula específico usando o código VBA

O seguinte código VBA pode ajudá-lo a salvar sua pasta de trabalho com um valor de célula especificado, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: Salve o arquivo Excel com o valor específico da célula

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. E, em seguida, pressione F5 para executar o código e sua pasta de trabalho foi nomeada como o conteúdo da célula A1. Veja a imagem:

doc-save-com-cell-value-1

notas:

1. Você pode especificar qualquer valor de célula como o nome do arquivo, apenas modificando o A1 para outra referência de célula no código acima.

2. Sua pasta de trabalho ativa será salva na pasta de C: \ Usuários \ dt \ Desktop \ minhas informações \ (a última barra deve permanecer quando você cola sua localização em vez dela) localização, você pode alterar o caminho conforme sua necessidade.


Artigos relacionados:

Como salvar arquivo com data e hora no Excel?

Como mostrar o caminho do arquivo na barra de título ou na barra de ferramentas do Excel?


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (33)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
o módulo não salva em .XlsX; acho que tem algo a ver com a linha 7;; ".xls", FileFormat:=xlNormal; Além disso, como posso modificar para obter o valor de 3 células diferentes concatenadas? por exemplo: nome, sobrenome, data; na linha 6 do código?
Este comentário foi feito pelo moderador no site
Dim nome do arquivo como string
Dim filename1 As String
Dim filename2 As String

Caminho = "C:\Usuários\dt\Desktop\minhas informações\"
nome do arquivo = Range("A1")
nomedoarquivo1 = Range("A2")
nomedoarquivo2 = Range("A3")
ActiveWorkbook.SaveAs filename:=Caminho & nome de arquivo & "-" & nome de arquivo1 & "-" & nome de arquivo2 ".xls", FileFormat:=xlNormal
Este comentário foi feito pelo moderador no site
Chris. Você pode concatená-lo em uma célula separada e, em seguida, fazer referência a essa célula como o valor do nome do arquivo.
Este comentário foi feito pelo moderador no site
Oi, o meu só vai salvar como o caminho e o nome do arquivo. Estou querendo apenas que o nome do arquivo referenciado da célula seja salvo apenas. Você pode por favor me ajudar?
Este comentário foi feito pelo moderador no site
Isso é muito legal... mas parece haver um bug que não sei como corrigir. Estou usando isso em um modelo habilitado para macro. Eu abro o modelo, faço alterações/atualizações, pressiono F5 para executar a macro... e... uma caixa de diálogo "Ir para" aparece esperando que eu digite uma "referência". No entanto, se eu pressionar ALT F11 e pressione F5, o novo arquivo .xls é salvo conforme o esperado. Sempre preciso abrir o módulo do Visual Basic para executar este procedimento de "salvar"?
Este comentário foi feito pelo moderador no site
Eu tenho um modelo que não quero que seja sobrescrito para que o usuário seja obrigado a salvar o arquivo nomeado pela data inserida em um dos campos. Eu não quero que o usuário tenha que abrir ferramentas e depois selecionar/executar macro. Eles também podem inserir o nome do arquivo.
Este comentário foi feito pelo moderador no site
você pode adicionar o =AGORA() como um parâmetro ao seu nome de arquivo na célula antes de extraí-lo na Macro (e também colocar um botão padrão no canto da página para que o funcionário não tenha que abrir nenhuma ferramenta
Este comentário foi feito pelo moderador no site
Vocês são salva-vidas. Obrigado!
Este comentário foi feito pelo moderador no site
Eu preciso salvar como um arquivo .csv. como eu mudaria isso para salvá-lo como um arquivo .csv? Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Path & filename & ".xls ", FileFormat:=xlNormal End Sub Agradecemos antecipadamente por sua ajuda!
Este comentário foi feito pelo moderador no site
Acho que fiz algo errado aqui...

Dá-me um erro na linha Sheets("shitname").Selecione

Provavelmente eu fiz algo errado quando chamei o "shitname" como a célula K10

eu quero mudar a planilha para outra planilha que é chamada exatamente como a célula K10


' gicsel Macro
'
' Atalho de teclado: Ctrl+Shift+C
'
Selection.Copy
Sheets("debagat").Selecione
Linhas("8:8").Selecione
ActiveSheet.Paste
Dim Path como String
Caminho = "C:\cgxml\"
Dim nome do arquivo como string
nome do arquivo = Range("A8")
Dim nome de merda como string
nomemerda = Range("K10")
Sheets("shitname").Selecione
Application.CutCopyMode = False
ActiveWorkbook.SaveAs filename:=Caminho e nome do arquivo & ".xml", FileFormat:=xltxt, CreateBackup:=False
Planilhas("TOTAL").Selecione
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Este comentário foi feito pelo moderador no site
Isso funciona muito bem... Obrigado, mas preciso salvar como PDF... Alguma opinião?

obrigado

Chris
Este comentário foi feito pelo moderador no site
igual acima, mas substitua ActiveWorkbook.SaveAs por: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=Verdadeiro
Este comentário foi feito pelo moderador no site
Obrigado pelo seu feedback, me ajudou muito.
Este comentário foi feito pelo moderador no site
Oi,
O que devo adicionar se quiser salvar a planilha ativa, mas usando o valor da célula da planilha 1?
Este comentário foi feito pelo moderador no site
Por favor me ajude... Eu consegui fazer tudo. Mas salva os documentos em Meus Documentos em vez do servidor especificado ...



Sub CommandButton1_Click () particular
Dim Path como String
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String
Dim FileName5 As String
Path = "J:\Protection Services\Documents\Booysendal security"
FileName1 = Range("A2")
FileName2 = Range("B2")
FileName3 = Range("C2")
FileName4 = Range("D2")
FileName5 = Range("E2")
ActiveWorkbook.SaveAs Filename:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
End Sub
Este comentário foi feito pelo moderador no site
Adicione uma barra invertida após a segurança e antes da citação... ...segurança\"
Este comentário foi feito pelo moderador no site
E se você quiser apenas definir o nome do arquivo, mas tiver a opção de escolher o caminho do arquivo toda vez que salvar?

Você também pode especificar várias células para o nome do arquivo. As células também são mescladas.

Salve em diferentes caminhos de arquivo a cada vez

Use várias células para o nome do arquivo
Este comentário foi feito pelo moderador no site
Ok, então eu tenho isso funcionando bem usando um botão na folha. Agora eu gostaria que ele apenas salvasse normalmente após o salvamento inicial como. Isso pode ser feito? Usando o mesmo botão salvar?
Obrigado Bruce
Este comentário foi feito pelo moderador no site
como criar uma macro para salvar várias planilhas com seus valores de células como nomes de arquivos
Obrigado,
Rajiv
Este comentário foi feito pelo moderador no site
Olá a todos!

Como salvar entradas repetitivas nas mesmas células, em outras células, com uma Macro?

Na planilha1, insiro dados em A1, B1, C1, por n vezes em um dia. Na planilha2, preciso salvar todos esses registros, em A2, B2, C2, A3, B3, C3, etc. Tnx!
Este comentário foi feito pelo moderador no site
Oi amigos,
Estou com um problema e ficaria feliz se alguém pudesse me ajudar
Eu tenho um arquivo na unidade "F" e na pasta "ABS" - meu nome de arquivo é "Listdata"
Em um arquivo do Excel na minha área de trabalho, quero que as células (4,4) recuperem dados da planilha "ABS" (1) e da célula (2,2)
O código abaixo
Sub Macro1 ()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
mas não funciona corretamente
Obrigado amigos
Este comentário foi feito pelo moderador no site
Oi, estou tentando usar este código, mas quando tento executar, recebo um erro de tempo de execução 1004 e destaca a linha 7 como inválida: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
Como posso resolver isto? Estou usando o Office 365
Este comentário foi feito pelo moderador no site
A célula de referência está em uma outra planilha já aberta? Como faço?
Este comentário foi feito pelo moderador no site
Oi. Estou muito animado que poderia funcionar, mas para mim está dizendo "erro de tempo de execução BASIC. Sob-procedure ou procedimento de função não definido". e seta indicando a linha 6. O que devo fazer?
Este comentário foi feito pelo moderador no site
Tenho um botão de controle para salvar como PDF com um nome específico para um local específico já funcionando, mas quero modificar o código pois o nome do arquivo é o nome da planilha ativa mais o valor de uma célula específica de outra planilha. Como faço isso? Isto é o que eu tenho para salvar como PDF:


Sub CommandButton1_Click () particular
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Tipo:=xlTypePDF, _
nome do arquivo:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub

Obrigado!
Este comentário foi feito pelo moderador no site
alguém pode ajudar com uma solução, consegui obter a saída corretamente se a célula não estiver em branco

Sub-Saveas Privadas()

Dim path As String

Dim filename1 As String



path = "C:\Usuário\Compwork\"



filename1 = path & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook.Saveas filename1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report").ExportAsFixedFormat Tipo:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = Verdadeiro

ActiveWorkbook.Close



End Sub



No entanto, meu problema é que eu gostaria de salvar um nome de arquivo sem deixar um espaço se o valor da célula for NULL, por exemplo, se o valor G6 estiver em branco, eu gosto da saída "G4-H7 VTError".
Existe alguma maneira de abordar isso?


Obrigado.
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL