Macro y excel
Necesito hacer unos macros desde access que me permitan abrir unas hojas de excel contenidas en un solo libro
1 respuesta
Respuesta de ohmygood
1
Puedes hacerlo por código:
' se está ejecutando excel ?
On Error Resume Next
Set oXLS = GetObject(, "excel.application")
If Err.Number <> 0 Then
Err.Clear
Set oXLS = CreateObject("excel.application")
End If
On Error GoTo error_1
' abrir el libro y cargar la hoja
oXLS.Workbooks.Open sArch
Set oHoja = oXLS.ActiveWorkbook.Worksheets("MiHoja")
' Cargar valores
Variable = oHoja.Cells(iRow, iColumn).Value
....
' Cerrar sin salvar. Para salvar cambios, cambi el False por True
oXLS.ActiveWorkbook.Close savechanges:=False
' se está ejecutando excel ?
On Error Resume Next
Set oXLS = GetObject(, "excel.application")
If Err.Number <> 0 Then
Err.Clear
Set oXLS = CreateObject("excel.application")
End If
On Error GoTo error_1
' abrir el libro y cargar la hoja
oXLS.Workbooks.Open sArch
Set oHoja = oXLS.ActiveWorkbook.Worksheets("MiHoja")
' Cargar valores
Variable = oHoja.Cells(iRow, iColumn).Value
....
' Cerrar sin salvar. Para salvar cambios, cambi el False por True
oXLS.ActiveWorkbook.Close savechanges:=False
