exportar a excel con filtro
Publicado por Julian David (20 intervenciones) el 17/01/2014 13:30:39
Buen día amigos,
A ver si alguno de ustedes me puede ayudar,
Tengo un formulario form1, alimentado de una tabla tbl1, en form1 tengo algunos cbo (cuadros combinados) y un botón con el cual deseo exportar los datos filtrados a Excel llamado cmdexcel,
Lo que quiero lograr es exportar los datos a Excel con varios filtros es decir: en uno de mis cuadros combinados se ingresa la fecha, en otro el nombre del vendedor, en otro la venta.... etc, según lo ingresado en mis cbo deseo exportarlo a excel, tengo la siguiente idea ( no pego todo el código solo resumo)
Dim Fvendedor As String
,,,
Fvendedor = Nz(Me.Cbvendedores.Value, "")
,,,
,,,
miFiltro = ""
If Fvendedor <> "" Then
miFiltro = "AND [vendedor]='" & Fvendedor & "'"
End If
If Fventa <> "" Then
miFiltro = miFiltro & " AND [venta]='" & Fventa & "'"
end if
,,,
,,,
If Fvendedor <> "" Then
DoCmd.TransferSpreadsheet acExport, 10, "Ctaifvendedor", "C:\Users\usuario\Informe_vendedor", False, ""
MsgBox "Se ha creado la hoja de excel Informe_vendedor.xls en c: ", vbInformation, "Aviso"
Else
If Fventas <> "" Then
DoCmd.TransferSpreadsheet acExport, 10, "Ctaifventas", "C:\Users\usuario\Informe_ventas", False, ""
MsgBox "Se ha creado la hoja de excel Informe_venntas.xls en c: ", vbInformation, "Aviso"
,,,
,,,
End If
End If
sub
El código anterior solo me toma el valor de 1 cbo y me lo exporta a excel sin depender de otro cbo, es decir si ingreso el vendedor"juan" y fecha "01--01-2013", me arroja todos los registros de las ventas de "juan" durante todas las fechas.
como podría incluir la función " mi filtro" en la linea de exportar el archivo a excel, hay alguna forma?, quedo atento compañeros, de antemano gracias por su ayuda
A ver si alguno de ustedes me puede ayudar,
Tengo un formulario form1, alimentado de una tabla tbl1, en form1 tengo algunos cbo (cuadros combinados) y un botón con el cual deseo exportar los datos filtrados a Excel llamado cmdexcel,
Lo que quiero lograr es exportar los datos a Excel con varios filtros es decir: en uno de mis cuadros combinados se ingresa la fecha, en otro el nombre del vendedor, en otro la venta.... etc, según lo ingresado en mis cbo deseo exportarlo a excel, tengo la siguiente idea ( no pego todo el código solo resumo)
Dim Fvendedor As String
,,,
Fvendedor = Nz(Me.Cbvendedores.Value, "")
,,,
,,,
miFiltro = ""
If Fvendedor <> "" Then
miFiltro = "AND [vendedor]='" & Fvendedor & "'"
End If
If Fventa <> "" Then
miFiltro = miFiltro & " AND [venta]='" & Fventa & "'"
end if
,,,
,,,
If Fvendedor <> "" Then
DoCmd.TransferSpreadsheet acExport, 10, "Ctaifvendedor", "C:\Users\usuario\Informe_vendedor", False, ""
MsgBox "Se ha creado la hoja de excel Informe_vendedor.xls en c: ", vbInformation, "Aviso"
Else
If Fventas <> "" Then
DoCmd.TransferSpreadsheet acExport, 10, "Ctaifventas", "C:\Users\usuario\Informe_ventas", False, ""
MsgBox "Se ha creado la hoja de excel Informe_venntas.xls en c: ", vbInformation, "Aviso"
,,,
,,,
End If
End If
sub
El código anterior solo me toma el valor de 1 cbo y me lo exporta a excel sin depender de otro cbo, es decir si ingreso el vendedor"juan" y fecha "01--01-2013", me arroja todos los registros de las ventas de "juan" durante todas las fechas.
como podría incluir la función " mi filtro" en la linea de exportar el archivo a excel, hay alguna forma?, quedo atento compañeros, de antemano gracias por su ayuda
Valora esta pregunta
0