Errore run time 1004

Hai un problema con Excel?

Nuova discussione

Errore run time 1004
di Marco (utente non iscritto) data: 25/03/2011
Buonasera a tutti,
mi rivolgo a voi per un problema con vba di cui ammetto di non essere espertissimo.
ho creato una macro che mi permette, scrivendo nella cella (1,1) il nome, di ottenere la tabella desiderata di un database access.
la macro funziona correttamente ma una volta richiamata una tabella non mi permette di richiamarne altre dandomi l'errore 1004 come da titolo. l'errore specifica che è "impossibile creare una tabella sovrapposta a un intervallo contenente un rapporto di tabella pivot, risultati di query, celle protette o un'altra tabella."
vi allego il codice, qualcuno saprebbe gentilmente darmi una mano?
grazie

Sub Macro1()

       With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=C:Documents and SettingsGrishnackhDocumentiNBA.accdb" _
        , _
        ";Mode=ReadWrite;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Je" _
        , _
        "t OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1" _
        , _
        ";Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy" _
        , _
        " Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False" _
        , ""), Destination:=Range("$E$2")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array(Cells(1, 1))
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = _
        "C:Documents and SettingsGrishnackhDocumentiNBA.accdb"
        .ListObject.DisplayName = "Tabella_NBA.accdb"
        .Refresh BackgroundQuery:=False
    End With
  
End Sub

Vuoi Approfondire?