saca datos a excel desde un case
Publicado por Jackos (2 intervenciones) el 26/03/2010 18:18:11
Private Sub Command1_Click()
PLANEA.Recordset.MoveFirst ' mueve a inicio archivo
Do While Not PLANEA.Recordset.EOF ' hace mientraqs no sea fin de archivo
idmakina = PLANEA.Recordset.Fields("id_maquina").Value
If idmaquina = "8a" Then
criterio = "id_Orden =" + Str(PLANEA.Recordset.Fields("id_orden").Value) + " AND Campo1 ='" + "1" ' para las q tan planeadas
ORDEN.Recordset.FindFirst (criterio) ' para encontrar criterioo
If Not ORDEN.Recordset.NoMatch Then ' si lo encuentra entonces
totltimeprod = PLANEA.Recordset.Fields("ttp").Value
fechareq = ORDEN.Recordset.Fields("f_req").Value
cant = ORDEN.Recordset.Fields("cantidad").Value
idPart = "id_parte=" + Str(ORDEN.Recordset.Fields("id_parte").Value)
PARTE.Recordset.FindFirst (idPart)
If Not PARTE.Recordset.NoMatch Then
idPart = PARTE.Recordset.Fields("id_parte").Value
End If
nation = PARTE.Recordset.Fields("national").Value
idsubline = PARTE.Recordset.Fields("id_slinea").Value
idcavidad = PARTE.Recordset.Fields("id_cavidad").Value
criterio = "id_cliente=" + Str(ORDEN.Recordset.Fields("id_cliente").Value)
CLIENTE.Recordset.FindFirst (criterio)
If Not CLIENTE.Recordset.NoMatch Then
Desc = CLIENTE.Recordset.Fields("desC").Value
End If
idmakina = PLANEA.Recordset.Fields("id_maquina").Value
idmakina = makina
lo que quiero es que de aqui arriba me saque el id de la maquina, y con eso, me lleve a los 4 diferentes cases que voy a tener por ejemplo
8a 8g 8 z 8u
y una vez que ya se coloco en el case que debe ser, tiene que sacarme los datos que busque en la parte de arriba, a un archivo de excel
espero alquien me pueda ayudar. gracias
les dejo estos pedasos de codigo abajo, es lo que tengo para hacer mi cometido!!!
******//////////////////
Dim objExcel As Excel.Application
Dim x8a As Excel.Workbook
Dim Col As Integer, Fila As Integer
Set objExcel = New Excel.Application
Set x8a = objExcel.Workbooks.Open(App.Path + "c:\@federal mogul\x8a.xls")
objExcel.Visible = True
With x8a
With .Sheets(1)
For Fila = 1 To 7 ' hasta que fila quiero
' Combo1.AddItem .Cells(fila, 2)
Next
End With
End With
Set objExcel = Nothing
Set x8a = Nothing
End Sub
If idmaquina = "8a" Or "8g" Or "8z" Or "8u" Then
MsgBox (" 8ciclos")
ciclos = 8
Else
MsgBox ("12 ciclos")
ciclo = 12
End If
End If
Loop
////////////////************
PLANEA.Recordset.MoveFirst ' mueve a inicio archivo
Do While Not PLANEA.Recordset.EOF ' hace mientraqs no sea fin de archivo
idmakina = PLANEA.Recordset.Fields("id_maquina").Value
If idmaquina = "8a" Then
criterio = "id_Orden =" + Str(PLANEA.Recordset.Fields("id_orden").Value) + " AND Campo1 ='" + "1" ' para las q tan planeadas
ORDEN.Recordset.FindFirst (criterio) ' para encontrar criterioo
If Not ORDEN.Recordset.NoMatch Then ' si lo encuentra entonces
totltimeprod = PLANEA.Recordset.Fields("ttp").Value
fechareq = ORDEN.Recordset.Fields("f_req").Value
cant = ORDEN.Recordset.Fields("cantidad").Value
idPart = "id_parte=" + Str(ORDEN.Recordset.Fields("id_parte").Value)
PARTE.Recordset.FindFirst (idPart)
If Not PARTE.Recordset.NoMatch Then
idPart = PARTE.Recordset.Fields("id_parte").Value
End If
nation = PARTE.Recordset.Fields("national").Value
idsubline = PARTE.Recordset.Fields("id_slinea").Value
idcavidad = PARTE.Recordset.Fields("id_cavidad").Value
criterio = "id_cliente=" + Str(ORDEN.Recordset.Fields("id_cliente").Value)
CLIENTE.Recordset.FindFirst (criterio)
If Not CLIENTE.Recordset.NoMatch Then
Desc = CLIENTE.Recordset.Fields("desC").Value
End If
idmakina = PLANEA.Recordset.Fields("id_maquina").Value
idmakina = makina
lo que quiero es que de aqui arriba me saque el id de la maquina, y con eso, me lleve a los 4 diferentes cases que voy a tener por ejemplo
8a 8g 8 z 8u
y una vez que ya se coloco en el case que debe ser, tiene que sacarme los datos que busque en la parte de arriba, a un archivo de excel
espero alquien me pueda ayudar. gracias
les dejo estos pedasos de codigo abajo, es lo que tengo para hacer mi cometido!!!
******//////////////////
Dim objExcel As Excel.Application
Dim x8a As Excel.Workbook
Dim Col As Integer, Fila As Integer
Set objExcel = New Excel.Application
Set x8a = objExcel.Workbooks.Open(App.Path + "c:\@federal mogul\x8a.xls")
objExcel.Visible = True
With x8a
With .Sheets(1)
For Fila = 1 To 7 ' hasta que fila quiero
' Combo1.AddItem .Cells(fila, 2)
Next
End With
End With
Set objExcel = Nothing
Set x8a = Nothing
End Sub
If idmaquina = "8a" Or "8g" Or "8z" Or "8u" Then
MsgBox (" 8ciclos")
ciclos = 8
Else
MsgBox ("12 ciclos")
ciclo = 12
End If
End If
Loop
////////////////************
Valora esta pregunta
0