Hola a todos estoy ocupando una macro de Importar datos desde varios libros que vi en video de Otto en youtube, hice algunas adaptaciones para mi necesidad y de principio funcionó bien pero después que agregué las siguientes lineas de código en al "ThisWorkbook" en mis archivos de origen: Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Application.DisplayFormulaBar = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Application.DisplayFormulaBar = True Application.DisplayStatusBar = True ActiveWindow.DisplayWorkbookTabs = True dejando el codigo en "ThisWorkBook" de esta forma: Private Sub Workbook_Activate() Application.ScreenUpdating = False Application.OnKey "^v", "AtajoTeclado" Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Application.DisplayFormulaBar = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False Application.ScreenUpdating = True End Sub Private Sub Workbook_Deactivate() Application.ScreenUpdating = False Application.OnKey "^v" Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Application.DisplayFormulaBar = True Application.DisplayStatusBar = True ActiveWindow.DisplayWorkbookTabs = True Application.ScreenUpdating = True End Sub Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub al ejecutar la macro en el archivo de destino a importar tengo el Run-time error ´1004´: PastSpecial method of Range class failed apuntando para la linea wsDestino.Cells(Columns.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues del codigo, alguien puede ayudarme a ver donde esta mi error por favor? No sé si esta en la origen o destino, esta es la macro ejecutada desde el modulo de origen: Option Explicit Dim nArchivo As Integer, Conteo As Integer, i As Integer, j As Integer, n As Integer Sub ImportarData() Call Clear Call ContarArchivos Application.ScreenUpdating = False Dim WorkBookOrigen As Workbook Dim wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range, _ NombreArchivo As String, _ Carpeta As String Carpeta = ActiveWorkbook.Path & "\" nArchivo = 1 NombreArchivo = Dir(Carpeta & "BASE_A_COPIAR" & "*.xlsm*") Do While Len(NombreArchivo) > 0 Set WorkBookOrigen = Workbooks.Open(Carpeta & NombreArchivo) NombreArchivo = Dir() ThisWorkbook.Activate Set wsOrigen = WorkBookOrigen.Worksheets(2) Set wsDestino = Worksheets(1) Const celdaOrigen = "A2" Set rngOrigen = wsOrigen.Range(celdaOrigen) wsOrigen.Activate wsOrigen.Visible = True wsOrigen.Unprotect Password:="password" rngOrigen.Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Errores: If Err.Number = 1004 Then wsOrigen.Activate wsOrigen.Visible = True wsOrigen.Unprotect Password:="password" rngOrigen.Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy End If For n = 1 To 1 wsDestino.Activate On Error GoTo Errores wsDestino.Cells(Columns.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Next n Application.CutCopyMode = False WorkBookOrigen.Save WorkBookOrigen.Close nArchivo = nArchivo + 1 Call Progreso Loop j = nArchivo - 1 Application.ScreenUpdating = True MsgBox j & " Archivos procesados" End Sub Public Sub Progreso() Dim Contador As Integer Dim Maximo As Integer Dim Mitiempo As Double Maximo = nArchivo - 1 For Contador = 1 To Maximo Step 1 Mitiempo = Timer Do Loop While Timer - Mitiempo < 0.02 Application.StatusBar = "Progreso: " & Maximo & _ " de " & i & " (" & Format(Maximo / i, "Percent") & ")" DoEvents Next Contador Application.StatusBar = False End Sub Public Sub ContarArchivos() Dim cNombreArchivo, cCarpeta As String cCarpeta = ActiveWorkbook.Path & "\" Conteo = 1 cNombreArchivo = Dir(cCarpeta & "BASE_A_COPIAR" & "*.xlsm*") Do While Len(cNombreArchivo) > 0 cNombreArchivo = Dir() Conteo = Conteo + 1 Loop i = Conteo - 1 End Sub Muchas gracias a todos! :lol: :lol: :lol:

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

PastSpecial method of Range class failed - Importar datos

Autor del tema barroso
Fecha de inicio 5 Ago 2018

barroso

New member

5 Ago 2018

Hola a todos estoy ocupando una macro de Importar datos desde varios libros que vi en video de Otto en youtube, hice algunas adaptaciones para mi necesidad y de principio funcionó bien pero...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Problema con método PastSpecial

Respuestas: 4

16 Jul 2020

gorgijasp68

Pregunta

Runtime error '-2147417848': Method 'Rows' of object '_Global' Error

Respuestas: 4

8 May 2021

ISAIASENZO

Pregunta

Error macro, "Select Method of range class failed"

Respuestas: 0

24 Abr 2013

enfan_arg

Pregunta

"Object Doest Support this property or method"

Respuestas: 8

25 Dic 2011

Cacho R

Pregunta

es mas eficiente declarar celdas y rangos de celda como objeto range?

Respuestas: 2

29 Dic 2025

Dante Amor M

Resuelto

Error metodo value de objeto range

Respuestas: 6

25 Mar 2025

josecroft

Pregunta

Error en el método select de la clase range

Respuestas: 6

24 Feb 2025

FGV

Resuelto

Error en el método default de objeto "Range"

Respuestas: 4

1 Dic 2024

jcvelez

Resuelto

Error 1004: No se puede obtener la propiedad Delete de la clase Range.

Respuestas: 11

22 Mar 2024

tortosa_juaskas

Pregunta

Errores insert y range con tablas!

Respuestas: 3

9 Ene 2024

Solox

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba