Object Library " e clique em "OK" para adicionar a referência .
3 Comece digitando o seguinte código para criar uma nova sub procedimento :
Private Sub updateSpreadSheet ()
On Error GoTo Err_updateSpreadSheet :
4
Digite o seguinte código para criar os objetos de pasta de trabalho e planilha :
Dim wkBkObj como Excel.Workbook
Dim xlSheet como Excel.Worksheet
5
Abra uma pasta de trabalho do Excel existente e usar Sheet1 como a folha de atualizar , adicionando o seguinte código:
Definir wkBkObj = Workbooks.Open ( "C: \\ mySpreadsheet.xlsx " )
Set xlSheet = wkBkObj.Worksheets ( " Sheet1" )
wkBkObj.Windows (1) . Visible = True
6
Adicione o seguinte código VBA para atualizar A1 da planilha : . .
com xlSheet
Range (" A1") Selecione < Range (" A1") value = " valor atualizado de acesso" br>
. .
End With
7
Salvar , feche o livro do Excel, e no final do processo adicionando o seguinte código:
wkBkObj.Save
wkBkObj.Close
Exit_updateSpreadSheet :
Exit Sub
Err_updateSpreadSheet : < br >
MsgBox Err.Description Resume
Exit_updateSpreadSheet : .
End Sub
8
Pressione " F5" para executar o procedimento e atualizar sua planilha < br >