Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Com uma macro criar um ficheiro excel

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Com uma macro criar um ficheiro excel    Qua Ago 27, 2014 2:43 pm

Bom dia.
Gostava de ter a vossa ajuda para o seguinte.

Criei uma macro para transformar um ficheiro excel quando se encontra preenchido cria um ficheiro pdf.

Mas eu queria que em vez de criar um ficheiro pdf cria-se um ficheiro excel independente.

O codigo que usei para criar o pdf foi este:

Sub Salvando()
Dim Nome As String
Dim SDate As String
Dim MyLocal As String
MyLocal = "\\192.168.0.99\manutencao\04_Pedidos de Intervenção\"
Nome = Range("A6").Value & Range("c6").Value & "_" & Range("C3").Value & "_" & Range("G35").Value
SDate = Now
If Nome <> vbNullString Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"
Else
MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
End If
End Sub

Cria que o nome do ficheiro é criado automaticamente, como agora consigo criando o pdf.

OBRIGADO.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Com uma macro criar um ficheiro excel    Qua Ago 27, 2014 4:18 pm

Bom dia!!

Leia:
http://msdn.microsoft.com/en-us/library/bb238907(office.12).aspx
http://www.contextures.com/excelvbapdf.html



Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Com uma macro criar um ficheiro excel    Qua Ago 27, 2014 4:41 pm

Não consegui fazer grande coisa.

Alterei no meu codigo onde tinha : =xlTypePDF para xlTypeXPS e não deu. Grava na mesma em pdf.

Eu copiei este codigo e adaptei para dar o nome que quero e ficar na pasta que eu pretendo, so nao consigo alterar para graver em excel em vez de pdf....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Com uma macro criar um ficheiro excel    Qua Ago 27, 2014 5:31 pm

Bom dia!!

Eu não estou entendendo, você que converter de PDF para Excel?

Use um softer online
https://www.google.com.br/search?q=Converter+PDF+para+excel&oq=Converter+PDF+para+excel&aqs=chrome.0.69i57j0l3.4994j0&sourceid=chrome&ie=UTF-8

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Com uma macro criar um ficheiro excel    Qua Ago 27, 2014 5:36 pm

Não.

Com o código que eu tenho aqui postado a partir de um ficheiro excel ele cria um pdf com um determinado nome que eu defini.

O que eu quero é tendo eu uma folha de excel, com um determinado conjunto de dados quero uma macro que me crie uma nova folha excel, com um determinado nome dependendo de dados em determinadas celulas, mantendo a folha de excel inicial de forma a que possa alterar.

Ou seja, tenho uma folha de excel mãe, que por exemplo se chama "Mãe", quero uma macro que posso criar folhas de excel "filhas", com os nomes, por exemplo, "filha1 "filha2" etc....

Consegui explicar-me???

Obrigado.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Com uma macro criar um ficheiro excel    Qua Ago 27, 2014 6:38 pm

Boa tarde!!

Seri isso?
Cria as guias filhas baseado nos nomes das guias filhas na guia Mae...
Código:
Sub AleVBA_881()
    Dim cell As Range
    Dim b As String
    Dim e As String
    Dim s As Integer
    Sheets("Mae").Select
    b = "A2"
    e = Range(b).End(xlDown).Address
   
    For Each cell In Range(b, e)
        s = Sheets.Count
        Sheets.Add After:=Sheets(s)
        Sheets(s + 1).Name = cell.Value
    Next cell
   
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Com uma macro criar um ficheiro excel    Qua Ago 27, 2014 6:47 pm

Não é isto.

Eu tenho uma folha excel que se chama "Pedidos de Intervenção", ou seja que serve para criar ordens de trabalho, e cada vez que crio a ordem de trabalho Nº. 1, por exemplo, queria uma macro para guardar essa folha tal como esta naquele momento, em que tenho o a descrição do trabalho a efectuar, entre outras coisas, a macro que eu quero criar é para nesse momento criar uma cópia com o nome baseado nos dados que introduzi.

Segue em baixo o que já fiz, mas transforma em pdf, e eu quero que transforme numa folha excel.

https*://*w*w*w*.sendspace*.*com*/file*/*uqtzru
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Com uma macro criar um ficheiro excel    Qua Ago 27, 2014 7:24 pm

Boa tarde!!

Seria isso..
Código:

Sub AleVBA_()

Application.ScreenUpdating = 0
    Range("A1:I47").Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll Down:=-54
    Sheets("M_01_Pedido de Intervenção").Select
Application.ScreenUpdating = 1

End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Com uma macro criar um ficheiro excel    Qua Ago 27, 2014 8:24 pm

Boa tarde!!
Caso seja necessário por o nome nas guias que são criadas, veja a baixo.

Código:
Sub AleVBA_881()

Application.ScreenUpdating = 0
    Range("A1:I47").Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Worksheets("M_01_Pedido de Intervenção").Range("C3").Value & Int(321 * Rnd) + 1 'Nome da guia baseado em uma célula
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll Down:=-54
    Sheets("M_01_Pedido de Intervenção").Select
Application.ScreenUpdating = 1

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Com uma macro criar um ficheiro excel    Hoje à(s) 8:23 pm

Voltar ao Topo Ir em baixo
 
Com uma macro criar um ficheiro excel
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Subtitulo no post com fundo colorido
» [Resolvido]Criar Macro no Access que importe dados do Excel
» Tutorial Criar efeitos na Render
» Como criar e definir Photoshop Brushes
» TUTORIAL para criar widgets

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Intermediário :: Excel Intermediário-
Ir para: