Ir para conteúdo
Fórum Script Brasil

vini75

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre vini75

vini75's Achievements

0

Reputação

  1. 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.
×
×
  • Criar Novo...