Exportar hoja excel a nuevo libro mediante macro
Tengo un formulario realizado con macros y vb, que me calcula cantidades de unidades etc dentro de un pedido y a continuación, lo envía a una hoja dentro de ese libro con un formato predefinido. Lo que necesito es mediante macro o programación, exportar esa nueva hoja con dicho formato, a un nuevo libro, pero solamente como texto, sin exportar formulación y demás.
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
[Hola
Te paso la macro
Valora la respuesta para finalizar
Sub copiahoja()
'Por.dam
'Act. Adriel Ortiz
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1")
'
ruta = ThisWorkbook.Path & "\"
ARCH = "NUEVA DATA"
h1.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ruta & ARCH & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close False
MsgBox "Archivo creado en " & ruta
End Sub
