Últimos mensajes - Powered by IBM

Palabras claves

insertar HORA-MINUTO-SEGUNDO

24/09/2003 - 17:50 por Javier Avila | Informe spam

Hola Hola, saludos!
Quiero insertar la hora como un string de nombre de un archivo tengo lo
siguiente (me quede a medias puesto que al parecer la funcion hora()ó
time() no existe:

Const strRuta As String = "C:\Documents and Settings\Javier\Escritorio\"
'Directorio donde se almacenarán los libros
Me.SaveAs Filename:=strRuta & "CE" & "-" & Day(Now()) & "-"
& Month(Now()) & "-" & Year(Now())& "_" time(now()),
FileFormat:=xlWorkbookNormal

Hice un desgloce (no se si se escribe asi=) de los componentes del
comando date(now()) ya que cuando manda ese string a que lo guarde excel
me da un error que no encuentra el directorio 24/09/2003 ya que es asi
como excel manda el string... ufa que complicado. Bueno en resumen no se
puede dar el comando date(now()) para que lo guarde como parte del
nombre del archivo ya que excel se confunde.
Y lo que yo hice fue descuartizar el comando date en sus partes date,
month, year, pero me tope con que no tiene el comando hora o algo
parecido, alguien me puede ayudar? quiero guardar el archivo con un formato:

"CE_24-09-2003_11-59-36_NombreClienteQueEstaEnCeldaB3.xls"

GRACIAS!
Javier Avila
System Adminsitrator

10 out of 5 doctors think it's OK to be schizofrenic.

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 braulio

25/09/2003 - 08:41 | Informe spam

Hola Javier:

Si utilizas la función Now tendrás la fecha y la hora.
Prueba "MsgBox Now" para ver la información que te ofrece.
Si con este formato no te sirve puedes extraer con "Left"
y "Righ" cada una de las partes.

Hola Hola, saludos!
Quiero insertar la hora como un string de nombre de un

archivo tengo lo

siguiente (me quede a medias puesto que al parecer la

funcion hora()ó

time() no existe:

Const strRuta As String = "C:\Documents and

Settings\Javier\Escritorio\"

'Directorio donde se almacenarán los libros
Me.SaveAs Filename:=strRuta & "CE" & "-" &

Day(Now()) & "-"

& Month(Now()) & "-" & Year(Now())& "_" time(now()),
FileFormat:=xlWorkbookNormal

Hice un desgloce (no se si se escribe asi=) de los

componentes del

comando date(now()) ya que cuando manda ese string a que

lo guarde excel

me da un error que no encuentra el directorio 24/09/2003

ya que es asi

como excel manda el string... ufa que complicado. Bueno

en resumen no se

puede dar el comando date(now()) para que lo guarde como

parte del

nombre del archivo ya que excel se confunde.
Y lo que yo hice fue descuartizar el comando date en sus

partes date,

month, year, pero me tope con que no tiene el comando

hora o algo

parecido, alguien me puede ayudar? quiero guardar el

archivo con un formato:

"CE_24-09-2003_11-59-36_NombreClienteQueEstaEnCeldaB3.xls"

GRACIAS!
Javier Avila
System Adminsitrator

10 out of 5 doctors think it's OK to be schizofrenic.

.

Responder a este mensaje

#2 Fernando Arroyo

25/09/2003 - 09:23 | Informe spam

Prueba con:

Me.SaveAs Filename:=strRuta & "CE" & "-" & Day(Now()) & "-" & Month(Now()) & "-" & Year(Now()) & "_" & Hour(Now()) & "-" & Minute(Now()) & "-" & Second(Now()) & "_" & Worksheets("NombreDeLaHoja").Range("B3"), FileFormat:=xlWorkbookNormal

Con esto la hora podría quedar como, p.ej., 9-5-5 para las 09:05:05. Si necesitas que aparezcan los ceros, prueba con:

Me.SaveAs Filename:=strRuta & "CE" & "-" & Day(Now()) & "-" & Month(Now()) & "-" & Year(Now()) & "_" & Right("0" & Hour(Now()), 2) & "-" & Right("0" & Minute(Now()), 2) & "-" & Right("0" & Second(Now()), 2) & "_" & Worksheets("NombreDeLaHoja").Range("B3"), FileFormat:=xlWorkbookNormal

Un saludo.

Fernando Arroyo
MS MVP - Excel

"Javier Avila" escribió en el mensaje news:

Hola Hola, saludos!
Quiero insertar la hora como un string de nombre de un archivo tengo lo
siguiente (me quede a medias puesto que al parecer la funcion hora()ó
time() no existe:

Const strRuta As String = "C:\Documents and Settings\Javier\Escritorio\"
'Directorio donde se almacenarán los libros
Me.SaveAs Filename:=strRuta & "CE" & "-" & Day(Now()) & "-"
& Month(Now()) & "-" & Year(Now())& "_" time(now()),
FileFormat:=xlWorkbookNormal

Hice un desgloce (no se si se escribe asi=) de los componentes del
comando date(now()) ya que cuando manda ese string a que lo guarde excel
me da un error que no encuentra el directorio 24/09/2003 ya que es asi
como excel manda el string... ufa que complicado. Bueno en resumen no se
puede dar el comando date(now()) para que lo guarde como parte del
nombre del archivo ya que excel se confunde.
Y lo que yo hice fue descuartizar el comando date en sus partes date,
month, year, pero me tope con que no tiene el comando hora o algo
parecido, alguien me puede ayudar? quiero guardar el archivo con un formato:

"CE_24-09-2003_11-59-36_NombreClienteQueEstaEnCeldaB3.xls"

GRACIAS!
Javier Avila
System Adminsitrator

10 out of 5 doctors think it's OK to be schizofrenic.

Responder a este mensaje

#3 Héctor Miguel

25/09/2003 - 09:24 | Informe spam

Hola, Javier !

... insertar la hora como ... nombre de un archivo ...al parecer la funcion hora() o time() no existe:
... quiero guardar el archivo con un formato: "CE_24-09-2003_11-59-36_NombreClienteQueEstaEnCeldaB3.xls"
Me.SaveAs Filename:=strRuta & "CE" & "-" & Day(Now()) & "-" & Month(Now()) & "-" & Year(Now())& "_" time(now()), [...]

==> en VBA se usan las funciones Date y Time =>SIN PARENTESIS<= y se les puede 'asignar' un 'X' formato 'de salida'
puedes 'obtener el string' para el nombre de tu archivo [de una forma 'mas corta'] +/- como sigue:
Me.SaveAs _
FileName:=strRuta & "CE_" & _
Format(Date, "dd-mm-yyyy") & "_" & _
Format(Time, "hh-mm-ss") & "_" & Range("b3"), _
FileFormat:=xlWorkbookNormal
_______
Saludos,
Héctor.
MS-MVP

Responder a este mensaje

#4 Javier Avila

25/09/2003 - 15:48 | Informe spam

Definitivamente me dieron una cátedra de hora y fecha, gracias jovenes
aproveche de los 3 las explicaciones, saludos

Javier Avila wrote:

Hola Hola, saludos!
Quiero insertar la hora como un string de nombre de un archivo tengo lo
siguiente (me quede a medias puesto que al parecer la funcion hora()ó
time() no existe:

Const strRuta As String = "C:\Documents and Settings\Javier\Escritorio\"
'Directorio donde se almacenarán los libros
Me.SaveAs Filename:=strRuta & "CE" & "-" & Day(Now()) & "-"
& Month(Now()) & "-" & Year(Now())& "_" time(now()),
FileFormat:=xlWorkbookNormal

Hice un desgloce (no se si se escribe asi=) de los componentes del
comando date(now()) ya que cuando manda ese string a que lo guarde excel
me da un error que no encuentra el directorio 24/09/2003 ya que es asi
como excel manda el string... ufa que complicado. Bueno en resumen no se
puede dar el comando date(now()) para que lo guarde como parte del
nombre del archivo ya que excel se confunde.
Y lo que yo hice fue descuartizar el comando date en sus partes date,
month, year, pero me tope con que no tiene el comando hora o algo
parecido, alguien me puede ayudar? quiero guardar el archivo con un
formato:

"CE_24-09-2003_11-59-36_NombreClienteQueEstaEnCeldaB3.xls"

GRACIAS!

Javier Avila
System Adminsitrator

Does anyone REALLY read these stupid quotes?

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida