Impossibile modificare, aggiungere o eliminare dati in tabelle collegate a una cartella di lavoro di Excel in Office Access 2007, in Office Access 2003 o in Access 2002

• Si crea una query per recuperare dati da tabelle collegate a una cartella di lavoro di Excel.
• Si crea un modulo che accede a dati di tabelle collegate a una cartella di lavoro di Excel.
• Si utilizza DAO o ADO per aggiornare a livello di programmazione tabelle collegate a una cartella di lavoro di Excel.

Torna all'inizio

• È in uso Office Access 2007.
• Si è installato Microsoft Office 2003 Service Pack 2 (SP2) o un aggiornamento di Access 2003 rilasciato dopo Office 2003 SP2.
  
  Per ulteriori informazioni su Microsoft Office 2003 Service Pack 2, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito:
  887616  (http://support.microsoft.com/kb/887616/ ) Descrizione di Office 2003 Service Pack 2
• Si è installato l'aggiornamento per Access 2002 (KB904018) datato 18 ottobre 2005.
  
  Per ulteriori informazioni sull'aggiornamento per Access 2002 (KB904018), fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito:
  904018  (http://support.microsoft.com/kb/904018/ ) Descrizione dell'aggiornamento per Access 2002 del 18 ottobre 2005
• È stata installata un'applicazione Access Runtime che include Microsoft Office 2003 Service Pack 2 (SP2), tutti gli aggiornamenti di Access 2003 rilasciati dopo Office 2003 SP2 oppure l'aggiornamento di Access 2002 (KB904018) del 18 ottobre 2005 o successivo.
  Per ulteriori informazioni sull'inclusione dei file di aggiornamento di Office in un'applicazione Access Runtime, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito:
  916176  (http://support.microsoft.com/kb/916176/ ) Quando si crea un pacchetto di installazione per un'applicazione di Access 2003 o Access 2002, nella procedura guidata vengono utilizzati i file di runtime inclusi nella versione finale di Access

Torna all'inizio

Torna all'inizio

Metodo 1: Utilizzo di Microsoft Excel

Torna all'inizio

Metodo 2: Utilizzo di Office Access 2007, Access 2003 o 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> è il segnaposto per la query che viene eseguita sulle tabelle del database di Access. Il risultato della query viene esportato nella cartella di lavoro di Excel.
• <WorkSheets>
  <WorkSheets> è il segnaposto per il foglio di lavoro di Excel in cui si desidera esportare il risultato.

Torna all'inizio