Ir ao conteúdo
  • Cadastre-se
danielcastrro

Macro - salvar em excel 5

Posts recomendados

Muito boa noite, 

 

Estou com um problema numa macro que fiz. 

 

Ao aplicar a macro, o objectivo é o excel guardar a folha do ficheiro em formato .xls. Mas quando o vou abrir esse novo .xls aparece este aviso.

 

Como corrijo isto? ( em anexo)

 

Aqui está a macro.

 

Muito Muito Obrigado

 

Sub Loop_Through_List()
 
    Dim cell                  As Excel.Range
    Dim rgDV                  As Excel.Range
    Dim DV_Cell               As Excel.Range
 
    Set DV_Cell = Range("Z2")
 
    Set rgDV = Application.Range(Mid$(DV_Cell.Validation.Formula1, 2))
    For Each cell In rgDV.Cells
        DV_Cell.Value = cell.Value
        Call PDFActiveSheet
    Next
End Sub
 
Sub PDFActiveSheet()
    Dim myFile                As Variant
    Dim strFile               As String
    Dim sfolder               As String
    On Error GoTo errHandler
 
    sfolder = GetFolder()
   
exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub
 
Function GetFolder()
    Dim sfolder As Object, NomePasta
   
    Set sfolder = CreateObject("Scripting.FileSystemObject")
    NomePasta = "C:\Users\DC\Desktop\Nova pasta (2)" & "\" & "Encomenda"
     
    If Not sfolder.FolderExists(NomePasta) Then
        sfolder.CreateFolder (NomePasta)
    End If
        Sheets("Encomenda").Copy
        With ActiveSheet.UsedRange
            .Value = .Value
        End With
            Set wbNew = ActiveWorkbook
            wbNew.SaveAs "C:\Users\DC\Desktop\Nova pasta (2)" & "\" & "Encomenda" & "\" & Range("Z2") & ".xlsx"
            wbNew.Close True
            Application.DisplayAlerts = True
   
End Function

Sem Título-1.jpg

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia @danielcastrro

 

tive um problema parecido, e no meu caso foi fácil, apenas tive que tirar o X

não sei se já tentou fazer isso, mas tente ai...

no lugar de

..." & "\" & Range("Z2") & ".xlsx"

coloque

..." & "\" & Range("Z2") & ".xls"

 

espero ter ajudado!:cool:

Compartilhar este post


Link para o post
Compartilhar em outros sites

@danielcastrro só complementando o que @deejaywesley sugeriu.

 

Insira para formato "*.xls", FileFormat:=56

 

	wbNew.SaveAs "C:\Users\DC\Desktop\Nova pasta (2)" & "\" & "Encomenda" & "\" & Range("Z2") & ".xls", FileFormat:=56
	

Compartilhar este post


Link para o post
Compartilhar em outros sites

Obrigado pela ajuda mas nao consegui.

 

Em formato .xls eu consigo fazer e nao dá nenhuma erro.

 

Mas o meu objetivo é fazer extrair em formato .xlsx sem o erro que coloquei em anexo. :(

Compartilhar este post


Link para o post
Compartilhar em outros sites

@deejaywesley @Basole  Basicamente é este arquivo. (exemplo - principal)

 

Imagina que queria guardar por laboratório (coluna C) os vários dados desse laboratorio, em que guardasse o ficheiro so com os dados de cada laboratório e com o próprio nome desse laboratório.

 

Basicamente era segmentar por laboratório, guardando em vários ficheiros .xlsx com o respectivo nome de laboratório. (conforme os 2 ficheiros em anexo) (guardar os varios xlsx numa pasta especifica)

 

Pode-me ajudar pf?

 

Muito muito obrigado!!

Atral - arquivo final.xlsx

Exemplo - Principal.xlsx

Merck - arquivo final.xlsx

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 07/09/2016 às 04:15, deejaywesley disse:

@danielcastrro

Boa noite!

 

a planilha, Exemplo - Principal, que você postou não tem macro nenhuma nela..

???????.

 

@deejaywesley certo, será que tem forma de me ajudar a fazer uma macro para resolver o meu problema?

Agradecia lhe do fundo do coração!

Compartilhar este post


Link para o post
Compartilhar em outros sites
Este tópico está parado há muito tempo. Certifique-se que a sua mensagem tem a ver com o tema sendo discutido. Obrigado.

Junte-se à conversa

Você pode postar agora e cadastrar-se depois. Se você tem uma conta, faça o login para postar.

Visitante
Responder

×   Você colou conteúdo com formatação.   Restore formatting

  Só é possível ter até 75 emoticons.

×   O link foi automaticamente convertido para mostrar o conteúdo.   Clique aqui para mostrá-lo como link comum

×   Seu texto anterior foi restaurado.   Limpar o editor

×   You cannot paste images directly. Upload or insert images from URL.






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!