vini75

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.