Salvar hoja especifica con macro.

15/07/2005 - 18:02 por Dr_Rodriguez | Informe spam
Buenas tardes grupo, quisiera un poco de orientacion.

Como podria salvar el archivo al que se refiere esta macro eligiendo solo
una hoja especifica -limpia de vinculos y macros- llamada: "output" en lugar
de todo el libro?

Sub test()
With ActiveWorkbook
Ruta = "X:\Ragno_MP\pick tickets"
nConf = .Worksheets("raw data").Range("b40"): ChDir Ruta
.SaveCopyAs Ruta & "\" & "Pick # " & nConf & ".xls"
End With
End Sub

Si alguien puede orientarme estare inmensamente agradecido.

Preguntas similare

Leer las respuestas

#1 KL
15/07/2005 - 20:15 | Informe spam
Hola Dr_Rodriguez,

Prueba algo asi (sustituyendo 'MiHojaACopiar' por el nombre de hoja real):

Sub test()
Ruta = "c:\Temp"
ChDir Ruta
With ActiveWorkbook
nConf = .Worksheets("raw data").Range("b40")
.Sheets("MiHojaACopiar").Copy
End With
With ActiveWorkbook
.SaveAs Ruta & "\" & "Pick # " & nConf & ".xls"
End With
End Sub


Saludos,
KL


"Dr_Rodriguez" wrote in message
news:
Buenas tardes grupo, quisiera un poco de orientacion.

Como podria salvar el archivo al que se refiere esta macro eligiendo solo
una hoja especifica -limpia de vinculos y macros- llamada: "output" en
lugar
de todo el libro?

Sub test()
With ActiveWorkbook
Ruta = "X:\Ragno_MP\pick tickets"
nConf = .Worksheets("raw data").Range("b40"): ChDir Ruta
.SaveCopyAs Ruta & "\" & "Pick # " & nConf & ".xls"
End With
End Sub

Si alguien puede orientarme estare inmensamente agradecido.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida