Jump to content
Fórum Script Brasil
  • 0

Abrir arquivo Excel pelo VBA do Word.


vini75

Question

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.

000.png

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Boa noite @vini75,

Eu fiz esse código abaixo porém precisa ver se é essa a ideia que você tem para o seu projeto.

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 excelx As Workbook.Activate
        'Set excel = Workbooks.Open("C:\Sistema_Certificados_Venda\Dados.xlsm")
        'End With
        
        Shell ("Excel C:\Users\alyso\Downloads\Dados.xlsm")
    Else
    

    End If
    
        ActiveDocument.Save
        Application.Quit

 

End Sub

 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149190
    • Total Posts
      645445
×
×
  • Create New...