InputBox para nombre de archivo
Buenos días Carlos. Estoy intentando hacer una macro en la cual tiene que abrir un archivo, cuya parte del nombre es la fecha del día que se creó. Para poder abrirlo, estoy utilizando el comando InputBox, el cual le pide al usuario que introduzca el mes y el día. Mi problema radica en que me envía error de sintaxis. Tengo varios días intentando buscar mi error, sin logro alguno. Acudo a ti como experto a ver si me guían por el camino correcto. El archivo tiene como nombre: isa_pan_v00_20100617.odb, donde lo que estoy pidiendo al usuario que introduzca es 0617 y así concatenarlo con el nombre del archivo. Lo que tengo hasta ahora es:
Dim dato As Integer
dato = Val(InputBox("Introducir mes y dia:"))
Workbooks.OpenText Filename:="F:\Vax Files 2010\ODB files\isa_pan_v00_2010" & dato ".odb", _
Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 5), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1)), TrailingMinusNumbers:=True
Gracias de antemano. Slds
Dim dato As Integer
dato = Val(InputBox("Introducir mes y dia:"))
Workbooks.OpenText Filename:="F:\Vax Files 2010\ODB files\isa_pan_v00_2010" & dato ".odb", _
Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 5), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1)), TrailingMinusNumbers:=True
Gracias de antemano. Slds
1 Respuesta
Respuesta de Carlos Serrano
1
El error radica en que tienes que declarar mejor la variable asociada y que cuando vas a usar la función de abrir es más adecuado concatenar así:
Public Sub abir_un_librox()
Dim dato As Integer
dato = Val(InputBox("Insertar dato en numeros", "Insercion de fecha"))
If dato >= 1 Then
x = CStr(dato)
Workbooks.Open Filename:="C:\Users\Ing. Carlos\Desktop\libro" + x + ".xlsx"
Else
MsgBox prompt:="El dato insertado no es un numero valido, corrija por favor", Title:="Error de dato"
End If
End Sub
Ese fue un ejemplo completo de como se hace el abre un libro de numero por sea uno o 2 y así. Así lo haces más fácil.
Recuerda visitar www.ayconcol.com son expertos en el tema ellos también responden de forma gratuita directamente en la web o por todoexpertos en un pequeño espacio een la página principal, si quieres aprender más puedes meterte en www.ayconcol.com/foro creas usuario y todo y listo! Si quieres ellos también elaboran aplicativos a un costo muy bajo!
Public Sub abir_un_librox()
Dim dato As Integer
dato = Val(InputBox("Insertar dato en numeros", "Insercion de fecha"))
If dato >= 1 Then
x = CStr(dato)
Workbooks.Open Filename:="C:\Users\Ing. Carlos\Desktop\libro" + x + ".xlsx"
Else
MsgBox prompt:="El dato insertado no es un numero valido, corrija por favor", Title:="Error de dato"
End If
End Sub
Ese fue un ejemplo completo de como se hace el abre un libro de numero por sea uno o 2 y así. Así lo haces más fácil.
Recuerda visitar www.ayconcol.com son expertos en el tema ellos también responden de forma gratuita directamente en la web o por todoexpertos en un pequeño espacio een la página principal, si quieres aprender más puedes meterte en www.ayconcol.com/foro creas usuario y todo y listo! Si quieres ellos también elaboran aplicativos a un costo muy bajo!
