salvar em pdf

[bmfb]

Ola,

 

precisava de ajuda para resolver o codigo seguinte. É possível que haja muita coisa a alterar, pois estou a tentar aprender vba.

 

Basicamente o que eu preciso é abrir uma lista de ficheiros que estão numa coluna, salvar em pdf e fechar o documento a seguir.

 

Agradeço a ajuda.

Sub teste ()Dim lastRow As LongDim x As Integer        lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row                For x = 1 To lastRow                Workbooks.Open Filename:=Cells(x, 1), _                            UpdateLinks:=3                            ActiveWorkbook.ExportAsFixedFormat _                Type:=xlTypePDF, _                Filename:=Cells(x, 6) & ".pdf", _                Quality:=xlQualityStandard, _                IncludeDocProperties:=True, _                IgnorePrintAreas:=False, _                openAfterPublish:=False                            'ActiveWorkbook.Close        Next xWorkbooks("teste.xlsm").ActivateEnd Sub

[Wendell Menezes]

Olá,

E qual é a sua dúvida nesse caso? O seu código parece OK.

Se não estiver funcionando poste a sua planilha aqui.

Abs

[bmfb]

Olá Wendell Menezes,

muito obrigado pela sua ajuda.

aqui vai o link para a folder.

http://we.tl/OIqqbexEWm

 

Cumprimentos

Bruno

[Wendell Menezes]

Veja se assim funciona:

Sub opah_ja_me_enerva()Dim lastRow As LongDim x As Integer     lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row    For x = 1 To lastRow        Workbooks.Open Cells(x, 1)        ActiveWorkbook.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Sheets("Sheet1").Cells(x, 6) & ".pdf", xlQualityStandard, True, False, , , False        ActiveWorkbook.Close    NextEnd Sub

[bmfb]

Obrigado Wendell Meneses,

já funciona. Só dá um erro runtime error 1024. Vou tentar resolver.

Mais uma vez obrigado pela sua ajuda.

cumprimentos