afigueroaf

Hola a todos MacroLovers, Sucede que de vez en cuando me encargan reiniciar un servidor, al cual posteriormente debo cargarle una serie de comandos vía telnet por el puerto 23, lo cuál claramente toma tiempo, en consecuencia estaba pensando si será posible ejecutar alguna macro que a través de un combobox me pregunte la IP, para posteriormente enviar el listado de comandos en forma automatizada? Gracias,

Estimado Abraham, gracias por la solución, funciona a la perfección, pero como le puedo agregar un poquito de delay para que espere la respuesta de aquellos sitios que demoran un poco más en cargar, antes de que lo tome como "Titulo = """?

Hola Antoni, Gracias por la ayuda. Yo no tengo Office 365, y el problema persiste, aunque descubrí una manera artesanal de arreglarlo, simplemente cierro todas las carpetas abiertas y ahí funciona, no sé cuál será el motivo del porque no funciona cuando se tiene una carpeta abierta, aunque igual es molesto tener que estar cerrando a cada rato las carpetas para funcione la función DataObj.PutInClipboard Alguien conocerá otra forma de solucionarlo?, o estoy obligado a migrar a Office 365? Gracias,

Desde la ultima actualización de Windows, que el comando DataObj.PutInClipboard No funciona, a alguien más le pasó esto?, tiene solución? Gracias,

Sólo una consultilla más, Para sitios con HTTPS, debería haber alguna consideración respecto del código VBA? Ejemplo: https://mpe.enlazza.net:5906/login.asp Grax

MARAVILLOSO!!! De 40 min aproximadamente, ahora se demora 4min Muchas gracias Abraham

Hola Abraham, Pero si ya lo había mencionado anteriormente, Hostname es sólo la variable que contiene el sitio web, y un ejemplo de sitio web es: http://wr31solek.enlazza.net:6400/login.asp Sólo necesito capturar el SN: 825846 Actualmente la macro que tengo funciona a la perfección, sólo que se demora demasiado y por eso quisiera mejorar los tiempos Saludos,

Hola Abraham, Gracias por toda la ayuda, pero no me resultó, al intentar acceder al hostname mediante powerquery no me deja y despliega un error Luego intenté con otro sitio web, pero al visualizar el código obtenido sólo muestra 3 líneas de código Sub Macro2() ' ' Macro2 Macro ' ' Selection.AutoFilter ActiveSheet.ListObjects("Document").Resize Range("$A$1:$D$2") Range("Document[[#Headers],[Document]]").Select End Sub

Microsoft Excel 2013 (15.0.4420.1017) MSO (15.0.4420.1017) 32 bits

Hola Abraham, Gracias por la ayuda, pero me da "Error 438 en tiempo de ejecución El objeto no admite esta propiedad o método" No sé si habré reemplazado mal la variable "Hostname" en el código, o simplemente mi Excel no es compatible? ActiveWorkbook.Queries.Add Name:="Table 15", Formula:="let" & Chr(13) & "" & Chr(10) & "Origen = Web.Page(Web.Contents(Hostname, [Timeout=#duration(0, 0, 6, 0)]))," & Chr(13) & "" & Chr(10) & " Data15 = Origen{15}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Data15,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado""" ActiveWorkbook.Worksheets.Add With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Table 15"";Extended Properties=""""" _ , Destination:=Range("$A$1")).QueryTable .CommandType = xlCmdSql .CommandText = Array("SELECT * FROM [Table 15]") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = "Table_15" .Refresh BackgroundQuery:=False End With

Ahh, gracias por la aclaración, ahora entiendo, entonces tienes algún ejemplo de código para utilizar las recomendaciones que mencionas en lugar de continuar con el query obsoleto? Saludos,

Hola Abraham, Muchas gracias por tu respuesta, la variable Hostname es de este tipo: http://e14spence.enlazza.net:6209/login.asp Como puedes ver es tan sólo una dirección web, no tiene parámetros Lamentablemente ya está todo el desarrollo hecho en excel

Estimados gusto en saludarlos, Estaba fuera de las pistas, pero he vuelto, y quería ver la posibilidad que me puedan dar una mano con lo siguiente: Tengo una Macro que actualiza información proveniente de distintos sitios web, el problema es que muchas veces algunos sitios se encuentran muy lentos, o simplemente no disponibles, entonces la Macro queda eternamente esperando respuesta. Es posible indicarle al Query, que continúe con el siguiente sitio después de un tiempo determinado, para evitar que la Macro se demore demasiado? Gracias, Adjunto código: Sub WebDataImport() On Error GoTo ControlErr Dim strURL As String Dim strDestino As String, strReportName As String Dim numConnections As Integer, i As Integer Application.DisplayAlerts = False 'omitimos los mensajes de aviso 'vars numConnections = ThisWorkbook.Connections.Count strDestino = "A1" strReportName = "Número de serie" strURL = Hostname 'check url data If strURL <> Empty Then 'custom url address 'strURL = "URL;" & strURL 'clean previous connections If numConnections > 0 Then For i = 1 To numConnections ThisWorkbook.Connections(i).Delete Next i End If 'clean datasheet 'Sheets("Match").Select 'Range("A1").Select ' Selection.QueryTable.Delete ' Selection.QueryTable.Delete ' Selection.QueryTable.Delete ' Selection.ClearContents Sheets("Match").Cells.Clear 'control excel app Application.ScreenUpdating = False 'Dim t As Single 'Inicia el cronómetro 't = Timer 'get web query With Sheets("Match").QueryTables.Add(Connection:=strURL _ , Destination:=Range(strDestino)) .Name = strReportName .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 2 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False 'If Timer - t > 10 Then ' Resume Next 'End If 'Application.Wait (Now + TimeValue("0:00:10")) 'Selection.QueryTable.Refresh BackgroundQuery:=False End With 'MsgBox Timer - t, vbInformation, "Segundos" ' Muestra el tiempo transcurrido 'If Range(strDestino) = Empty Then Application.Wait (Now + TimeValue("0:00:5")) BackgroundQuery = False 'End If 'control excel app Application.ScreenUpdating = True Application.DisplayAlerts = True Caunt2 = Caunt2 + 1 - 2 MyTitle = "Hostname " & Caunt2 & " de " & Caunt1 'final message 'Answer = MsgBox("Do you want to continue ?", vbYesNo + vbQuestion, MyTitle) 'If Answer = 6 Then ' Else ' End ' Exit Sub 'End If End If Exit Sub ControlErr: Range(Cells(1, 1), Cells(1, 1)) = "" 'MsgBox "Error: " & Err.Description, vbCritical, "Mensaje" End Sub Fichero.txt

Ok, muchas gracias Abraham por tus consejos, ahora me queda un poco mas claro. Parece que definitivamente tendré que hacer todo de nuevo. Saludos, Alejandro