Como pasar un nombre de un libro a variable
Hola experto primero que nada gracias por la ayuda que puedas darme
tengo echa una macro este es parte del código
Workbooks.Open ("C:\Documents and SettingsRegiones\consolidado costos\BODEGA.xls")
Lo que necesito es como hacer para que el archivo bodega sea variable
ya que todos los días me llega con un nombre distinto pero con el mismo tipo de información eso.
Parece no ser tan difícil pero en realidad le he dado muchas vueltas al asunto y no puedo solucionarlo
gracias de antemano
tengo echa una macro este es parte del código
Workbooks.Open ("C:\Documents and SettingsRegiones\consolidado costos\BODEGA.xls")
Lo que necesito es como hacer para que el archivo bodega sea variable
ya que todos los días me llega con un nombre distinto pero con el mismo tipo de información eso.
Parece no ser tan difícil pero en realidad le he dado muchas vueltas al asunto y no puedo solucionarlo
gracias de antemano
Respuesta de Enrique Bernal
1
Pues primero debes llenar una variable con el nombre del archivo, este puede estar en una celda
a=Range("A1").value
o se lo puedes dar a travez de un input
a = inputbox("Ingrese el nombre del archivo")
Luego modificas una parte de tu código, pero esto depende de como ingresas la info ya sea en la celda o en inputbox, esto por la terminología del archivo
ejm1:
Workbooks.Open ("C:\Documents and SettingsRegiones\consolidado costos\" & a & ".xls")
ejm2: Si ya la terminologia del archivo lo tienes en la variable
Workbooks.Open ("C:\Documents and SettingsRegiones\consolidado costos\" & a)
Espero esto sea lo que necesitas, no olvides finalizar la pregunta
a=Range("A1").value
o se lo puedes dar a travez de un input
a = inputbox("Ingrese el nombre del archivo")
Luego modificas una parte de tu código, pero esto depende de como ingresas la info ya sea en la celda o en inputbox, esto por la terminología del archivo
ejm1:
Workbooks.Open ("C:\Documents and SettingsRegiones\consolidado costos\" & a & ".xls")
ejm2: Si ya la terminologia del archivo lo tienes en la variable
Workbooks.Open ("C:\Documents and SettingsRegiones\consolidado costos\" & a)
Espero esto sea lo que necesitas, no olvides finalizar la pregunta
