Ir para conteúdo

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

DILL23

Salvar automaticamente no excel usando VBA

Mensagem Recomendada

Caros amigos é a primeira vez que posto aqui, mais já utilizei muito os assuntos aqui postados para resolver meus problemas.

Bem mas é o seguinte. Eu criei tipo um banco de dados no excel onde de acordo com número de lote ele me retorna com valores em outra planilia.

O que eu gostaria de saber é se consigo salvar independemente uma planilia que esta dentro de uma pasta automaticamente, tipo ela coleta dados dentro da planilia como nome do cliente e produto e coloca como nome para salvo em uma pasta distinta.

Fiz um codigo mais ou menos aqui mais o problema é que ele so vai até o arquivo em pdf e eu queria que ele já colocasse o nome e salvasse em uma pasta  ficou asim.

Sub

Salvar()

  ActiveWorkbook.SaveAs

Filename:="C:Documents and SettingsAdministradorDesktopTESTE"

& Range("c5") & "-" &

Range("c4").Value & ".xls" _

  , FileFormat:=xlNormal,

Password:="", WriteResPassword:="", _

  ReadOnlyRecommended:=False,

CreateBackup:=False

End Sub

porém eu queria adicionar a data ao nome do arquivo também, e não gostaria que slavasse a pasta inteira e sim apenas uma gui quando acionado o botão com a macro.

 

 Vai aqui o link do arquivo que estou com problema.

http://www.sendspace.com/file/m6jj4r

se alguém poder me ajudar fico muito grato.

obrigado


"faça de minhas palavras a sua"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Baixe o Arquivo:


http://www.sendspace.com/file/1an98q


GUIAS= tabela com o nome das Planilhas existentes . Deve ser realimentada sempre que criar uma nova guia.


Tela= Possui caixa com o nome de todas as guias e um Botão "Salva_Guia"


 


Bom Proveito!!!


Dê o nome que desejar.


" A maior Riqueza do Homem e o seu Conhecimento e sua Sabedoria e isto ninguém tira ,mas podemos dividi-la" - " A cada dia que passa descobri que Só sei que nada Sei"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Amigo, tenho minha planilha com vendas, a receber, a pagar , livro caixa, etc a qual dei o nome de controle geral, ela esta em um pendrive, ja tive problema com o pendrive que pifou e perdi todos dados, gostaria de saber se tem algum jeito de eu salvar automaticamente e simultaneamente esta planilha no pendrive e no hd do micro, assim num eventual problema tanto com o pendrive ou hd teria uma copia atualizada na noutra unidade. Seria posivel fazer um botao salva (uma macro) sei la que toda vez que eu aciona-lo salvaria no pendrive e no hd????

Compartilhar este post


Link para o post
Compartilhar em outros sites

sei que esta meio atrasado mas ai vai a minha soluçao

Sub gravar()
Application.ScreenUpdating = False
   Application.CutCopyMode = False
On Error Resume Next
Dim pasta As String

Dim wu As Worksheet

Dim fso

Dim count As Byte

Set wu = Sheets("Planilha3")

Set fso = CreateObject("Scripting.FileSystemObject")

Set Drives = fso.Drives

For Each u In Drives
'Recorremos la colección

'Drive
wu.Range("A1").Offset(count, 0).Value = u.DriveLetter & ":\"

'Free Space
wu.Range("B1").Offset(count, 0).Value = FormatNumber(u.AvailableSpace / 1024 / 1024 / 1024, 2, , , -1)
If wu.Range("B1").Offset(count, 0).Value < 1 Then
wu.Range(wu.Range("A1").Offset(count, 0), wu.Range("A1").Offset(count, 1)).Delete Shift:=xlUp
count = count - 1
End If
count = count + 1
Next
count = 0
Do While wu.Range("A1").Offset(count, 0).Value <> ""

ThisWorkbook.SaveCopyAs (wu.[A1].Offset(count, 0).Value) & ThisWorkbook.Name
count = count + 1
Loop

Set Drives = Nothing
Set fso = Nothing
   Application.CutCopyMode = True
Application.ScreenUpdating = True
Call StartTimer
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Salva em dois locais.

Sub SalvaEmDoisLocais()
  ActiveWorkbook.SaveCopyAs "C:\MinhaPasta\NomeDoArquivo.xlsm"
  ActiveWorkbook.SaveCopyAs "K:\OutraPasta\NomeDoArquivo.xlsm"
  ActiveWorkbook.Save
End Sub

ou

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Cancel = True
 Application.EnableEvents = False
  ThisWorkbook.SaveAs Filename:="C:\MinhaPasta\NomeDoArquivo.xlsm"
  ThisWorkbook.SaveAs Filename:="K:\OutraPasta\NomeDoArquivo.xlsm"
 Application.EnableEvents = True
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×