Saltar al contenido

Macros y programación VBA

Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?

  1. Hola: Tengo un Listbox que lista una carpeta y al hacer doble click en cualquier item se debería abrir el archivo. Antes de hacer pruebas, se me abrian todos los tipos (doc, pdf, y jpeg entre otros), salvo los tipo excel (xls*), pero ahora no se abre ninguno. Aun así, la consulta es para saber cómo abrir cualquier tipo de archivo incluyendo los de Excel, porque tengo varios códigos que abren archivos (del tipo ShellExecute, etc) , pero fallan con los xls* Abrir archivos.rar

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 3.1k visitas
  2. Started by Juan Suarez,

    Estimados recurro nuevamente con otra consulta, Estoy trabajando con access y ahora quiero incorporar clave a la BD, no logro crear una cadena de conexión valida, copio código donde abro la base y carga un combobox, Ingresa siempre a If cn.State <> 1 , no reconoce la clave prpporcionada Saludos. Private Sub CargarComboFormRubrado() Dim cn As Object Dim datos As Object Dim consultaSQL As String Dim conexion As String Dim rutaBaseDatos As String Dim contraseña As String ' Obtengo la ruta donde se encuentra el archivo de Excel actual rutaBaseDatos = ThisWorkbook.Path & "\Rbo.accdb…

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 1.4k visitas
    • 1 seguidor
  3. Necesito vuestra ayuda, deseo abrir con un botón desde un formulario una carpeta excel que está ubicada en la red de mi empresa, en el disco Z:

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 5.3k visitas
  4. Started by Salvador1,

    He aquí un código para abrir tu cuenta Hotmail sin necesidad de escribir el usuario y contraseña continuamente. Es obra de Cacho R. Saludos. Hotmail.rar

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.2k visitas
  5. Buenas Tardes Tengo un archivo con una macro para abrir un documento de word con excel y la macro funciona bien. Pero me pregunto cómo debería escribirse el código vba para que se abriesen varias hojas incluyendo la ruta de cada documento. En mi ordenador podría colocar todos los documentos en la misma carpeta para simplificar la ruta de acceso. Pero cómo hacerlo en este caso y en aquellos casos en los que los archivos están en carpetas directas. También querría saber cómo hacerlo con accesos directos que requieren la introducción de usuario y contraseña. ¿Podría alguien ponerme o añadirme algún ejemplo en el archivo que adjunto. gracias por adelantado. Borja abri…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 927 visitas
  6. Hola, tengo hecha una macro la cual tiene 6 botones en una hoja de excel, y lo que necesito hacer es que cuando abra dicho documento me salga uno panel con los 6 botones y no la hoja de excel.​

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 646 visitas
  7. Started by petercs,

    Cordial saludo, quisiera saber si es posible crear una macro en Excel que abra varios archivos PDF de una carpeta, los imprima y luego los cierre; los nombres de los archivos se encuentran en una hoja de Excel. agradezco toda la ayuda posible. Saludos, PedroCS

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 15.3k visitas
  8. Started by Xogas,

    Necesito una macro que cuando encienda la pc se abra un archivo de excel en la fecha determinada

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 1.3k visitas
  9. Buenos dias estoy trabajando para automatizar una tarea que consiste en abrir fillezila , abrir el Gestor de Sitios y bajarme un fichero me he quedado en abrir fillezila, cuando intento automatizar los movimientos dentro de este programa no me hace caso Sub obre_fillezila() Shell "C:\Program Files\FileZilla FTP Client\filezilla.exe", vbNormalFocus SendKeys "^+s", True End Sub he pronbado SendKeys "^s" pero tampoco hace nada ya no he podido ir mas alla gracias Rafa

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 535 visitas
  10. Hola Buenas tardes. Solicito nuevamente su orientacion y ayuda. Tengo un formulario (Formulario1) desde el cual puedo abrir el formulario2. Estoy usando esta macro en Formulario1: Formulario2.Show[/PHP] Estoy suando esta macro en el formulario 2: [PHP]Private Sub UserForm_Initialize() If FURMULARIO1.Visible = True Then Unload FROMULARIO1 End Sub[/PHP] Para que al abrir el formulario 2 se cierre el formulario 1, pero al hacerlo en viceversa me bota el error. Parcticamente lo que deseo hacer es, del formulario 1 abrir el formulario 2 y se cierre el formulario 1, y del formulario 2 poder abrir el formulario 1 y que se cierre el formulario 2. De antemano m…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 887 visitas
  11. Started by howling,

    buenas tardes genios programadores tengo una pregunta ¿es posible abrir un formulario desde un OptionButton?

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 897 visitas
  12. Buenos dias, necesito ayuda para saber como puedo evitar que mis formularios de VBA al ejecutarlos ni cierren los demás Libros que ya tenia abiertos.

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 1.7k visitas
  13. Started by Salvador1,

    Hola: He encontrado en Internet estas dos macros, una para abrir webs y otra el correo hotmail, pero las línea de Call se pone en rojo. Me interesa más saber cómo solucionar la del abrir el correo (supongo que es para entrar a la web de hotmail, se te ponga automaticamente la dirección y manualmente se teclee la clave, pero solo lo supongo). Y como ambas me parecen curiosas, me gustaría que alguien me dijera qué les falta o sobra para que funcionen. Saludos. Sub AbrirWeb() Dim Web As String Web = "http://www.aprendisaje7.com" call (0&,vbNullString,web,vbNullString,vbNullString,vbNormalFocus) End Sub[/CODE] [CODE]Sub AbrirWeb() Dim Mail As String Mail …

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.2k visitas
  14. Started by gremli,

    Hola a todos Soy nuevo y de excel no tengo casi ni idea, estoy haciendo un libro para hacerme escandallos de trabajos y necesitaria hacer un boton para insertar una imagen, en una posicion y con un tamaño en la hoja con la que estoy trabajando.Buscando por varios foros he conseguido hacer este macro . Sub InsertarIMGcorte() ActiveSheet.Range("K5").Activate Application.Dialogs(xlDialogInsertPicture).Show With Selection .ShapeRange.LockAspectRatio = msoTrue .ShapeRange.Height = 290 'Alto de la imagen .ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda) .ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 pa…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 2k visitas
  15. buenas tardes, tengo el siguiente código para navegar por paginas web, pero navega en segundo plano, que debo agregar al código para que se pueda abrir y visualizar la pagina que abre la macro? Sub testnavegar() Dim htmlDeRespuesta As Object Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxml2.xmlhttp") .Open "Get", "https://www.google.cl/", False .send htmlDeRespuesta.body.innerHTML = .responseText End With On Error Resume Next Range("d4").Value = htmlDeRespuesta.getElementsByid("gNO89b")(0).innerText On Error GoTo 0 End Sub muchas gracias

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 2.3k visitas
  16. Buenos dias. Trabajo en una Fundación y estoy preparando un excel con macros. Utilizamos como intranet el Sharepoint de Microsoft, y tenemos contratado el Office 365, aunque cada usuario tiene instalado tambien el Office en su ordenador. El problema lo tengo en que un excel con macros no se puede abrir desde Offcie 365 porque no soporta macros. En el sharepont ya he cambiado que la forma de abrir el archivo escel sea siempre desde la aplicación del escritorio, es decir, desde el excel instalado en el ordenador local. Pero solo funciona con el navegador Internet Explorer, hay muchos usuarios que utilizan el Chrome. Se me ocurren dos posibles soluciones (pa…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 13.9k visitas
  17. Abrir libro de excel con macros en una pc en red, dando la orden desde otro libro de excel con macro en otra pc, se puede hacer esto?, de ser asi, podriamos hacer un control de ciber como dios manda. Alguien me ayuda con esta informacion o un ejemplo?...

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.3k visitas
  18. Started by rolanditorc,

    hola estimados, necesito un código para que haga los siguiente, yo tengo un libro principal, y necesito que cuando yo abra este libro principal de forma manual (doble click en el icono), este libro se abra en una ventana excel independiente. y si se puede que cuando yo abra otro archivo excel no se mescle con mi archivo principal. lo que quisiera es que mi libro principal tenga siempre su ventana excel independiente

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 631 visitas
  19. Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.708661417322835) .RightMargin = Application.InchesToPoints(0.708661417322835) .TopMargin = Application.InchesToPoints(0.748031496062992) .BottomMargin = Application.InchesToPoints(0.748031496062992) .HeaderMa…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 698 visitas
  20. Buen dia, tengo un problema, espero me puedan ayudar, Tengo un libro Proncipal el cual hace su apertura si el formulario de acceso lo permite, y se comunica con otros libros, el detalle es que nececito que los otros libros se puedan abrir solo si el libro principal esta abierto, si no lo esta que lo abra para poder accesar desde el formulario de acceso. *Libro Admon.xlsm - Formulario acceso ***Libro Poliza ***Libro Diario ***Libro Edo Financiero lo intenté llamando esta macro desde los libros Poliza, Diario, Edo Financiero Workbook - Open Private Sub Workbook_Open() Call Inicializando End Sub _______________________________…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 655 visitas
  21. Started by sretamalb,

    Buenas Tardes, Tengo una macro la cual me permite seleccionar múltiples libros excel para poder juntarnos en uno solo. Existe alguna forma que cuando me muestre los libros que quiera abrir, estos se seleccionen solos? Sin tener que seleccionarlos uno? Es decir, yo quiero que siempre se abra de una direccion el libro1.xlsm, el libro2.xlsm y el libro3.xlsm. Gracias. Prueba.xlsm

    • 0

      Reacciones de usuarios

    • 8 respuestas
    • 1.7k visitas
    • 1 seguidor
  22. Started by [email protected],

    Buen Día Comunidad, Espero me puedan apoyar, tengo la siguiente macro que me habre un link mediante un ribbon a través del navegador internet explorer y funciona, solo que quiero en caso de tener abierto, lo habra sobre el que ya se encuentra abierto, en una nueva pestaña, Sub ejemplo(Matriz As IRibbonControl) Set WebUrl = CreateObject("InternetExplorer.Application") WebUrl.Navigate "https://ayudaexcel.com" WebUrl.Visible = True End Sub Quedo al pendiente y agradezco de su apoyo,

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 9.9k visitas
  23. Started by pserrats,

    Hola, Necesitaria saber como hacer que al clickar la pestaña de una hoja para cambiar de pantalla se me abra un MsgBox preguntando si estoy seguro de querer salir ya que al pasar a la hoja principal se me reinician todos los valores. Como lo puedo hacer? Muchas gracias

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 1.7k visitas
  24. Hola amigos de este foro. Deseo me orienten a crear una macro, en un boton de borrar datos deseo abrir un mensaje que alerte con la siguiente pregunta: ¡ESTA SEGURO QUE QUIERE BORRAR?¡, que el MsgBox tenga los botones ACEPTAR Y CANCELAR, les envío un archivo de ejemplo sencillo de borrar una palabra de una celda. Saludos a todos. Borrame.zip

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 971 visitas
  25. Started by Galactico,

    buenas tardes, tengo una macro que me abre hipervínculos en celdas seleccionadas Sub abrirenlaces() For Each celda In Selection If celda.Hyperlinks.Count > 0 Then celda.Hyperlinks(1).Follow NewWindow:=False Application.Wait (Now + TimeValue("00:00:01")) Next celda End Sub el problema que tengo es que, al tratar de abrir gran cantidad de enlaces, la macro solo abre un máximo de 10 y luego me da error, he probado de varias formas y distintas macros que he encontrado en la web, pero todas me dan el mismo problema muchas gracias por el apoyo y felices fiestas a todos!

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 803 visitas
    • 2 seguidores

Información básica de protección de datos

  • Responsable: Sergio Andrés Celemín
  • Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.
  • Legitimación: Consentimiento del interesado.
  • Destinatarios : Hetzner Online GmbH.
  • Duración: Mientras se conserve este post o hilo en la comunidad, o decidas eliminar el comentario.
  • Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso, rectificación, supresión, oposición y demás derechos legalmente establecidos a través del email [email protected]

Información adicional: Encontrarás más información en la política de privacidad.