Comentários sobre: Criar um novo arquivo excel dinamicamente

Por: Reinaldo Coral

Reinaldo Coral — Thu, 20 Oct 2011 21:05:55 +0000

Bem… eu tinha entendido que seria 1 por dia…. mas… ainda pode melhorar dessa maneira e adicionar a hora que foi salva…. nunca seria a mesma data e hora!!!

NovoArquivoXLS.SaveAs mPathSave & “” & mPlan.Name & “-” & Format(Now, “dd-mm-yyyy-hh-mm-ss”) & “.xls”

Para gerar incremento do tipo 001, 002 com vc quer, até dá, mas teria que percorrer os arquivos da pasta, analizar os nomes dos arquivos,… demoraria um pouco mais pra desenvolver… Mas essa idéia que te passei dá pra contornar..

Abç

Por: Jânyo

Jânyo — Thu, 20 Oct 2011 16:00:56 +0000

Infelizmente não passou, deu um bug.
Eu precisaria realmente que gerasse sempre um novo arquivo sem substituir o arquivo gerado anteriormente.

Por: Reinaldo Coral

Reinaldo Coral — Thu, 20 Oct 2011 15:36:42 +0000

Sugestão:

Você pode adicionar a data do arquivo ao nome dele na hora de salvar. Fica até mais fácil de identificar quando foi salvo.
Adicione a instrução, em negrito, na linha de código abaixo

‘Salva o arquivo
NovoArquivoXLS.SaveAs mPathSave & “” & mPlan.Name & “-” & Format(Now, “dd-mm-yyyy”) & “.xls”

Abraço

Por: Jânyo

Jânyo — Thu, 20 Oct 2011 14:29:25 +0000

Blz cara, Valeu!
Agora eu queria te pedir mais um favor…
esse comando eu tô criando para “botão de comando” chamado “Salvar”. E eu vou precisar salvar diariamente, então preciso que ele gere a cada dia um novo nome para o arquivo, Ex: na primeiro dia q eu salvar ficará com o nome 001, no segundo dia ficará 002 e assim por diante… assim nunca será exibida aquela tela que diz q já existe um arquivo com esse nome. Existe um código para isso?

Por: Reinaldo Coral

Reinaldo Coral — Thu, 20 Oct 2011 13:08:00 +0000

Bom dia Jânyo,

Na rotina Sub CriaArquivo(mPlan As Worksheet, mPathSave As String), o parâmetro mPathSave recebe o caminho onde será salvo o arquivo, ok.
No exemplo, eu passo Thisworkbook.Path que corresponde a mesma pasta do arquivo de origem. Substitua pelo caminho que você quer salvar, como por exemplo:

Call CriaArquivo(Sheets(“Setor Alfa”),”C:\NomeDaPastaOndeQueroSalvar\”)

Abraço

Por: Jânyo

Jânyo — Thu, 20 Oct 2011 12:48:59 +0000

para: Exceldoseujeito

Amigo, como disse acima o código deu certo, mas, vc poderia me dizer como eu faço para determinar, no código, onde o novo arquivo será salvo? quero poder determinar uma pasta específica para salvá-lo!
Valeu!

Por: Jânyo

Jânyo — Thu, 20 Oct 2011 12:43:37 +0000

Gabriel, observei que no código que vc mencionou que deu erro possui uma “barra(\)” que não existe no código original. verifica foi isso o causador do erro, pq no meu deu certo.
Valeu!

seu código: *****NovoArquivoXLS.SaveAs mPathSave & “\” & mPlan.Name & “.xls”

código original: NovoArquivoXLS.SaveAs mPathSave & “” & mPlan.Name & “.xls”

Por: Macro para Salvar uma Planilha XLS em TXT : Excel do Seu Jeito

Macro para Salvar uma Planilha XLS em TXT : Excel do Seu Jeito — Wed, 22 Dec 2010 13:11:50 +0000

[...] Seria interessante que você fizesse a leitura do artigo Criar um novo arquivo excel dinamicamente. [...]

Por: Reinaldo Coral

Reinaldo Coral — Sat, 28 Nov 2009 14:28:05 +0000

Ok. Bom.

Abraço

Por: osman

osman — Fri, 13 Nov 2009 19:14:20 +0000

O Código virou uma especie de backup´- tipo: 1 – salva do arquivo origial na mesma pasta – 2 mostra se já existe e da opção de substituir – 3 fecha o arquivo novo e da foco no original //// ficou assim
Sub CriaArquivo(mPlan As Worksheet, mPathSave As String)
Dim NovoArquivoXLS As Workbook
Dim sht As Worksheet

‘Cria um novo arquivo excel
Set NovoArquivoXLS = Application.Workbooks.Add

‘Copia a planilha para o novo arquivo criado
mPlan.Copy Before:=NovoArquivoXLS.Sheets(1)

‘Salva o arquivo
NovoArquivoXLS.SaveAs mPathSave & “\” & mPlan.Name & “.xls”

MsgBox “Novo arquivo salvo em: ” & mPathSave & “\” & mPlan.Name & “.xls”, vbInformation

Workbooks(“Saldo do Setor Beta.XLS”).Close ‘ linha nova

End Sub