Corrección en la instrucción de guardar en CSV
Estimados.
fvr vuestra ayuda... Tengo la siguiente instrucción
Sub Macro3()
'
' Macro3 Macro
' grabar CSV
'
' Acceso directo: CTRL+g
'
Range("C7:G7").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\RipleyB2B\bulto"
ActiveWorkbook.SaveAs Filename:= _
"C:\RipleyB2B\bulto\Cambiame el Nombre Please.csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub
y necesito que por favor, me lo puedan modificar... Porque cuando se me abre o guarda este archivo aparece el nombre "cambiame el nombre please.csv" y quiero que lo abra o guarde con la fecha y minuto actual ejemplo: 11_12_12_28
se los agradeceré un montón....Saludos
1 Respuesta
La macro quedaría así:
Sub Macro3()
'
' Macro3 Macro
' grabar CSV
'
' Acceso directo: CTRL+g
'
Range("C7:G7").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\RipleyB2B\bulto"
nombre = day(date) & "_" & month(date) &"_"&hour(time)&_"&minute(time)
ActiveWorkbook.SaveAs Filename:="C:\RipleyB2B\bulto\" & nombre,FileFormat:=xlCSV
End Subno olvides finalizar la consulta
Estimado.
inserte un nuevo modulo y copie su instrucción y pegue en el nuevo modulo y cuando le di ejecutar me arrojo el siguiente mensaje " error de compilación: error de sintaxis"
fvr vuestra ayuda... mil gracias
Parece que había unos errores de sintaxis al copiar en la web, prueba ahora con esta:
Sub Macro3()
'
' Macro3 Macro
' grabar CSV
'
' Acceso directo: CTRL+g
'
Range("C7:G7").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\RipleyB2B\bulto\"
nombre = day(date) & "_" & month(date) & "_" & hour(time) & "_" & minute(time)
ActiveWorkbook.SaveAs nombre,FileFormat:=xlCSV
End Sub
