Ir ao conteúdo
  • Cadastre-se
danielcastrro

Macro - salvar em excel 5

Recommended Posts

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

Editado por danielcastrro

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

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

Editado por danielcastrro

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





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

×