Excel - ayuda con inputbox, relacionada con metodo open

ayuda con inputbox, relacionada con metodo open

Publicado por daniel (4 intervenciones) el 16/03/2022 00:11:21

Sub MetodoAbrirLibro()

Dim z As String

With ActiveSheet
z = InputBox("Ingrese direccion de busqueda", "BUSQUEDA DE ARCHIVO")

Workbooks(z).Open

End With

End Sub

lo que busco con esta macro es poder abrir un archivo o libro utilizando el inputbox, pero me arroja un erros en tiempo de ejecucion '9', el depurador muestra el error en la linea "Workbooks(z).Open"

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 4.908

ayuda con inputbox, relacionada con metodo open

Publicado por Antoni Masana (2478 intervenciones) el 16/03/2022 14:20:10

Basicaménte lo que tiene que hacer el procedimiento es esto:

Sub MetodoAbrirLibro()

    Dim z As String

    z = InputBox("Ingrese direccion de busqueda", "BUSQUEDA DE ARCHIVO")

    Workbooks.Open Filename:=z

End Sub

Ahora bien si lo quieres hacer bien, valga la redundancia, has lo así:

Sub MetodoAbrirLibro()

    Dim z As String

    z = InputBox("Ingrese direccion de busqueda", "BUSQUEDA DE ARCHIVO")

    IF Dir(z)  = "" Then

        MsgBox "No existe el fichero: " & z

    Else

        Workbooks.Open Filename:=z

    End If

End Sub

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

ayuda con inputbox, relacionada con metodo open

Publicado por daniel (4 intervenciones) el 16/03/2022 14:57:38

Sub MetodoAbrirLibro()
Dim z As String
z = InputBox("Ingrese direccion de busqueda", "BUSQUEDA DE ARCHIVO")
IF Dir(z) = "" Then
MsgBox "No existe el fichero: " & z
Else
Workbooks.Open Filename:=z
End If
End Sub

Use esta, pero ahroa me arroja error '52', "nombre o numero de archivo incorrecto"

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

ayuda con inputbox, relacionada con metodo open

Publicado por Antoni Masana (2478 intervenciones) el 16/03/2022 15:28:01

No se que tipo de archivo quieres abrir pero a mi me funciona perfectamente.
Puede que sea un problema de versión de Excel.

Saludos.
\\//_

Valora esta respuesta

Comentar

ayuda con inputbox, relacionada con metodo open

Publicado por daniel (4 intervenciones) el 16/03/2022 16:21:36

es un archivo normal de excel, lo que pasa es que trabajo en una empresa en el area contable, yo hago inventarios lo que quiero hacer realmente es una macro que verifique una planilla de ventas, porque el proceso me toma mucho tiempo, y para hacer esto yo habia diseñado otras macros para inventario y quiero adjuntarla con esas, pero me da problema para abrir el archivo.

Sub NUEVO()

Dim INI As Long
Dim FIN As Long
Dim NOM As String
Dim Shape As Excel.Shapes
Dim Nombre As Name

With Sheets("FORMATO")
INI = .Range("INICIAL").Row
FIN = .Range("FINAL").Row
NOM = Format(.Range("j10").Value, "dd mm yyyy")
If Val(NOM) = 0 Then
MsgBox "Debes ingresar fecha Fecha del Inventario Final!", vbCritical, "Información ...DSMsoft"
.Range("j10").Select
Exit Sub
End If
.Copy After:=Sheets("FORMATO")
Sheets("FORMATO (2)").Name = NOM
.Range("J" & INI & ":L" & FIN).Copy
.Range("D" & INI).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Range("G" & INI & ":K" & FIN).ClearContents
.Range("J10:L10").Copy
.Range("D10:F10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Range("J10:L10").ClearContents
.Range("J10:L10").Select
End With
For Each Shapes In Sheets(NOM).Shapes
Shapes.Delete
Next Shapes

For Each Nombre In Sheets(NOM).Names
Nombre.Delete
Next Nombre

MsgBox "Proceso terminado, se creo con exito copia de inventario del día " & NOM, vbInformation, "Información ...DSMsoft"
End Sub

esta la hice, para copiar y pegar, la finalidad es reiniciar el inventario para un dia nuevo. ahora quiero anexar a esta. la otra y por eso quiero poder abrir desde el libro en que tengo esta macro otro libro en donde pueda aplicar la busqueda de lo que necesito.

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

ayuda con inputbox, relacionada con metodo open

Publicado por Antoni Masana (2478 intervenciones) el 16/03/2022 17:19:09

En esta macro veo que copias y pegas datos en una hoja, no se exactamente que hace.
Para abrir un archivo, Libro Excel en este caso, y saber que comandos hay que utilizar lo mejor es, aparte de leer manuales o buscar en internet, preguntarselo al Excel que mejor que nadie para saberlo.

Y te preguntaras como se hace esto, pues bien sencillo y que me ha resultado de mucha utilidad, es GRABAR MACRO, realzar la acción, parar la grabación y ver que ha escrito el Excel.

En el caso de abrir un libro me escribe esto:

Sub Macro1()

    Workbooks.Open Filename:="....."

End Sub

Dentro de las comillas está la ruta y el nombre del libro. Otras veces debo recurrir a Google para buscar la solución.

Te pongo un extracto de una macro mía que abre varios libros para actualizarlos.

Sub Ejecutar_Macros()

...

    For a = 1 To 15

        c_Book = c_Cabe + " - " + Tipo(a)

        c_File = c_Ruta + "\" + c_Book

        If Dir(c_File) <> "" Then

            Workbooks.Open Filename:=c_File, Origin:=xlWindows

            ' ---&--- Actualizar

            If ActiveWorkbook.ReadOnly Then

                Call Mail_Outlook(MAIL_Uso, c_Book)

            Else

                Texto_1.Caption = "Actualizando:"

...

            End If

En esta macro abre hasta 15 libros, antes de intentar abrir el libro verifica que exista y después de abrirlo verifica que no lo abierto por otro usuário.
Cuando hice la macro tenia una versión más antigua que la actual, hacia falta el , Origin:=xlWindows y puede que en tu caso si lo añares ya no de error.

Sub MetodoAbrirLibro()

    Dim z As String

    z = InputBox("Ingrese direccion de busqueda", "BUSQUEDA DE ARCHIVO")

    IF Dir(z)  = "" Then

        MsgBox "No existe el fichero: " & z

    Else

        Workbooks.Open Filename:=z, Origin:=xlWindows

    End If

End Sub

Si puedes pasarme unos libros de ejemplo y explicarme que quieres hacer podría ayudarte.

No entiendo que tiene que ver esta macro con la anterior

Sub NUEVO()

    Dim INI As Long

    Dim FIN As Long

    Dim NOM As String

    Dim Shape As Excel.Shapes

    Dim Nombre As Name

    With Sheets("FORMATO")

        INI = .Range("INICIAL").Row

        FIN = .Range("FINAL").Row

        NOM = Format(.Range("j10").Value, "dd mm yyyy")

        If Val(NOM) = 0 Then

            MsgBox "Debes ingresar fecha Fecha del Inventario Final!", vbCritical, "Información ...DSMsoft"

            .Range("j10").Select

            Exit Sub

        End If

        .Copy After:=Sheets("FORMATO")

        Sheets("FORMATO (2)").Name = NOM

        .Range("J" & INI & ":L" & FIN).Copy

        .Range("D" & INI).PasteSpecial _

                          Paste:=xlPasteValues, _

                          Operation:=xlNone, _

                          SkipBlanks:=False, Transpose:=False

        .Range("G" & INI & ":K" & FIN).ClearContents

        .Range("J10:L10").Copy

        .Range("D10:F10").PasteSpecial _

                          Paste:=xlPasteValues, _

                          Operation:=xlNone, _

                          SkipBlanks:=False, _

                          Transpose:=False

        .Range("J10:L10").ClearContents

        .Range("J10:L10").Select

    End With

    For Each Shapes In Sheets(NOM).Shapes

        Shapes.Delete

    Next Shapes

    For Each Nombre In Sheets(NOM).Names

        Nombre.Delete

    Next Nombre

    MsgBox "Proceso terminado, se creo con exito copia de inventario del día " & NOM, vbInformation, "Información ...DSMsoft"

End Sub

Saludos.
\\//_

Valora esta respuesta

Comentar

ayuda con inputbox, relacionada con metodo open

Publicado por daniel (4 intervenciones) el 16/03/2022 17:26:16

dejame un numero de whatsapp o otro medio alterno, para poder darte mas informacion sobre lo que busco hacer, y explicarte en que consiste la ultima macro que te envie

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

ayuda con inputbox, relacionada con metodo open

Publicado por Antoni Masana (2478 intervenciones) el 16/03/2022 17:33:00

Yo estoy en españa y no se tal lo ira lo del Whatsapp, mejor te dejo un correo: [email protected]

Saludos.
\\//_

Valora esta respuesta

Comentar

Como puedo filtrar combobox (no es userform)

Macro añadir columna