Macro - salvar em excel 5

[danielcastrro]

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

[deejaywesley]

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!

[Basole]

@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
	

[danielcastrro]

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.

[deejaywesley]

boa noite!

 

tem como postar um modelo da planilha ?

[danielcastrro]

@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

[danielcastrro]

@deejaywesley Ajude-me pf.

 

Obrigado

[deejaywesley]

@danielcastrro

Boa noite!

 

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

???????.

 

[danielcastrro]

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!