selecionar archivos , copiar hoja, y dar nombre desde celda de referencia
publicado
hola a todos aqui tratando de hacer la siguiente tarea :
lo que hago manualmente es lo siguiente:
abro un archivo en una carpeta x , este archivo es en formato xls , luego abro otro archivo que es el archivo de formato especial que contiene 2 pestañas
luego copio desde el archivo de la carpeta todo la hoja ,al archivo de formato especial
despues seleciono la celda j2 de la pestaña Solicitud cliente del archivo formato especial, copio ese dato
y luego me voy a la pestaña CSV COMMA DELIMITED , para despues guardar el archivo con el nombre de la celda J2
hola a todos aqui tratando de hacer la siguiente tarea :
lo que hago manualmente es lo siguiente:
abro un archivo en una carpeta x , este archivo es en formato xls , luego abro otro archivo que es el archivo de formato especial que contiene 2 pestañas
luego copio desde el archivo de la carpeta todo la hoja ,al archivo de formato especial
despues seleciono la celda j2 de la pestaña Solicitud cliente del archivo formato especial, copio ese dato
y luego me voy a la pestaña CSV COMMA DELIMITED , para despues guardar el archivo con el nombre de la celda J2
en formato csv delimitado
a nivel gravador de macro me da este codigo,
Sub es()
'
' es Macro
'
'
Range("A1").Select
Windows("E1708-08.xls").Activate
Windows("Archivo para carga 2 0.xls").Activate
Windows("E1708-08.xls").Activate
Cells.Select
Selection.Copy
Windows("Archivo para carga 2 0.xls").Activate
Cells.Select
ActiveSheet.Paste
Range("J2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "E1708-08"
ActiveSheet.Next.Select
Windows("E1708-08.xls").Activate
Windows("Archivo para carga 2 0.xls").Activate
Windows("E1708-08.xls").Activate
Windows("Archivo para carga 2 0.xls").Activate
ChDir "C:\Users\eagb\Desktop\clases vb macros excel\MACROS"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\eagb\Desktop\clases vb macros excel\MACROS\E1708-08.csv", FileFormat _
:=xlCSV, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.Close
End Sub
gracias , si me pueden ayudar
tambien trato cada dia mas de ir entendiendo las macros
estudiando , pero aun me falta
E1708-08 - copia.xls
Archivo para carga 2 0.xls