ABRIR ARCHIVO

Fernando,

Puedes dar un poco mas de detalle o incluso tu codigo. No acabo de entender
q es lo q quires hacer. Estas intentando habrir un *.txt (o *.xls) como
hoja3 de tu archivo? Si es asi, deberias usar otro metodo distinto de lo q
Fernando y yo te hemos puesto mas abajo. Tengo 10 min antes de irme a la
cama - dime algo rapido.

Saludos,
KL

"Fernando Kohan" wrote in message
news:

Hola, a todos despues de una gran ayuda de KL y Fernando tengo el
siguiente
problema.

Estoy activando la Hoja 3 de mi planilla.

En la hoja 3 quiero abrir un archivo

Y al abrirla me abre otro libro y no en la hoja , yo necesito
forzar
a la hoja 3


Gracias

Fenarro

Bueno, ya me tengo q ir. Por si las moscas te dejo aqui esta macro q igual
es lo q tu buscas.
Saludos, KL

Sub test1()
Dim nFichero As Variant
Dim LineaDeTexto
Dim Fila As Long
Fila = 0
nFichero = Application.GetOpenFilename("Archivos detexto(*.txt),*.txt")
Select Case VarType(nFichero)
Case vbBoolean
MsgBox "Canceled"
Case Else
Open nFichero For Input As #1
Do While Not EOF(1)
Line Input #1, LineaDeTexto
ActiveWorkbook.Sheets("Hoja3").Range("A1").Offset(Fila, 0) =
LineaDeTexto
Fila = Fila + 1
Loop
Close #1
End Select
End Sub

"KL" wrote in message
news:

Fernando,

Puedes dar un poco mas de detalle o incluso tu codigo. No acabo de
entender q es lo q quires hacer. Estas intentando habrir un *.txt (o
*.xls) como hoja3 de tu archivo? Si es asi, deberias usar otro metodo
distinto de lo q Fernando y yo te hemos puesto mas abajo. Tengo 10 min
antes de irme a la cama - dime algo rapido.

Saludos,
KL

"Fernando Kohan" wrote in message
news:

Hola, a todos despues de una gran ayuda de KL y Fernando tengo el
siguiente
problema.

Estoy activando la Hoja 3 de mi planilla.

En la hoja 3 quiero abrir un archivo

Y al abrirla me abre otro libro y no en la hoja , yo necesito
forzar
a la hoja 3


Gracias

Fenarro

Gracias pero no creo que sea esto lo que busco,
te explico

En el libro estoy trabajando asi

Hoja 2 tengo una planilla que al ejecutar la macro la copia a la hoja 2,
ahora necesito abrir un archivo de texto en la hoja 3,
y cada vez que trato de abrirla teniendo activada la hoja 3 el archivo es
abierto en otro libro.


Fernando


"KL" escribió en el mensaje
news:e#

Bueno, ya me tengo q ir. Por si las moscas te dejo aqui esta macro q igual
es lo q tu buscas.
Saludos, KL

Sub test1()
Dim nFichero As Variant
Dim LineaDeTexto
Dim Fila As Long
Fila = 0
nFichero = Application.GetOpenFilename("Archivos

detexto(*.txt),*.txt")

Select Case VarType(nFichero)
Case vbBoolean
MsgBox "Canceled"
Case Else
Open nFichero For Input As #1
Do While Not EOF(1)
Line Input #1, LineaDeTexto
ActiveWorkbook.Sheets("Hoja3").Range("A1").Offset(Fila, 0) > LineaDeTexto
Fila = Fila + 1
Loop
Close #1
End Select
End Sub

"KL" wrote in message
news:
> Fernando,
>
> Puedes dar un poco mas de detalle o incluso tu codigo. No acabo de
> entender q es lo q quires hacer. Estas intentando habrir un *.txt (o
> *.xls) como hoja3 de tu archivo? Si es asi, deberias usar otro metodo
> distinto de lo q Fernando y yo te hemos puesto mas abajo. Tengo 10 min
> antes de irme a la cama - dime algo rapido.
>
> Saludos,
> KL
>
> "Fernando Kohan" wrote in message
> news:
>> Hola, a todos despues de una gran ayuda de KL y Fernando tengo el
>> siguiente
>> problema.
>>
>> Estoy activando la Hoja 3 de mi planilla.
>>
>> En la hoja 3 quiero abrir un archivo
>>
>> Y al abrirla me abre otro libro y no en la hoja , yo necesito
>> forzar
>> a la hoja 3
>>
>>
>> Gracias
>>
>> Fenarro
>>
>>
>
>

Creo q tal como lo planteas seria imposible ya q pretendes abrir un fichero
dentro en una hoja (objeto de un fichero). Esto suena un poco como intentar
abrir Windows dentro de MediaPlayer. De hecho cuando abres el *.txt en Excel
no es q Excel crea un nuevo libro es q abre tu archivo *.txt como si fuera
un libro de Excel.
Creo q la unica forma de tener tu *.txt dentro de una hoja de otro libro es
copiando el contenido expresamente. Eso si, puede haber unas cuantas formas
de hacerlo.

Suerte,
KL

"Fernando Kohan" wrote in message
news:%

Gracias pero no creo que sea esto lo que busco,
te explico

En el libro estoy trabajando asi

Hoja 2 tengo una planilla que al ejecutar la macro la copia a la hoja 2,
ahora necesito abrir un archivo de texto en la hoja 3,
y cada vez que trato de abrirla teniendo activada la hoja 3 el archivo es
abierto en otro libro.


Fernando


"KL" escribió en el mensaje
news:e#

Bueno, ya me tengo q ir. Por si las moscas te dejo aqui esta macro q
igual
es lo q tu buscas.
Saludos, KL

Sub test1()
Dim nFichero As Variant
Dim LineaDeTexto
Dim Fila As Long
Fila = 0
nFichero = Application.GetOpenFilename("Archivos

detexto(*.txt),*.txt")

Select Case VarType(nFichero)
Case vbBoolean
MsgBox "Canceled"
Case Else
Open nFichero For Input As #1
Do While Not EOF(1)
Line Input #1, LineaDeTexto
ActiveWorkbook.Sheets("Hoja3").Range("A1").Offset(Fila, 0) >> LineaDeTexto
Fila = Fila + 1
Loop
Close #1
End Select
End Sub

"KL" wrote in message
news:
> Fernando,
>
> Puedes dar un poco mas de detalle o incluso tu codigo. No acabo de
> entender q es lo q quires hacer. Estas intentando habrir un *.txt (o
> *.xls) como hoja3 de tu archivo? Si es asi, deberias usar otro metodo
> distinto de lo q Fernando y yo te hemos puesto mas abajo. Tengo 10 min
> antes de irme a la cama - dime algo rapido.
>
> Saludos,
> KL
>
> "Fernando Kohan" wrote in message
> news:
>> Hola, a todos despues de una gran ayuda de KL y Fernando tengo el
>> siguiente
>> problema.
>>
>> Estoy activando la Hoja 3 de mi planilla.
>>
>> En la hoja 3 quiero abrir un archivo
>>
>> Y al abrirla me abre otro libro y no en la hoja , yo necesito
>> forzar
>> a la hoja 3
>>
>>
>> Gracias
>>
>> Fenarro
>>
>>
>
>