Macros en excel
Estoy haciendo una aplicación para un sistema sap r3, debo importar un archivo en formato excel directamente del sap, y después pasarlo a access para crear una aplicación, lo que necesito saber es como se ejecuta una macro desde access para borrar unas filas y unas columans de la tabla de excel que importo del sap.POR FAVOR RESPONDERME ES URGENTE.
1 respuesta
Respuesta de anders
1
Adjunto el código para abrir/modificar/cerrar Excel desde por ejemplo Access. /Anders
Sub Iniciar_Excel_desde_Access()
Dim xl As Object
'abre libro de Excel
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open Filename:="C:\Libro_de_Excel.xls"
xl.Visible = True
'modifica libro de Excel (ejemplos)
xl.Application.Sheets("Sheet1").Activate
xl.Application.ActiveWindow.Zoom = 75
xl.Application.ActiveSheet.Range("A1") = "Hola"
xl.Application.Rows(2).Delete
'termina Excel (importante)
xl.Application.ActiveWindow.Close savechanges = "True"
Set xl = Nothing
End Sub
Sub Iniciar_Excel_desde_Access()
Dim xl As Object
'abre libro de Excel
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open Filename:="C:\Libro_de_Excel.xls"
xl.Visible = True
'modifica libro de Excel (ejemplos)
xl.Application.Sheets("Sheet1").Activate
xl.Application.ActiveWindow.Zoom = 75
xl.Application.ActiveSheet.Range("A1") = "Hola"
xl.Application.Rows(2).Delete
'termina Excel (importante)
xl.Application.ActiveWindow.Close savechanges = "True"
Set xl = Nothing
End Sub
