Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » copiar en una web y pegar en excel

Excel - copiar en una web y pegar en excel

Volver
Nuevo Tema
<<>>
 
Vista:

copiar en una web y pegar en excel

Publicado por Jose (1 intervención) el 13/01/2019 06:35:08
He buscado todas las web y todos hablan lo mismo.
Simplemente deseo copiar una web y pegar en una página la cual estará oculta.
Debo de hacerlo con macro.

Después de seleccionar los datos de la web, solo deseo extraer los texto, eso es con pegado especial.
hasta ahi está todo bien, pero cuando quiero que estos datos caigan directamente en otra web no funciona.
¿Alguien puede ayudarme?
Mil gracias de ante manos.

Aqui está la macro funcionando solo cae en la misma página, no puedo hacer que caiga en la otra oja oculta.


1
2
3
4
5
6
Sub insertar()
 
    Range("A17").Select
    ActiveSheet.PasteSpecial Format:="Texto", Link:=False, DisplayAsIcon:= _
        False
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto
Val: 148
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar en una web y pegar en excel

Publicado por Norberto (46 intervenciones) el 17/01/2019 09:52:37
Hola:

Prueba con alguna de estas opciones:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Insertar()
    Dim Hoja As Worksheet, Destino As Range
    Set Hoja = ThisWorkbook.Worksheets("Hoja2")
    Set Destino = Hoja.Range("A17")
    Debug.Print Destino.PasteSpecial
    Set Hoja = Nothing
    Set Destino = Nothing
End Sub
 
Sub Insertar2()
    Dim Hoja As Worksheet, Destino As Range
    Set Hoja = ThisWorkbook.Worksheets("Hoja2")
    Set Destino = Hoja.Range("A17")
    Hoja.Visible = xlSheetVisible
    Hoja.Activate
    Destino.Select
    Hoja.PasteSpecial "Texto", False, False
    Hoja.Visible = xlSheetHidden
    Set Hoja = Nothing
    Set Destino = Nothing
End Sub

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar