Exportar Excel desde VB

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Excel * * * * * * * * * * * * * * * * * * * * * * * * * * * *.

Private subrecord_Click()

Marcar I como un número entero

Definición de Excel y registros de visualización relacionados

Atenuar objExl como Excel. "Aplicación" declara variables de objeto.

' Me.mouseporter = 11 'Cambiar estilo del mouse.

Establecer objExl = Nuevo Excel. La "Aplicación" inicializa las variables del objeto.

'Establece el número de libros nuevos en 1.

Agregue un libro de trabajo agregando un libro de trabajo.

objexl . hojas (objexl . hojas . recuento). name = "book1 " 'Modifica el nombre del libro.

objExl. Hojas("libro1 "). Seleccione

selección de objiexl. numberformatlocal = "@" 'Formatear como texto.

Objeto. Celda(1,1). valor = "Tiempo (minutos)"

ObjExl. Celda(1,2). Valor = "Tensión 1(V)"

ObjExl. Celda(1,3). Valor = "Actual 1(A)"

ObjExl. Celda(1,4). Valor = "Temperatura 1('C)"

objExl. Celda(1,5). Valor = "SOC1 "

ObjExl. Celda(1,6). Valor = "Tensión 2(V)"

ObjExl. Celda(1,7). Valor = "Actual 2(A)"

ObjExl. Celda(1,8). Valor = "Temperatura 2(°C)"

objExl. Celda(1,9). Valor = "SOC2 "

Objexl. número de filas ("1:1"). Seleccione para seleccionar la primera fila.

"objiexl . selección . fuente . negrita = true" está configurado en negrita.

selección de objiexl. tamaño de fuente = 14 'Establece el tamaño de fuente.

Objiexl. celúla. Columna de entidad. AutoFit ajusta automáticamente el ancho de las columnas.

Para i = 0 a UBound (primera vía)

objExl. celda(yo 2, 1). valor = 3 * i 3

objExl. celda(yo 2, 2). valor=primer camino(uno)

objExl. Celda(i 2, 5). valor = Soc1(i)

objExl. Celda(i 2, 6). valor = 2da ruta (una)

Luego

ObjExl. "Visible = Verdadero" hace visible EXCEL.

ObjExl. Mensaje para guardar al cerrar.

Yo. MousePointer = 0 'Modifica el mouse.

Set objExl = Nada 'Borrar el objeto.

ObjExl. Salir' Cerrar EXCE.

Conector final

Yo mismo hice un Excel y debería ser suficiente después de leerlo.