Programa
Todo lo que te he preguntado durante todo este tempo tiene que ver con un programa de presupuesto y contabilidad que estoy desarrollando, ahora hay otra cosa que no he dado para hacer.
.-Como lleno desde mi programa un hoja de calculo(excel)(teniendo en cuenta que esta hoja tiene fórmulas y macros), con los dato de mi base de datos o como capturo datos de una hoja de calculo y los datos los llevo a mi base de datos.
Gracias
.-Como lleno desde mi programa un hoja de calculo(excel)(teniendo en cuenta que esta hoja tiene fórmulas y macros), con los dato de mi base de datos o como capturo datos de una hoja de calculo y los datos los llevo a mi base de datos.
Gracias
1 respuesta
Respuesta de aja72
1
Te pongo un ejemplo de código que lee una tabla de la bbdd y escribe los resultado en un documento excel.
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim xl As New Excel.Application
Dim w As Worksheet
Dim f As Long, c As Long
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Cn.CursorLocation = adUseClient
Cn.Mode = adModeWrite
Cn.Open App.Path & "\bbdd.mdb", "admin", ""
Set Rs = Cn.Execute("Select * From PARAMETROS")
Set xl = CreateObject("Excel.Application")
xl.Application.Workbooks.Add
xl.Application.Workbooks.Open App.Path & "\informe.xls"
'xl.Visible = True
xl.Visible = False
Set w = xl.Worksheets.item("Hoja1")
w.Activate
f = 0
While Not Rs.EOF
For c = 0 To Rs.Fields.Count - 1
w.Cells(f + 1, c + 1) = Rs.Fields(c).Value
Next c
f = f + 1
Rs.MoveNext
Wend
' w.Range("A1", "B2").HorizontalAlignment = xlHAlignLeft
' w.Range("C1", "D2").HorizontalAlignment = xlHAlignCenter
' w.Range("E1", "F2").HorizontalAlignment = xlHAlignRight
'ActiveWindow.SelectedSheets.PrintOut (True)
xl.ActiveWorkbook.SaveAs App.Path & "\exportado.xls"
xl.Workbooks.Close
xl.Application.Quit
Set xl = Nothing
Rs.Close
Set Rs = Nothing
Cn. Close
El caso contrario (de Excel a bbdd) es muy similar, no creo que tengas problemas para hacerlo por ti misma después de lo anterior.
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim xl As New Excel.Application
Dim w As Worksheet
Dim f As Long, c As Long
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Cn.CursorLocation = adUseClient
Cn.Mode = adModeWrite
Cn.Open App.Path & "\bbdd.mdb", "admin", ""
Set Rs = Cn.Execute("Select * From PARAMETROS")
Set xl = CreateObject("Excel.Application")
xl.Application.Workbooks.Add
xl.Application.Workbooks.Open App.Path & "\informe.xls"
'xl.Visible = True
xl.Visible = False
Set w = xl.Worksheets.item("Hoja1")
w.Activate
f = 0
While Not Rs.EOF
For c = 0 To Rs.Fields.Count - 1
w.Cells(f + 1, c + 1) = Rs.Fields(c).Value
Next c
f = f + 1
Rs.MoveNext
Wend
' w.Range("A1", "B2").HorizontalAlignment = xlHAlignLeft
' w.Range("C1", "D2").HorizontalAlignment = xlHAlignCenter
' w.Range("E1", "F2").HorizontalAlignment = xlHAlignRight
'ActiveWindow.SelectedSheets.PrintOut (True)
xl.ActiveWorkbook.SaveAs App.Path & "\exportado.xls"
xl.Workbooks.Close
xl.Application.Quit
Set xl = Nothing
Rs.Close
Set Rs = Nothing
Cn. Close
El caso contrario (de Excel a bbdd) es muy similar, no creo que tengas problemas para hacerlo por ti misma después de lo anterior.
