Convertir libro de excel a pdf desde la hoja3 al final del archivo

[Hola

Es "hoja3" ¿siempre es la tercera comenzando a contar desde la izquierda?

Abraham Valencia

Por el momento si

[Hola nuevamente

Pruebas así:

Sub ExportarPDF()
Dim x As Integer
Dim nombre As String
Dim MiArray() As String
ReDim MiArray(3 To Worksheets.Count)
For x = 3 To Worksheets.Count
    MiArray(x) = Worksheets(x).Name
Next x
Sheets(MiArray()).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\MiCarpeta\MiLibro.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Comentas

Abraham Valencia

Sigue mandando a pdf todo el archico, uso el office 2016

Un pequeño error, ahora sí:

Sub ExportarPDF()
Dim x As Integer
Dim MiArray() As String
ReDim MiArray(3 To Worksheets.Count)
For x = 3 To Worksheets.Count
    MiArray(x) = Worksheets(x).Name
Next x
Sheets(MiArray()).Select
Sheets(3).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\MiLibro.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Saludos]

Abraham Valencia

Ahora si, pero quiero agregar que tome el mombre del archivo y que la ruta sea .path.

Perdon por tanta molestia

Pues lee por aquí y modifica lo necesario:

https://abrahamexcel.blogspot.com/2018/03/exportando-archivos-excel-pdf.html

Abraham Valencia

Buenas tardes

Disculpa que te moleste otra vez, pero cuando corro la macro como que se trabara o sigue funcionando y no me deja insertar un botón, que puede estar pasando.