Cómo programar con Excel
La siguiente es una función que escribí en ese momento para exportar resultados de consultas desde SQLServer2000. Haz la llamada. Recuerde agregar la referencia de Excel a la referencia de la biblioteca de objetos de Project-Microsoft Excel 11.0.
(Probablemente una versión diferente)
Además, cambie la cadena de conexión.
Si quieres utilizarlo en otros aspectos, puedes agregarme al 285512334.
Función pública ExportToExcel (strOpen es una cadena, str_name es una cadena)
& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp&. amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp
Función & amp: Exporta datos a EXCEL.
Uso de & amp: ExportToExcel (cadena de consulta SQL, nombre de tabla de exportación)
& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp&. amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp& amp
Atenuar adoRs como nuevo ADODB. Conjunto de registros
Dim Irowcount es un número entero
Dim Icolcount es un número entero
Transfiera xlapp a un nuevo Excel. Aplicación
Transferir xlbook a Excel. Cuaderno de ejercicios
Convierte xlsheet a formato Excel. Hoja de trabajo
Mostrar xlQuery como Excel. Tabla de consulta
Atenuar strcn_out como cadena
strecn_out = " Proveedor = SQL oledb . 1; PeRs_tongjiist Información de seguridad = False ID de usuario = sapwd = sa Directorio inicial = st _ info fuente de datos = (local)"
Con admiradores
if. Entonces Estado = 1
. Cerrar
Terminará si...
.
ActiveConnection = strcn_out
. UbicaciónCursor = adUseClient
. CursorType = adOpenStatic
. LockType = adLockReadOnly
. Fuente = strOpen
. Abrir
Termina con...
Con admiradores
Si. Recuento de registros & ltentonces 1
MsgboxName = MsgBox("¡Sin registro!", vbOKOnly, "Mensaje de información")
Salir de la función
Si... terminará
Irowcount =. "RecordCount" El número total de registros.
Icolcount = .Fields.Count 'Número total de campos.
Termina con...
Establecer xlapp = CreateObject("Excel. Application")
Establecer xlbook = Ninguno
Establecer xlsheet = Ninguno
xlapp. título = nombre de cadena
Establecer xlbook = xlapp. libro de trabajo(). Añadir
Establecer xlsheet = xlbook. hoja("hoja1")
xlapp. Visible = verdadero
establecer consulta XL =
. FieldNames = True
FillAdjacentFormulas = False
.
. BackgroundQuery = Verdadero
Guardar contraseña = Verdadero
. RefreshPeriod = 0
. Terminar con...
> 1). Cell(1, Icolcount))
. ."
'Fuente del título. Estar en negrita.
. Interior.Color = &HC0FFC0 'Establece el color de la primera fila.
Termina con...
>Con .range(.cells(1,2).cells(1,2))' establece el ancho de la columna
Con final
. .range(.cell(1,3).cell(1,3))
.columnwidth=20
Con… fin
Con .range( .cell(1,5).cell(1,5))
.columnwidth=10
Con… fin
Con .range(.cell( 1,6).celda(1,6))
.
Ancho de columna = 6
Termina en
Con. rango(. celda(2, 1). celda(Irowcount + 1, 1))
. fuente. Name = "Italic"
Interior.Color = &H80FFFF 'El color de la primera columna
Termina en...
Termina en...
Ir a sí en caso de error
El primer método: llamar a la función de guardar xlApp. Guarde el espacio de trabajo
El segundo método es guardar como en segundo plano y especificar el directorio.
Ubicación = Aplicación. Caminos y caminos. " \archivo de estadísticas\ " &str_name & amp".xls "
xlbook. Guardar como ubicación
El tercer método es guardarlo usted mismo cuando el usuario lo cierre.
xlapp. aplicación. Visible = Verdadero
Sí:
Establecer xlapp = Nada 'Devolver el control a Excel.
Establecer xlbook = Ninguno
Establecer xlsheet = Ninguno
Finalizar función