Visual Basic.NET - como exportar todas las hojas de un libro a access

 
Vista:
sin imagen de perfil
Val: 11
Ha disminuido su posición en 7 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

como exportar todas las hojas de un libro a access

Publicado por juan francisco (5 intervenciones) el 04/02/2020 12:14:35
Buenas tardes,

me gustaria saber un algoritmo como llevar todos los datos de todas las hojas de un libro excel a access con vb.net, muchas gracias.
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
Imágen de perfil de Phil Rob
Val: 2.250
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

como exportar todas las hojas de un libro a access

Publicado por Phil Rob (577 intervenciones) el 04/02/2020 15:35:54
Hola,

Con Excel, utilizo el codigo siguiente par leer y escribir los datos en XLS :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class ...
 
 Dim XLSAPP As Excel.Application = Nothing            ' Si no estan necessarios los eventos de Excel
 
    'Si no es abrido la hoja XLS
    Private Sub UnoPrcedimiento()
        XLSAPP = New Excel.Application
        XLSAPP.Visible = True
        XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\UnaHojaXLS.xls") 'abrir el archivo XLS
 
        XLSAPP.Sheets("Hoja1").Select()
 
        XLSAPP.Columns("B:B").Select()  ' por la columna B, ...
        XLSAPP.Selection.Find("74").Select()
' ... ... ...
' Aqui, puedes copiar los datos en Access con un connexion OLEDB.

Penso que si encontrada una libreria como Microsoft.Office.Interop.Excel para Libro XLS, entonces puedes utilizar el mismo codigo.

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
Imágen de perfil de Phil Rob
Val: 2.250
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

como exportar todas las hojas de un libro a access

Publicado por Phil Rob (577 intervenciones) el 04/02/2020 18:16:43
Descubro que mi codigo de esta mañana conviene por Open Office.

Probas de abrir un documento ods y veas :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class FBase
 
    Dim XLSAPP As Excel.Application = Nothing
 
    Private Sub BExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BExcel.Click
 
        XLSAPP = New Excel.Application
        XLSAPP.Visible = True
        XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\Fenêtres.ods") 'Test.xls")
        XLSAPP.Sheets("Feuil1").Select()
 
        XLSAPP.Range("B12").Select()
        MessageBox.Show(XLSAPP.ActiveCell.Value)
 
        End Sub

Pero MicroSoft Office es instalado en mi PC ...
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