Compile error: User-defined type not defined

Question

Buongiorno,

riporto parziale codice. L'errore in oggetto, si presenta alla riga in grassetto : Dim ExlApp As Excel.Application

grazie anticipatamente !!

' ##################################### Fill variables ############################

    If Komplett = True And file <> "MRP.xls" Then

    Set DBAKTUELL = CurrentDb 'Data from current DB

    Set db1 = DBAKTUELL.OpenRecordset("SYS_Rule_definition")

     While Not db1.EOF

    rule = db1("Rule")

    File1 = db1("File")

    aktiv = db1("aktiv")

    If File1 = file And aktiv = True Then

    If DCount("*", "Temp_Output_" & rule) > 0 Then

        DoCmd.TransferSpreadsheet acExport, 8, "Temp_output_" & rule, _

        Dateipfad, True, ""

    ' ######### Excel formatting

    Dim ExlApp As Excel.Application

Dim ExlDatei As String

Dim xlSheet As Excel.Worksheet

  ExlDatei = Dateipfad

  Set ExlApp = CreateObject("Excel.Application")                                'aktiviert Steuerung mit XL-VBA

  With ExlApp

    .Visible = False                                                            'mit Anzeigen oder ohne

    .Workbooks.Open FileName:=ExlDatei

    ' ### Formatieren ###

Answer 1

Ciao Crucolo,

visto che stai lavorando in early binding e' probabile che tu non abbia referenziato Excel nei riferimenti del tuo progetto VBA.

Le due alternative sono:

• in VBA, menù strumenti, voce Riferimenti, metti la spunta su Microsfot Excel xx.0 Object Library

(xx.0 dipende dalla tua versione di Excel)

• lavora in late binding e non dovrai più referenziare excel nel tuo progetto.

David

Answer 2

Grazie David.

Problema risolto !!!

Spero di poter rendere il favore.

Cordialità

Answer 3

Ciao,

devi spuntare la libreria di Excel in Strumenti->Riferimenti->Microsoft Excel Object Library

Ciao Mimmo