none
Abrir arquivo Excel pelo VBA do Word. RRS feed

  • Pergunta

  • Estou tentando abrir um arquivo excel pelo VBA do Word, mas está dando "Erro De Compilação", O tipo definido pelo usuário não foi definido.

     

    Código utilizado:

    _________________________________________________________

    Sub Abrir_Exel_ou_Não()

    Dim RESPOSTA As Integer
        Dim ANS As Integer
        RESPOSTA = vbYesNo + vbQuestion + vbDefaultButton2
        ANS = MsgBox("Deseja Acesso os Dados?", RESPOSTA, "Prosseguir")
        If ANS = vbYes Then
            Dim excel As Workbook.Activate
            Set excel = Workbooks.Open("C:\Sistema_Certificados_Venda\Dados.xlsm")

            End With
        Else
        

        End If
        
            ActiveDocument.Save
            Application.Quit

     

    End Sub

    _________________________________________________________

     

      O código acima projeta uma caixa de diálogo com duas alternativas: Caso a resposta seja sim, deveria abrir o arquivo Excel mencionado "Dados.xlsm", salvar o documento word que está aberto e fechá-lo. E caso a resposta seja não, apenas salvará e fechará o Word  que aberto.

     

    OBS: esse código funciona sem a parte de abrir o arquivo, ou seja, ele salva e fechar o word que está aberto, porém, preciso de ter a opção de abrir o arquivo Excel  também.


    sexta-feira, 11 de dezembro de 2020 18:19

Todas as Respostas

  • Sub Abrir_Exel_ou_Não()
        Dim RESPOSTA As Integer
        Dim ANS As Integer
        RESPOSTA = vbYesNo + vbQuestion + vbDefaultButton2
        ANS = MsgBox("Deseja Acesso os Dados?", RESPOSTA, "Prosseguir")
        If ANS = vbYes Then
            Dim excel As Object
            Set excel = CreateObject("Excel.Application").Workbooks.Open("C:\Sistema_Certificados_Venda\Dados.xlsm")
            excel.Parent.Visible = True
        End If
        ActiveDocument.Save
        Application.Quit
    End Sub
    

    segunda-feira, 14 de dezembro de 2020 01:35