Este fórum está sendo desativado

[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.

[osvaldomp]

... mas está dando "Erro De Compilação", O tipo definido pelo usuário não foi definido.
No Editor de VBA do Word ~~~> Ferramentas | Referências ... | marque a referência Microsoft Excel x.0 Object Library
O "x" aparecerá como a versão do seu Excel.

Segue abaixo um código que abre o arquivo Excel desejado. Se for útil, então você poderá chamá-lo do seu código.

Código: Selecionar todos

Sub AbreArquivoExcel()
 Dim oExcel As Excel.Application, oWB As Excel.Workbook
  Set oExcel = New Excel.Application
  Set oWB = oExcel.Workbooks.Open("C:\Sistema_Certificados_Venda\Dados.xlsm")
  oExcel.Visible = True
End Sub

[Vini75]

Funcionou perfeitamente. Muito Obrigado!!!!

[Vini75]

Sempre que abro aparece em tela minimizada. Teria uma forma de aparecer com a tela normal?

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub AbreArquivoExcel()
 Dim oExcel As excel.Application, oWB As excel.Workbook
  Set oExcel = New excel.Application
  Set oWB = oExcel.Workbooks.Open("C:\Sistema_Certificados_Venda\Dados.xlsm")
  oExcel.Visible = True
  oExcel.Application.WindowState = xlMinimized
  oExcel.Application.WindowState = xlMaximized
End Sub