UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Buenas tardes, necesitaría terminar una macro que al guardarla, me añadiese al nombre la fecha del día :

en ve de =  Factura.xls
Seria así  = Factura"=HOY()".xls
O así      =  Factura"Fecha actual".xls

Un saludo

railar


Hola Luis,
Con esta macro, se guarda una copia del archivo, cuyo nombre comienza inicialmente con la fecha seguida del nombre del archivo,
para que guardes en orden cronológico y tus búsquedas en la carpeta sean más acertadas. 
Código:
Sub GuardarCopiaFechada()  ' Guarda una copia del archivo en la misma carpeta con la fecha y el nombre y su extensión
    DatoFechador = Format(Date, "dd-mm-yyyy")
    FilePath = ThisWorkbook.Path & "/" & DatoFechador & "-" & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs (FilePath)
End Sub

Cuando ejecutes la macro puedes verificar en la carpeta (misma ruta del archivo), que efectivamente hay una copia del archivo en el que estás trabajando.

Entre otras cosas, la voy a utilizar también para reordenar mi baúl de Excel 

Saludos

Invitado


Invitado
Buenos días y gracias por responder.
No me ha servido o no he sabido usar lo que me has mandado. Uso una macro en excel para guardar selección en formato Word que me funciona perfecto pero necesito que después del nombre me salga la fecha, la MACRO que uso es:
Sub Excel_Word_FALCATA()
On Error Resume Next
Dim Wordapn As Object

'el archivo Word se guarda en la misma ruta que el archivo Excel
Ruta = ThisWorkbook.Path

'copiar rango, en este caso supone que todos los datos desde A1 pueden ser seleccionados y copiados
'si no,  determinar el rango a copiar
Selection.Copy
 
'crear nueva aplicación Word
Set Wordapn = CreateObject("Word.Application")

'nombre del archivo word, puede hacer referencia a una celda u otro dato
n_archivo = "mi_doc_word"
 
With Wordapn
  .Visible = True
  .Activate
End With
 
'crear nuevo documento Word
Wordapn.Documents.Add
 
'pegar celdas Excel
Wordapn.Selection.Paste


'guardar como
Wordapn.ActiveDocument.SaveAs "G:\Pedido FALCATA.doc"
'liberar el objeto Word
Set Wordapn = Nothing

 
End Sub

Gracias

tyno


Hola Luis, saludos Raul.

Luis, lo que te ha respondido Raúl es un ejemplo de como debería hacerse lo que has pedido y que por cierto funciona bien. Por lo tanto lo que hay que ver es como adaptar eso que te paso Raúl a tu código.

Agrega y/o modifica lo siguiente que esta en rojo:


Sub Excel_Word_FALCATA()
On Error Resume Next
Dim Wordapn As Object

'establecemos una variable para la fecha
DatoFechador = Format(Date, "dd-mm-yyyy")

'el archivo Word se guarda en la misma ruta que el archivo Excel
Ruta = ThisWorkbook.Path

'copiar rango, en este caso supone que todos los datos desde A1 pueden ser seleccionados y copiados
'si no,  determinar el rango a copiar
Selection.Copy
 
'crear nueva aplicación Word
Set Wordapn = CreateObject("Word.Application")

'nombre del archivo word, puede hacer referencia a una celda u otro dato
n_archivo = "mi_doc_word"
 
With Wordapn
  .Visible = True
  .Activate
End With
 
'crear nuevo documento Word
Wordapn.Documents.Add
 
'pegar celdas Excel
Wordapn.Selection.Paste


'guardar como (Después de la palabra FALCATA dejar un espacio  entre ésta  y la comilla)
Wordapn.ActiveDocument.SaveAs "G:\Pedido FALCATA " &  DatoFechador & " .doc"
'liberar el objeto Word
Set Wordapn = Nothing

 
End Sub

Saludos

Invitado


Invitado
Buenas tardes Raul y tyno.
Perfecto muchas gracias por vuestra ayuda.
Un saludo

Invitado


Invitado
Por mi, tema resuelto.
Muchas gracias

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.