COMO GUARDAR UN RANGO

10/02/2004 - 10:46 por jjjgarcia1 | Informe spam
Hola a todo el mundo.

Quisiera saber si es posible guardar en Excel, un rango o parte de una
hoja en formato de texto. No quiero guardar todo el libro solo un
rango.

Muchas gracias por anticipado

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
10/02/2004 - 15:41 | Informe spam
Guardar tan sólo un rango no es posible, que yo sepa, salvo que se recurra a VBA. Lo que puedes hacer es copiar el rango en un libro nuevo y luego guardar el libro como texto.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"jjjgarcia1" escribió en el mensaje news:
Hola a todo el mundo.

Quisiera saber si es posible guardar en Excel, un rango o parte de una
hoja en formato de texto. No quiero guardar todo el libro solo un
rango.

Muchas gracias por anticipado
Respuesta Responder a este mensaje
#2 Beto
10/02/2004 - 16:33 | Informe spam
jjjgarcia1 wrote:

Hola a todo el mundo.

Quisiera saber si es posible guardar en Excel, un rango o parte de una
hoja en formato de texto. No quiero guardar todo el libro solo un
rango.



Que yo sepa, directamente no hay. Lo que tendrías que hacer es copiar el
rango seleccionado a un nuevo libro y entonces grabar como texto. Esta
macro que coloqué aqui realiza todos los pasos tomando en cuenta el
rango seleccionado antes de llamar a la macro. La macro termina
mostrando el cuadro de diálogo, donde manualmente debes colocarle el
nombre del archivo, seleccionar donde lo quieres grabar y seleccionar un
formato de Texto. Esto también se podría automatizar, pero siempre vas a
tener que colocarle un nombre.

Sub GrabaSeleccionEnNuevoLibro()
Dim LibroOrigen As Workbook
Dim RangoACopiar As Range
Dim NoHojasActuales As Integer

NoHojasActuales = Application.SheetsInNewWorkbook
Set LibroOrigen = ActiveWorkbook
Set RangoACopiar = Selection

NoHojasActuales = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Application.SheetsInNewWorkbook = NoHojasActuales

RangoACopiar.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Application.Dialogs(xlDialogSaveAs).Show
End Sub

Saludos,
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida