Jump to content

Cargar formulario al abrir un archivo y ocultar excel


bermix

Recommended Posts

Hola amigos, nuevamente agradeciendo de antemano por su apoyo. Bueno esta ves necesito tambien de su ayuda, ya que lo que quiero hacer eso lo siguiente: Quiero que al abrir un archivo de excel cargue un formulario, en ese formulario debe tener un boton donde yo pueda abrir un directorio "X" para seleccionar que archivo(s) deseo abrir.

Posteriormente se debe el archivo y se debera ocultar el formulario.

Cuando yo tenga que cerrar el archivo abierto por el formulario, debera mostrarme nuevamente el formulario que contiene el boton para abrir archivos.

Tambien envio un archivo haciendo idea a lo que expongo.

Gracias de antemano amigos.

Saludos!!

formulario.zip

Link to comment
Share on other sites

Hola amigos, nuevamente agradeciendo de antemano por su apoyo. Bueno esta ves necesito tambien de su ayuda, ya que lo que quiero hacer eso lo siguiente: Quiero que al abrir un archivo de excel cargue un formulario, en ese formulario debe tener un boton donde yo pueda abrir un directorio "X" para seleccionar que archivo(s) deseo abrir.

Posteriormente se debe el archivo y se debera ocultar el formulario.

Cuando yo tenga que cerrar el archivo abierto por el formulario, debera mostrarme nuevamente el formulario que contiene el boton para abrir archivos.

Tambien envio un archivo haciendo idea a lo que expongo.

Gracias de antemano amigos.

Saludos!!

Creo que en VBA no se puede, porque a la parecer quieres un control DirListBox que se usa en VB y no en VBA

Link to comment
Share on other sites

Hola Bermix, no puedo abrir tu archivo,pero.... a falta de algo mas desarrollado te mando este codigo para que comiences a investigar.....

Private Sub Workbook_Open()

Application.Visible = False

UserForm1.Show

End Sub

oK. amigo el archivo es solo un ejemplo, este codigo lo que hace es que cuando yo abra excel, me cargue automaticamente un formulario. Esa ya esta gracias a ti, compa. A lo mejor esto que te doy a decir a continuacion esta fuera, pero lo que quiero es que cuando yo cierre un archivo de excel, (es decir cualquier archivo, previamente configurado) me cargue el archivo que contiene el formulario que se carga automaticamente.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

    • Hola, Yo no me entero muy bien; en el ejemplo que has puesto de  Puedes usar =IZQUIERDA(A1;4)/100 (suponiendo que el numero esta en A1). Seguro que no te refieres a eso porque es muy simple, pon mas ejemplos.
    • Hola a todos, soy nueva por aquí     Tengo una duda de una exportación de una tabla SQL, donde los precios de los productos, en lugar de exportarlos en formato moneda con decimales, me los exporta en el siguiente formato: "00.000.000" está en formato "número", pero no sé como hacer para pasarlo a un formato de moneda, ya que los últimos tres "0" me sobran y me suma los 8 dígitos, cuando los 3 últimos no valen.    Por ejemplo:  10.123.001 (Es un producto que vale 10,12€ Como puedo hacer para eliminar el resto de dígitos? No encuentro la manera y claro, tampoco puedo realizar operaciones en excel puesto que me suma todos los dígitos...   No sé si me he explicado bien...   Gracias!!  
    • Buenas , soy nuevo en esto de Macros , pero investigando he dado esta solución , El macro funciona con el directorio "C:\Excel\"  la llamada al Macro es " Analizar_archivos" desde Libro.xlsm Option Explicit Dim ArchivoAbrir As Excel.Workbook Sub Analizar_Archivos() Dim Dir, Carpeta, Archivo As Object Dim Ruta As String Dim Listado() As Variant Set Dir = CreateObject("Scripting.FileSystemObject") Ruta = "C:\Excel\" ' ruta donde mirar On Error GoTo Error Set Carpeta = Dir.GetFolder(Ruta) For Each Archivo In Carpeta.Files ' recorremos los archivos de la carpeta If InStr(1, Archivo.Name, "~$") = 0 And _ InStr(1, Archivo.Name, "xlsm") = 0 And _ Archivo.Name <> "C:\Excel\Libro.xlsm" Then ' exclusiones AbrirarchivoExterno (Ruta & Archivo.Name) ' abrimos el archivo End If Next Exit Sub Error: MsgBox "Ruta inexistente", vbCritical End Sub Sub AbrirarchivoExterno(Archivo) On Error Resume Next If Len(Archivo) > 0 Then Set ArchivoAbrir = Workbooks.Open(Archivo) Workbooks.Open(Archivo).Application.Visible = False ' abrimos el archivo en modo invisible Comprueba ' comprobamos el archivo abierto Cerrar (Archivo) ' cerramos el archivo abierto End If End Sub Sub Cerrar(Archivo) Set ArchivoAbrir = Workbooks.Open(Archivo) ArchivoAbrir.Save ArchivoAbrir.Close End Sub Sub Comprueba() Dim Texto As String Texto = Range("Bc30").Value Select Case Texto Case Is = "hogares" Range("bc30").Value = "infiernos" Case Is = "alquileres" Range("bc30").Value = "placeres" Case Is = "compartir" Range("bc30").Value = "genesis" Case "infiernos", "placeres", "genesis" Case Else Range("Bc30").Value = "" End Select End Sub    suerte.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy