Utilice el control VB para mostrar tablas en Excel.

Save_Excel_Data = False

Marcar Excel_File como una cadena

Atenuar ExcelSave Guardar como valor booleano

Vaya a err1

CommonDialog1 en caso de error. Nombre de archivo = " "

CommonDialog1. Filtro = "EXCEL (*.xls)|*.xls| "

CommonDialog1. FilterIndex = 1

CommonDialog1. Mostrar guardar

Si Err lt gt entonces 32755

Excel_File = CommonDialog1. Nombre de archivo

if Dir(Excel _ File) lt; "Entonces elimine Excel_File

set SF 1 = CreateObject("Excel. Application")

sf1. workbook.add

Establecer sf2 = sf1. Libro de trabajo(1)

Establezca sf3 = sf2. Escamas activas

Dim x(1 a 3) es un número entero, y(1 a 3) es un número entero

x(1) = 1

x (2 ) = 2

x(3) = 9

y(1) = 12

y(2) = 5

y (3) = 19

pie3. celda (1,1). valor = x(1)

sf3. Celda(2,1). valor = x(2)

sf3. Celda(3,1). valor = x(3)

sf3. Celda(1,2). valor = y(1)

sf3. Celda(2,2). valor = y(2)

sf3. Celda(3,2). valor = y(3)

sf2. cuadro. Añade

sf2. ActiveChart.Posición 2, " Hoja1 "

sf2. ActiveChart.ChartType = 72

sf2. colección activa de chart.series (1). XValues ​​= "=Hoja1!R1C1:R3C1 "

sf2. colección activa de chart.series (1). Valores = "=Hoja1!R1C2:R3C2 "

Sf3. Forma ("Gráfico1"). Ancho de escala 1,2, 0, 0

Sf3. Forma ("Gráfico1"). Altura de la barra de escala 1.2, 0, 0

El control Picturebox muestra gráficos en Excel.

sf2. ActiveChart.ChartArea.Select

sf2. ActiveChart.ChartArea.Copy

Formulario 1. Imagen 1. Imagen = Portapapeles. Obtener datos

sf3. Guardar como Excel_File

sf3. Aplicar. Salir

Establecer sf3 = Ninguno

Establecer sf2 = Ninguno

Establecer sf1 = Ninguno

Terminará si...

Save_Excel_Data = True

Salir de la función

err1:

Error de MsgBox.

Número

Finalizar función