Jump to content
Sign in to follow this  
Guest miguelfreitas

[RESOLVIDO] Access 2007 Compile Error VBA

Recommended Posts

Guest miguelfreitas

Private Sub Comando14_Click()

Dim Xl As Excel.Application

    Dim FileName As String

    Dim wb As Workbook

    Dim rng As Range

    Dim LastRow As Long

    Dim ws As Worksheet

    MsgBox ("ola")

    Set Xl = New Excel.Application

    FileName = Xl.GetOpenFilename

    If FileName = "False" Then Exit Sub

    Set wb = Xl.Workbooks.Open("Produtos.xlsx")

    Set ws = wb.Worksheets("Produtos")            'Assuming it is Sheet1

    LastRow = ws.Range("A100").End(xlUp).Row

    ws.Range("A2:D" & LastRow).Copy            'Columns to copy

    DoCmd.OpenTable ("Produtos")                'Opens the table

    DoCmd.RunCommand acCmdPasteAppend          'Pastes in the worksheet data

    wb.Saved = True

    wb.Close

    Set Xl = Nothing

End Sub

Tenho isto e dá-me este erro  :

"Compile Error :

User-defined type not defined"

Já dei voltas e mais voltas e não consigo resolver o erro  :wallbash: 😡

Esse código vba resulta de um botão que serve para fazer importação de um ficheiro excel.

Alguém me ajuda a resolver o erro ? Agradeço desde já,

Miguel Freitas.

Share this post


Link to post
Share on other sites
KeepItSimple

Estás a tentar definir um objecto do tipo "excel.application". É algo externo ao Access, pelo que tens de "referenciar".

Na janela do VBA vais a Tools-->References--> e seleccionas o "Microsoft Excel xx Object Library" (xx varia conforme a versão do Excel).

Share this post


Link to post
Share on other sites
Guest miguelfreitas

Estás a tentar definir um objecto do tipo "excel.application". É algo externo ao Access, pelo que tens de "referenciar".

Na janela do VBA vais a Tools-->References--> e seleccionas o "Microsoft Excel xx Object Library" (xx varia conforme a versão do Excel).

Txi, aparentemente é uma coisa tão simples de resolver. 

Muito obrigado KeepItSimple!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.