|
Pues tienes que marcar en las referencias del proyecto una a Microsoft Word 9.0 Object Library(9.0 si es word 2000, 10.0 si es word 2002) y en excel lo mismo, marca la Microsoft Excel Object Library.
Código para el documento de word:
Dim objWord As Word.Application
Set objWord = New Word.Application 'Creo el objeto word
objWord.Documents.Open "c:\hola.doc" 'Abro el documento
objWord.Visible = True 'Pongo visible a word, se verá con el documento abierto.
Ahora para la hoja de excel:
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application 'Creo el objeto.
objExcel.Workbooks.Open "c:\Libro1.xls" 'Abro el libro.
objExcel.Sheets(1).Select 'Selecciono la hoja 1 del libro.
objExcel.Visible = True 'Pongo visible a excel.
Y ya tienes ambos abiertos.
Un saludo.
|
