[access-excel] metodo range dell'oggetto _global

[borgodiavalon]

non riesco a capire l'errore di questo codice, mi si blocca sulla linea evidenziata in rosso.
il suo scopo è quello di aprire un foglio excel da access, esportarvi i dati di una query a capi incrociati e di aggiornare il source del grafico sul foglio di excel. (excDoc e excApp sono già dichiarate in un altro modulo come public)

'definisco path
Modello = CurrentDb.Name
Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) & "modulistica\DEFINIZIONI.xlt"
'esporto i dati su excel
DoCmd.TransferSpreadsheet acExport, 8, "GRAFICO_3", Modello, False, ""

'apre excel
    blOpen = True
    Set excApp = GetObject(, "Excel.Application")
    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        blOpen = False
        Err.Number = 0
    End If

'apro file excel basato sul modello
Set excDoc = excApp.Workbooks.Add(Modello)
    excApp.Visible = True
    
'ciclo i dati importati per modificare i valori del grafico
Dim zona As Range
Dim CL As Object
    Dim X, uno  As String
    excDoc.Sheets("Grafico_3").Select
    
    Set zona = excDoc.Range(Range("b2"), Range("b10")) 'range delle colonne 
    For Each CL In zona
        If Not IsEmpty(CL.Value) Then
            uno = CL.Address
        Else
            Exit For
        End If
    Next
    
    excDoc.Sheets("GRAFICO_3").Select
    excDoc.ActiveSheet.ChartObjects("Grafico 1").Activate
    excDoc.ActiveChart.SeriesCollection(1).Select
    excDoc.ActiveChart.SetSourceData Source:=Sheets("GRAFICO_3").Range("a1:" & uno), PlotBy _
        :=xlColumns
    
    excDoc.Sheets("Grafico_3").Cells.Select
    excDoc.Selection.Columns.AutoFit
    excDoc.Range("A1").Select

[nicola75ss]

Prova così.

Set zona = excDoc.Range("b2:b10")

[borgodiavalon]

nulla.

proprietà o metodo non supportati dall'oggetto.

guarda il fatto è che non volevo far apparire il messaggio dell'abilitazione della macro aprendo il file di excel, lo stesso codice su excel funziona benissimo.

se conosci come impostare l'abilitazione delle macro di excel da access a me va benissimo.

[nicola75ss]

Sostituisci excDoc con excApp ma dovrebbe andare anche senza.

[borgodiavalon]

Originariamente inviato da nicola75ss
Sostituisci excDoc con excApp ma dovrebbe andare anche senza.

ora prova.

guarda che forse però mi sono spiegato male. io sto lavorando da access e senza come può funzionare?

prima intendevo che lo stesso codice provato su excel funziona benissimo.

[borgodiavalon]

ho sostituito excdoc con excapp come suggerito (grazie nicola75ss) ma ancora non andava quindi ho pensato di impostare il tutto come intervallo denominandolo valore

For Each CL In excApp.Range("VALORE")

così sembra risolto.

grazie e alla prossima