Abrir Word y Excel

Disculpa que te moleste de nuevo, quisiera saber si me puedes ayudar tengo que Abrir un documento en Word y Excel desde un formulario MDI en visual basic 6

2 respuestas

Respuesta
1
No es molestia, te paso una porción de código, espero que te sirva... sino vuelve a preguntarme que esta todo más que bien =).
Saludos.-
Dim wrdApp As Word.Application
Private Sub Form_Load()
Set wrdApp = New Word.Application
End Sub
Private Sub Command2_Click()
Clipboard.SetText RichTextBox1.TextRTF, vbCFRTF
With wrdApp
.Documents.Add
.Selection.Paste
.ActiveDocument.SaveAs App.Path & "\RTFDOC2.doc", _
wdFormatDocument
.Visible = True
.Activate
End With
End Sub
Respuesta
1
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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas