Ya digamos tengo una tabla simple en mi base de datos sql
- Nombre
- Apellidos
- Edad
- Dni
Quieren q use un archivo Excel 2007 como plantilla
E introducir en el todos los datos q tengo en la tabla de la base de datos
Me pueden ayudar por favor, nunca use el Excel para reportar desde mi Visual Basic 2005
Quisiera q me guíen por favor se los suplico…
Encontré este código pero no lo reconoce el vb2005 y tampoco lo comprendo del todo:
Cita:
En primer lugar, he creado una hoja de cálculo Excel 2007.
Nombre a un rango de celdas NameRng y la hoja de cálculo LookupLists y guarde todo como Data.xlsx.
Luego he creado una aplicación estándar de Windows y añadí una referencia a Microsoft Excel 12.0 Object library (clic derecho en el proyecto y agregue la referencia de la ficha COM).
Aquí está el código que funciona:
‘Importo interop excel
Imports Microsoft.Office.Interop.Excel
‘al carfar formulario:
Dim cPart As Range
'Dim cLoc As Range
Dim oExcel As Application = _
CreateObject("Excel.Application")
Dim oBook As Workbook = _
oExcel.Workbooks.Open( _
"C:\Users\ThisUser\Documents\Data.xlsx", , False)
Dim oSheet As Worksheet
oSheet = oBook.Worksheets("LookupLists")
' To find range in excel and send them to combo box(cboName)
For Each cPart In oSheet.Range("NameRng")
With Me.cboName
.Items.Add(cPart.Value)
'.AddItem(cPart.Value)
'.List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value
End With
Next cPart
oBook.Close()
Nombre a un rango de celdas NameRng y la hoja de cálculo LookupLists y guarde todo como Data.xlsx.
Luego he creado una aplicación estándar de Windows y añadí una referencia a Microsoft Excel 12.0 Object library (clic derecho en el proyecto y agregue la referencia de la ficha COM).
Aquí está el código que funciona:
‘Importo interop excel
Imports Microsoft.Office.Interop.Excel
‘al carfar formulario:
Dim cPart As Range
'Dim cLoc As Range
Dim oExcel As Application = _
CreateObject("Excel.Application")
Dim oBook As Workbook = _
oExcel.Workbooks.Open( _
"C:\Users\ThisUser\Documents\Data.xlsx", , False)
Dim oSheet As Worksheet
oSheet = oBook.Worksheets("LookupLists")
' To find range in excel and send them to combo box(cboName)
For Each cPart In oSheet.Range("NameRng")
With Me.cboName
.Items.Add(cPart.Value)
'.AddItem(cPart.Value)
'.List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value
End With
Next cPart
oBook.Close()
