Não é possível alterar, adicionar nem eliminar dados nas tabelas que estão associadas a um livro do Excel no Office Access 2007, Office Access 2003 ou Access 2002

• Cria uma consulta para obter dados de tabelas que estão ligadas a um livro do Excel.
• Cria um formulário que acede a dados de tabelas que estão ligadas a um livro do Excel.
• Utiliza DAO ou ADO para actualizar programaticamente tabelas que estão ligadas a um livro do Excel.

Voltar ao topo

• Se estiver a utilizar o Office Access 2007.
• Instalou o Microsoft Office 2003 Service Pack 2 (SP2), um Service Pack posterior ou quaisquer actualizações do Access 2003 disponibilizadas após o Office 2003 SP2.
  
  Para obter mais informações sobre o Microsoft Office 2003 Service Pack 2, clique no número de artigo que se segue para visualizar o artigo na base de dados de conhecimento da Microsoft (KB, Microsoft Knowledge Base):
  887616  (http://support.microsoft.com/kb/887616/ ) Descrição do Office 2003 Service Pack 2
• Instalou a actualização do Access 2002 (KB904018) datada de 18 de Outubro de 2005.
  
  Para obter mais informações sobre a actualização do Access 2002 (KB904018), clique no número de artigo que se segue para visualizar o artigo na base de dados de conhecimento da Microsoft (KB, Microsoft Knowledge Base):
  904018  (http://support.microsoft.com/kb/904018/ ) Descrição da actualização do Access 2002: 18 de Outubro de 2005
• Instalou uma aplicação de tempo de execução do Access que inclui o Microsoft Office 2003 Service Pack 2 (SP2) ou um Service Pack posterior, actualizações do Access 2003 disponibilizadas depois do Office 2003 SP2 ou a actualização do Access 2002 (KB904018), de 18 de Outubro de 2005, ou posteriores.
  Para obter mais informações sobre como incluir ficheiros de actualização do Office numa aplicação de tempo de execução do Access, clique no número de artigo que se segue para visualizar o artigo na base de dados de conhecimento da Microsoft (KB, Microsoft Knowledge Base):
  916176  (http://support.microsoft.com/kb/916176/ ) O assistente utiliza os ficheiros run-time incluídos com a versão do Access quando cria um pacote de instalação para uma aplicação no Access 2003 ou Access 2002

Voltar ao topo

Voltar ao topo

Método 1: Utilizar o Microsoft Excel

Voltar ao topo

Método 2: Utilizar o Office Access 2007, Access 2003 ou Access 2002

Public Sub WorkArounds()
On Error GoTo Leave

    Dim strSQL, SQL As String
    Dim Db As ADODB.Connection
    Set Db = New ADODB.Connection
    Db.CursorLocation = adUseClient
    Db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=<AccessPath>"
    'Note: In Office Access 2007, use the following line of code:
    'Db.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=<AccessPath>"
    SQL = "<MyQuery>"
    CopyRecordSetToXL SQL, Db
    Db.Close
    MsgBox "Access has successfully exported the data to excel file.", vbInformation, "Export Successful."
    Exit Sub
Leave:
        MsgBox Err.Description, vbCritical, "Error"
        Exit Sub
End Sub

Private Sub CopyRecordSetToXL(SQL As String, con As ADODB.Connection)
    Dim rs As New ADODB.Recordset
    Dim x
    Dim i As Integer, y As Integer
    Dim xlApp As Excel.Application
    Dim xlwbBook As Excel.Workbook, xlwbAddin As Excel.Workbook
    Dim xlwsSheet As Excel.Worksheet
    Dim rnData As Excel.Range
    Dim stFile As String, stAddin As String
    Dim rng As Range
    stFile = "<ExcelPath>"
    'Instantiate a new session with the COM-Object Excel.exe.
    Set xlApp = New Excel.Application
    Set xlwbBook = xlApp.Workbooks.Open(stFile)
    Set xlwsSheet = xlwbBook.Worksheets("<WorkSheets>")
    xlwsSheet.Activate
    'Getting the first cell to input the data.
    xlwsSheet.Cells.SpecialCells(xlCellTypeLastCell).Select
    y = xlApp.ActiveCell.Column - 1
    xlApp.ActiveCell.Offset(1, -y).Select
    x = xlwsSheet.Application.ActiveCell.Cells.Address
    'Opening the recordset based on the SQL query and saving the data in the Excel worksheet.
    rs.CursorLocation = adUseClient
    If rs.State = adStateOpen Then
        rs.Close
    End If
    rs.Open SQL, con
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        x = Replace(x, "$", "")
        y = Mid(x, 2)
        Set rng = xlwsSheet.Range(x)
        xlwsSheet.Range(x).CopyFromRecordset rs
    End If
    xlwbBook.Close True
    xlApp.Quit
    Set xlwsSheet = Nothing
    Set xlwbBook = Nothing
    Set xlApp = Nothing

End Sub

• <AccessPath>
• <ExcelPath>
• <MyQuery>
  <MyQuery> é um marcador de posição para a consulta executada contra as tabelas da base de dados do Access. O resultado da consulta é exportado para o livro do Excel.
• <WorkSheets>
  <WorkSheets> é um marcador de posição para a folha do Excel para a qual pretende exportar o resultado.

Voltar ao topo