Comentários sobre: 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

Por: exceldoseujeito

exceldoseujeito — Sun, 23 Aug 2009 17:32:21 +0000

Qual erro?

Por: Ismael

Ismael — Sun, 23 Aug 2009 08:43:23 +0000

Caro,

Não consegui adaptar ó código para vba, tenho um userform “editar” e add um commandbutton, e clico mas não gera o arquivo, está dando erro.

Tem como me ajudar?

Por: exceldoseujeito

exceldoseujeito — Fri, 21 Aug 2009 23:17:02 +0000

Você pode definir uma rotina no Evento Workbook_BeforeSave e combinando com as dicas deste artigo.

Se quiser, mande uma planilha pelo link Orçamento. Podemos montar essa macro para você. Informe no pedido de orçamento que já fez um comentário sobre o assunto aqui no site.

Um abraço

Por: NPONTES

NPONTES — Wed, 12 Aug 2009 18:58:54 +0000

Muito bom esse artigo. Porém tenho aqui mais um desafio e gostaria de saber sobre a possibilidade de execução:
Preciso de uma ajuda, quero automatizar a gravação de um arquivo de Excel, com nome+seqüência numérica, por exemplo, arquivo001.xls, arquivo002.xls, etc

O arquivo é uma Ordem de Serviço, e pretendo também colocar na planilha um campo com o número da OSE que será gerado automaticamente a cada abertura pelo usuário.
Tem idéia de como consigo fazer isso?
Por exemplo, abri o arquivo 001.xls, faço as alterações necessárias e automaticamente ao clicar sobre salvar, o Excel deve entender que é uma seqüência, ou seja, além de modificar automaticamente um campo na planilha (por exemplo o número da Ordem de Serviço, que era 001, para 002), deve também gravar o arquivo como arquivo 002.xls sem que o usuário tenha que utilizar Salvar Como ou alterar na mão o nome do arquivo….
Se tiver dica me ajude (preciso de “receita de bolo”, passo a passo de como fazer

Por: Gabriel

Gabriel — Thu, 02 Jul 2009 16:07:23 +0000

pode ter sido erro meu… devo ter aberto mas não salvei em uma pasta do pc e tentei salvar fora… o erro é q naum encontrava pasta para salvar

Por: exceldoseujeito

exceldoseujeito — Thu, 02 Jul 2009 14:10:29 +0000

Estranho… baixei o arquivo do servidor, testei e deu tudo certo.
Qual a mensagem de erro?

Por: Gabriel

Gabriel — Thu, 02 Jul 2009 13:55:27 +0000

meu caro amigo, o erro ocorre no seu arquivo ;)

Por: exceldoseujeito

exceldoseujeito — Wed, 01 Jul 2009 18:03:13 +0000

Quando for copiar o código no site para colar no seu projeto VBA, clique no link “View Code” no topo dos blocos de códigos.
Dessa maneira, você poderá copiar o texto puro, sem aas formatações HTML.

O erro ocorre por esse motivo, ao colar o código no módulo VBA, foram coladas as tags HTML.

Uma alternativa, e até uma facilidade a mais que eu proporciono no meu site é o download do arquivo fonte, logo ao final do artigo.

Um abraço