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
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
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?
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
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.
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
Boa noite!!
Eu sinto muto mas, eu não tive problemas.
https://www.sendspace.com/file/y385d1Na 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?????
Boa noite!!
Eu sinto muto mas, eu não tive problemas.
https://www.sendspace.com/file/y385d1Na imagem do link acima, foi criado um arquivo em diretória apartir da guia "rrr"
AttPois 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