Hola. Estoy declarando una variable de una ruta al abrir un libro para después utilizarla en varios módulos. La pruebo con MsgBox y la variable queda bien declarada pero al tratar de utilizarla en otro módulo su valor (también probado con una msgbox) queda en blanco. ¿por qué me pasa esto? No soy muy experto por lo cual agradezco una explicación relativamente simple. Muchas gracias
A continuación la declaración cuando se abre el libro:
Option Explicit
Public ImpPredeter As String
Public RutaData As String
-----------------------------------------------------------------------------------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
ImpPredeter = ActivePrinter 'cuando se abre archivo se toma la impresora predeterminada de windows
RutaData = ThisWorkbook.Path & "\Data"
MsgBox (RutaData) 'aquí la ruta sale OK, sin problema
MsgBox (ImpPredeter)
End Sub
Ahora una macro donde pruebo la ruta primero para después abrir un libro pero no abre porque la ruta aparece vacía:
Sub rutaprueba()
MsgBox (RutaData) 'en este msgbox la ruta aparece vacía
Workbooks.Open (RutaData & "\Pant\PantallaLab.xlsb")
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola. Estoy declarando una variable de una ruta al abrir un libro para después utilizarla en varios módulos. La pruebo con MsgBox y la variable queda bien declarada pero al tratar de utilizarla en otro módulo su valor (también probado con una msgbox) queda en blanco. ¿por qué me pasa esto? No soy muy experto por lo cual agradezco una explicación relativamente simple. Muchas gracias
A continuación la declaración cuando se abre el libro:
Option Explicit
Public ImpPredeter As String
Public RutaData As String
-----------------------------------------------------------------------------------------
Private Sub Workbook_Open()
Application.ScreenUpdating = False
ImpPredeter = ActivePrinter 'cuando se abre archivo se toma la impresora predeterminada de windows
RutaData = ThisWorkbook.Path & "\Data"
MsgBox (RutaData) 'aquí la ruta sale OK, sin problema
MsgBox (ImpPredeter)
End Sub
Ahora una macro donde pruebo la ruta primero para después abrir un libro pero no abre porque la ruta aparece vacía:
Sub rutaprueba()
MsgBox (RutaData) 'en este msgbox la ruta aparece vacía
Workbooks.Open (RutaData & "\Pant\PantallaLab.xlsb")
End Sub