Abrir app Excel en Form
Publicado por Pepe (2 intervenciones) el 04/03/2014 15:18:22
Necesito abrir una aplicacion de excel dentro de un form que solo tenga un boton para acceder a la ruta y un webBwoser para apbir la app.
Este es el codigo que tengo, espero que alguine me ayude.
Muchas gracias.
Imports Excel = Microsoft.Office.Interop.Excel
Imports Office = Microsoft.Office.Core
Public Class Form1
Private xlApp As New Excel.Application
Private xlWBook As Excel.Workbook
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
With xlApp
.Visible = False
xlWBook = xlApp.Workbooks.Open("C:\PRUEBA.xlsx")
End With
Me.WebBrowser1.Navigate(xlWBook.FullName)
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms. _
WebBrowserDocumentCompletedEventArgs) _
Handles WebBrowser1.DocumentCompleted
With xlApp.CommandBars("Standard")
.Position = Office.MsoBarPosition.msoBarTop
.Visible = True
End With
End Sub
End Class
Este es el codigo que tengo, espero que alguine me ayude.
Muchas gracias.
Imports Excel = Microsoft.Office.Interop.Excel
Imports Office = Microsoft.Office.Core
Public Class Form1
Private xlApp As New Excel.Application
Private xlWBook As Excel.Workbook
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
With xlApp
.Visible = False
xlWBook = xlApp.Workbooks.Open("C:\PRUEBA.xlsx")
End With
Me.WebBrowser1.Navigate(xlWBook.FullName)
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms. _
WebBrowserDocumentCompletedEventArgs) _
Handles WebBrowser1.DocumentCompleted
With xlApp.CommandBars("Standard")
.Position = Office.MsoBarPosition.msoBarTop
.Visible = True
End With
End Sub
End Class
Valora esta pregunta


0