Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Criando Planilha vi...
 
Notifications
Clear all

Criando Planilha via VBA

 
2024 - VBA & Macros
Post Recente por wenpra 10 anos atrás
8 Posts
2 Usuários
0 Reactions
1,874 Visualizações
RSS
 wenpra
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

estou usando este código para criar uma nova planilha via VBA: mas na hora de salvar esta dando erro, "Os recursos a seguir não podem ser salvos em pasta de trabalho sem macro: " como posso estar consertando isso?
OBS: Uso o Office 2007

código que estou usando:

Private Sub cmd_Salvar1_Click()
Call CriaArquivo(Sheets("BD1_1"), ThisWorkbook.Path)
End Sub
______________________________________________________________
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 & ".xlsx"

End Sub

 
Postado : 03/07/2014 11:32 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente assim...

Sub testeeee()
    ActiveSheet.Copy
    With ActiveWorkbook
        .SaveAs "C:" & .Sheets(1).Name
        .Close 0
    End With
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/07/2014 11:45 am
 wenpra
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

Boa tarde!!

Tente assim...

Sub testeeee()
    ActiveSheet.Copy
    With ActiveWorkbook
        .SaveAs "C:" & .Sheets(1).Name
        .Close 0
    End With
End Sub

não entendi onde coloco esse código?

 
Postado : 03/07/2014 12:03 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Em módulo, chame o através de um botão com o comando call

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/07/2014 12:07 pm
 wenpra
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

Boa tarde!!

Em módulo, chame o através de um botão com o comando call

Att

Não funcionou continua dando o erro.

 
Postado : 03/07/2014 2:17 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu sinto muto mas, eu não tive problemas.
https://www.sendspace.com/file/y385d1

Na imagem do link acima, foi criado um arquivo em diretória apartir da guia "rrr"
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/07/2014 6:28 pm
 wenpra
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

Boa noite!!

Eu sinto muto mas, eu não tive problemas.
https://www.sendspace.com/file/y385d1

Na imagem do link acima, foi criado um arquivo em diretória apartir da guia "rrr"
Att

Pois comigo continua aparecendo que não pode ser salvo sem macro?????

 
Postado : 07/07/2014 9:04 am
 wenpra
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

Boa noite!!

Eu sinto muto mas, eu não tive problemas.
https://www.sendspace.com/file/y385d1

Na imagem do link acima, foi criado um arquivo em diretória apartir da guia "rrr"
Att

Pois comigo continua aparecendo que não pode ser salvo sem macro?????

DEU CERTO USANDO isso
NovoArquivoXLS.SaveAs "C:SISTEMA PEDIDO V1.0DropboxBD1_1.xlsm", FileFormat:=52

 
Postado : 07/07/2014 11:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico