formato fechas
Publicado por Marco (20 intervenciones) el 27/05/2005 20:02:59
bajo unos datos del recordset a una panilla excel, el problema que las fechas me las baja mal, aqui les mando el codigo que utilizo. Gracias
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
Dim wkbSheet As Excel.Worksheet
Dim Rng As Excel.Range
ApExcel.Cells(1, 1) = "CODIGO"
ApExcel.Cells(1, 2) = "NOMBRE PRODUCTO"
ApExcel.Cells(1, 3) = "CANTIDAD PEDIDA"
ApExcel.Cells(1, 4) = "FECHA PEDIDO"
ApExcel.Cells(1, 5) = "DEPARTAMENTO"
ApExcel.Cells(1, 6) = "NOMBRE"
ApExcel.Cells(1, 7) = "STOCK ACTUAL"
' Hace una Seleccion de celdas y pone bordes de Color
ApExcel.Range("A1:G1").Borders.Color = RGB(255, 0, 0)
Set Rng = ApExcel.Range("A2:" + Chr(DataGrid1.Columns.Count + 64) + CStr(Adodc1.Recordset.RecordCount))
With Adodc1.Recordset
If .BOF = False Then .MoveFirst
If .EOF = False Then
Do Until .EOF
For I = 1 To .Fields.Count
Rng.Cells(.AbsolutePosition, I) = .Fields(I - 1)
Next I
.MoveNext
Loop
End If
End With
Set ApExcel = Nothing
Set Rng = Nothing
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
Dim wkbSheet As Excel.Worksheet
Dim Rng As Excel.Range
ApExcel.Cells(1, 1) = "CODIGO"
ApExcel.Cells(1, 2) = "NOMBRE PRODUCTO"
ApExcel.Cells(1, 3) = "CANTIDAD PEDIDA"
ApExcel.Cells(1, 4) = "FECHA PEDIDO"
ApExcel.Cells(1, 5) = "DEPARTAMENTO"
ApExcel.Cells(1, 6) = "NOMBRE"
ApExcel.Cells(1, 7) = "STOCK ACTUAL"
' Hace una Seleccion de celdas y pone bordes de Color
ApExcel.Range("A1:G1").Borders.Color = RGB(255, 0, 0)
Set Rng = ApExcel.Range("A2:" + Chr(DataGrid1.Columns.Count + 64) + CStr(Adodc1.Recordset.RecordCount))
With Adodc1.Recordset
If .BOF = False Then .MoveFirst
If .EOF = False Then
Do Until .EOF
For I = 1 To .Fields.Count
Rng.Cells(.AbsolutePosition, I) = .Fields(I - 1)
Next I
.MoveNext
Loop
End If
End With
Set ApExcel = Nothing
Set Rng = Nothing
Valora esta pregunta
0