Hola a todos, les agradezco de antemano su tiempo, espero alguien pueda ayudarme. Tengo un archivo con dos macros, el primero genera una lista de los archivos .html de una ubicación. El codigo (el cual no me da problema) es este: Sub Macro2() ' ' Macro1 Macro ' ' Acceso directo: CTRL+s Direccion2 = Range("A1") Dim Ruta As String ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Creamos el objeto FileSystemObject que 'proporciona acceso al sistema de archivos de un equipo Set fso = CreateObject("Scripting.FileSystemObject") 'Indicamos la ruta de donde vamos a obtener 'los ficheros, en este caso D:\BancoFotos Ruta = Direccion2 'definimos dos variables que necesitaremos, 'para recuperar el nombre de la carpeta, y los ficheros que haya dentro Set Carpeta = fso.GetFolder(Ruta) Set ficheros = Carpeta.Files 'escribimos los ficheros, a partir de A2 Range("A2").Select For Each archivo In ficheros 'escribimos el nombre del fichero If Right(archivo.Name, 5) = ".html" Then ActiveCell = archivo.Name 'bajamos una fila ActiveCell.Offset(1, 0).Select End If Next archivo ActiveCell.EntireColumn.AutoFit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Limpiamos los objetos y variables definidas Set fso = Nothing Set Carpeta = Nothing Set ficheros = Nothing Application.ScreenUpdating = True Range("A1").Select End Sub Posteriormente a esa macro que me genera el listado, corro otra macro la cual desglosa en una hoja de excel la información de los archivos .html de la lista. Lo hace, pero al finalizar me envia una notificación de error. Dejo a continuación todo el codigo. Sub Macro3() ' ' Macro1 Macro ' ' Acceso directo: CTRL+t Sheets("Protocolos").Select Range("B1").Select ActiveCell.FormulaR1C1 = "=IF(R2C1>1,1,0)" Casilla = Range("B1") Do Sheets("Protocolos").Select Range("A1").Select Selection.Copy Sheets("Hoja2").Select Range("A1").Select ActiveSheet.Paste Sheets("Protocolos").Select Range("A2").Select Application.CutCopyMode = False Selection.Copy Sheets("Hoja2").Select Range("A2").Select ActiveSheet.Paste Sheets("Protocolos").Select Rows("2:2").Select Selection.Delete Shift:=xlUp Range("B1").Select ActiveCell.FormulaR1C1 = "=IF(R2C1>1,1,0)" Sheets("Hoja2").Select liga1 = "URL;file:///" Numero1 = Range("A1") Numero2 = Range("A2") Direccion1 = liga1 & Numero1 & Numero2 Range("A2").Select Sheets("Protocolos").Select Range("B1").Select If Casilla = "1" Then Sheets("Hoja2").Select Range("A1").Select With ActiveSheet.QueryTables.Add(Connection:=Direccion1 _ , Destination:=Range("$A$2")) .Name = Numero1 .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "5,7" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Range("A12:F34").Select Selection.Copy ActiveWindow.ScrollRow = 7 ActiveWindow.ScrollRow = 4 ActiveWindow.ScrollRow = 1 Range("C2").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False Columns("B:Z").Select Selection.ColumnWidth = 25 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("B2").Select ActiveCell.FormulaR1C1 = "STG ID:" Range("B3").Select ActiveCell.FormulaR1C1 = "SG NAME:" Range("B4").Select ActiveCell.FormulaR1C1 = "TNR:" Range("B5").Select ActiveCell.FormulaR1C1 = "SW:" Range("B6").Select ActiveCell.FormulaR1C1 = "HW:" Range("B7").Select ActiveCell.FormulaR1C1 = "DTC:" Columns("B:Z").Select Cells.Select With Selection .WrapText = True .Orientation = 0 .AddIndent = False .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Sheets("Hoja2").Select Range("A9:F35").Select Selection.ClearContents Rows("2:8").Select Selection.Cut Sheets("Resumen").Select Rows("1:1").Select Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'ajustar las celdas Columns("B:B").Select Columns("B:B").EntireColumn.AutoFit Columns("C:C").Select Columns("C:C").EntireColumn.AutoFit Columns("D:D").Select Columns("D:D").EntireColumn.AutoFit Columns("E:E").Select Columns("E:E").EntireColumn.AutoFit Columns("F:F").Select Columns("F:F").EntireColumn.AutoFit Columns("G:G").Select Columns("G:G").EntireColumn.AutoFit Columns("H:H").Select Columns("H:H").EntireColumn.AutoFit Columns("I:I").Select Columns("I:I").EntireColumn.AutoFit Columns("J:J").Select Columns("J:J").EntireColumn.AutoFit Columns("K:K").Select Columns("K:K").EntireColumn.AutoFit Columns("L:L").Select Columns("L:L").EntireColumn.AutoFit Columns("M:M").Select Columns("M:M").EntireColumn.AutoFit Columns("N:N").Select Columns("N:N").EntireColumn.AutoFit Columns("O:O").Select Columns("O:O").EntireColumn.AutoFit Columns("P:P").Select Columns("P:P").EntireColumn.AutoFit Columns("Q:Q").Select Columns("Q:Q").EntireColumn.AutoFit Columns("R:R").Select Columns("R:R").EntireColumn.AutoFit Columns("S:S").Select Columns("S:S").EntireColumn.AutoFit Columns("T:T").Select Columns("T:T").EntireColumn.AutoFit Columns("U:U").Select Columns("U:U").EntireColumn.AutoFit Columns("V:V").Select Columns("V:V").EntireColumn.AutoFit Columns("W:W").Select Columns("W:W").EntireColumn.AutoFit Columns("X:X").Select Columns("X:X").EntireColumn.AutoFit Columns("Y:Y").Select Columns("Y:Y").EntireColumn.AutoFit Columns("Z:Z").Select Columns("Z:Z").EntireColumn.AutoFit Rows("2:2").Select Rows("2:2").EntireRow.AutoFit Rows("3:3").Select Rows("3:3").EntireRow.AutoFit Range("A1").Select Sheets("Hoja2").Select Range("A1").Select Sheets("Protocolos").Select Range("A1").Select End If Loop Until Casilla = "0" End Sub El error me lo indica en: .Refresh BackgroundQuery:=False

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.

Macro que desglosa archivos .html

Autor del tema yamemba
Fecha de inicio 25 Feb 2016

yamemba

New member

25 Feb 2016

Hola a todos, les agradezco de antemano su tiempo, espero alguien pueda ayudarme.

Tengo un archivo con dos macros, el primero genera una lista de los archivos .html de una ubicación. El codigo...

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

en excel 2021 la macro que contiene on error goto no me funciona.

Respuestas: 2

2 May 2026

JSD

Resuelto

Macro que se ejecute solamente si la celda tiene datos

Respuestas: 3

3 Dic 2025

jcvelez

Pregunta

Macro de fecha estática que no se como configurar.

Respuestas: 3

29 Oct 2025

Goldfinger

Pregunta

Macro que pase info de carpeta a excel

Respuestas: 2

16 Oct 2025

Erik Lopez

Resuelto

Error en macro para buscar a medida que se escribe en un textbox

Respuestas: 2

20 Ago 2025

jcvelez

Resuelto

Por que a macro não executa?

Respuestas: 3

15 Ago 2025

Be_So_Al

Pregunta

Macro que cuente filas y refleje el numero +1 en un textbox

Respuestas: 10

28 Jul 2025

calidmn

Resuelto

Macro para cambiar de color un texto de una celda que depende de otra.

Respuestas: 4

28 Mar 2025

tauro980

Pregunta

Ayuda con la MACRO que estoy creando MACRO OSIPTEL

Respuestas: 1

5 Mar 2025

Erik Lopez

Resuelto

macro para seleccionar un rango variable y discontinuo que se copia

Respuestas: 10

12 Feb 2025

Dante Amor M

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