Visual Basic.NET - visualizar archivo excel en un formulario

   
Vista:

visualizar archivo excel en un formulario

Publicado por cristian (3 intervenciones) el 05/11/2014 03:09:28
Necesito abrir un documento que tengo en excel dentro de un formulario. He probado con el webbrowser y lo que hace es abrir el archivo pero no en el formulario.

Agradeceria la ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

visualizar archivo excel en un formulario

Publicado por Miguel (354 intervenciones) el 05/11/2014 04:49:44
Ésta función es para mostrar una hoja de excel en un control DataGridView:

Agregar las siguientes referencias:
1
2
3
4
Imports System.IO
Imports System.Data.OleDb
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel


Función:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub AbrirExcel(RutaArchivoExcel As String, NombreHojaExcel As String, DGV As DataGridView)
        Dim AbrirExcel As New OpenFileDialog
        AbrirExcel.Title = "Abrir archivo de Excel"
        AbrirExcel.Filter = "Archivos de excel|*.xls;*.xlsx"
        If AbrirExcel.ShowDialog = System.Windows.Forms.DialogResult.OK Then
            Try
                Me.Cursor = Cursors.WaitCursor
                Dim ds As New DataSet()
                Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & RutaArchivoExcel & ";" & "Extended Properties=Excel 12.0;"
                Dim excelData As New OleDbDataAdapter("SELECT * FROM [" & NombreHojaExcel & "$]", connectionString)
                excelData.TableMappings.Add("Table", "ExcelSheet")
                excelData.Fill(ds)
                DGV.DataSource = ds.Tables(0)
                Me.Refresh()
                Me.Cursor = Cursors.Default
            Catch ex As Exception
                Me.Cursor = Cursors.Default
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            End Try
        End If
    End Sub



Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar