3 inicio escribiendo el siguiente código para crear un nuevo sub procedimiento :
updateSpreadSheet Private Sub ()
On Error GoTo Err_updateSpreadSheet :
4
Escriba el siguiente código para crear el libro y los objetos de hoja de cálculo :
< p> wkBkObj As Excel.Workbook
xlSheet As Excel.Worksheet
5
abrir un libro de Excel existente y utilizar Sheet1 como la hoja de actualizar añadiendo el siguiente código:
Set wkBkObj = Workbooks.Open ("C: \\ mySpreadsheet.xlsx " )
Set xlSheet = wkBkObj.Worksheets ( "Sheet1 ")
wkBkObj.Windows
( 1 ) . Visible = True
6
Agregue el siguiente código de VBA para actualizar A1 de la hoja de cálculo : . .
xlSheet
Range (" A1") Seleccione
. Range (" A1") . valor = " valor actualizado de acceso"
End con fotos de 7
Guardar , cerrar el libro de Excel, y al final del procedimiento añadiendo el siguiente código:
wkBkObj.Save
wkBkObj.Close
Exit_updateSpreadSheet :
Exit Sub
Err_updateSpreadSheet : < br > MsgBox
Err.Description
Reanudar Exit_updateSpreadSheet :
End Sub
8
Press "F5 " para ejecutar el procedimiento y actualizar la hoja de cálculo < br . >