Jump to content

muyayito

Members
  • Posts

    78
  • Joined

  • Last visited

  • Country

    Spain

Converted

  • Campos
    ;

Recent Profile Visitors

1,421 profile views

muyayito's Achievements

  1. Buenas @digitalboy Lo acabo de solucionar. Loq que queria hacer era ejecutar dos comandos. Uno es cambiar a la unidad D y el otro quitar los atributos. Call Shell("cmd.exe /S /K cd /d D:\ && attrib /s /d -r -h -s *.* && del ~*.* && exit", vbNormalFocus) Gracias por contestar.
  2. Buenas foro. Estoy intentnado aplicar el comando attrib /s /d -r -h -s *.* en la unidad d: y no se como hacerlo para insertar dos comandos, con uno solo no tengo problema Call Shell("cmd.exe /S /K" & "D:", vbNormalFocus) Como seria para justo despues aplicar el comando attrib?
  3. @Abraham Valencia podrías por favor recomendarme algo sobre MSXML2.XMLHTTP6?
  4. Buenas @Abraham Valencia, gracias por contestar. Mi conocimiento de scraping es muy basico. Siempre lo he hecho con id, tag o name., por eso he preguntado. El jslog, pues ni idea. Mirare mejor el MSXML2.XMLHTTP6, por el tema de internet explorer. Gracias por la aclaración.
  5. Buenos dias a todos. Estoy intentando desde excel meter datos en una página web, y me encuentro con dos combobox con el mismo classname. En el primero meto los datos bien, pero en el segundo, no se como hacerlo, no veo el id o alguna otra forma de identificarlo. Sub vuelos() Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Visible = True IE.Navigate "https://www.google.com/travel/flights?tcfs&ved=2ahUKEw jD1eu2kcH6AhWJ2tUKHdTsAGIQyJAB egQIABAY&ictx=2&authuser=0" Do DoEvents Loop Until IE.ReadyState = 4 Dim inputfield As Object Set inputfield = IE.Document.getElementsByClassName("II2One j0Ppje zmMKJ LbIaRd") If inputfield.Length > 0 Then inputfield(0).Value = "BUENOS AIRES" End If End Sub La idea es meter los datos de busqueda y descargar los resultados. El segundo combobox (Destino) tambien tiene el classname "II2One j0Ppje zmMKJ LbIaRd"
  6. Solucionado. Gracias Antoni como siempre por la ayuda. Sub LISTAR_ARCHIVOS() Hoja4.Activate Dim Ruta As String Set fso = CreateObject("Scripting.FileSystemObject") Ruta = ActiveWorkbook.Path & "\" & Hoja1.[M3] & "\" & Hoja1.[M2] & "\" Set CARPETA = fso.GetFolder(Ruta) Set ficheros = CARPETA.Files [A1].Value = Ruta Range("A2").Select For Each Archivo In ficheros If Left(Archivo.Name, 2) = "CS" Then ActiveCell = Archivo.Name ActiveCell.Offset(1, 0).Select End If Next Archivo ActiveCell.EntireColumn.AutoFit Set fso = Nothing Set CARPETA = Nothing Set ficheros = Nothing Application.ScreenUpdating = True End Sub Esta parte es tuya 'Assign Attachment(s) For Each Archivo In Hoja4.Range("A2:A" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row) .Attachments.Add Hoja4.[A1] & Archivo Next
  7. No soy premium Antoni 🥺 Aparte es un gestor de correo que se llama groupwise, que no creo que lo tengas y necesita libreria para referencia. Estoy pensando que una solucion seria listar en una columna los archivos de la carpeta y cogerlos de ahi...
  8. He activado la referencia MIcrosoft.Scripting.Running y despues del error, se me cierra el excel 😅
  9. Buenos dias Don Antoni. Ppeleándome con tu código me sale el siguiente error: "El objeto no admite esta propiedad"
  10. Buenas a todo el foro. En una macro adjunto un archivo para enviar por correo de esta forma: adjunto = ActiveWorkbook.Path & "\" & Hoja1.[M3] & "\" & Hoja1.[M2] & "\CS_report.pdf .Attachments.Add adjunto Como lo haría para insertar todos los pdf que empiecen por "CS"? Gracias por adelantado.
  11. Agradecido @Abraham Valencia pero no puedo dar acceso a nadie. Es del trabajo. Lo dicho, mil gracias e investigaré algo de JavaScript.
  12. De esto entiendo ya poco Me salen los siguientes desplegables: Blur: function() { qq(options.element).removeClass(options.focusClass); } Change: function() { options.onChange(input); } Foxus: function() { qq(options.element).addClass(options.focusClass); Mouseout: function() { qq(options.element).removeClass(options.hoverClass); } Mouseover: function() { qq(options.element).addClass(options.hoverClass); } y en cada desplegable una direccion de pagina web, que abriendo en depurador: Blur: disposeSupport.attach(input, "blur", function() { qq(options.element).removeClass(options.focusClass); }); Change: options.element.appendChild(input); disposeSupport.attach(input, "change", function() { options.onChange(input); }); Foxus: disposeSupport.attach(input, "focus", function() { qq(options.element).addClass(options.focusClass); }); Mouseout: disposeSupport.attach(input, "focus", function() { qq(options.element).addClass(options.focusClass); }); Mouseover: disposeSupport.attach(input, "mouseover", function() { qq(options.element).addClass(options.hoverClass); });
  13. Vale, ahora si te entendi, disculpa... Inspeccionando el elemento de subir el archivo, hay un evento, pulso y me salen 5 lineas, no se si te refieres a eso...
  14. Hola Abraham, te paso un ejemplo Sub video() Application.DisplayAlerts = False Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Visible = True IE.Navigate "https://www.veed.io/es-ES/herramientas/cortar-video" Do DoEvents Loop Until IE.ReadyState = 4 Set y = IE.Document.getElementsByClassName("chakra-button__icon css-1hzyiq5") y(0).Click Application.Wait (Now + TimeValue("00:00:05")) Set x = IE.Document.getElementsByName("browse-link") x(0).Click Application.DisplayAlerts = True End Sub La original tiene clave y contraseña, pero creo que este puede valer. Aqui se llega igual, a un browser para suvir un archivo Se lo de Internet Explorer, ojala se pudiera trabajar con mozilla o chrome, aparte que es un ordenador de empresa que esta muy limitado
  15. Hola @Abraham Valencia en mitad de la macro me encuentro con un cuadro de dialogo para seleccionar un directorio y luego un archivo para subir. Decir que he llegado hasta aqui pulsando un boton con getElementsByName("file").click lo que busco es seleccionar la carpeta (ruta) y archivo mediante vba. Estoy mirando la propiedad Propiedad FileDialog.InitialFileName pero es para windows, y necesito que sea para el internet explorer
×
×
  • Create New...

Important Information

Privacy Policy