18/08/2015, 15:35
|
| | Fecha de Ingreso: agosto-2015
Mensajes: 3
Antigüedad: 9 años, 3 meses Puntos: 0 | |
Macro para Exportar a Plano buen día Amigos
soy nuevo en el foro y les agradezco de antemano la ayuda.
Paso a contarles:
Debo crear un archivo plano (tab) para subirlo a un sistema ERP, este archivo debe cumplir con ciertas características de los campos, algunos campos son siempre los mismos, algunos los recibo por una lectora de barras y otros de acuerdo a una elección.
Ya tengo la macro para exportar a un csv, pero no se como hacer para que al exportar me ingrese al plano los que son fijos.
Esta es la macro:
Sub Exportar()
mio = ActiveWorkbook.Name
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
Range("a:g").Copy
Workbooks(otro).Activate
Sheets(1).Range("a1").PasteSpecial Paste:=xlValues
nombre = Day(Date) & "_" & Month(Date) & "_" & Hour(Time) & "_" & Minute(Time)
ActiveWorkbook.SaveAs nombre, FileFormat:=xlCSV
ActiveWorkbook.Close False
End Sub
Gracias
Última edición por transmasivo; 18/08/2015 a las 15:42 |