Una lista completa de métodos para llamar a Excel usando vb

Para llamar a Excel en VB, debe abrir el elemento "Referencia" en el menú "Proyecto" del entorno de programación VB y seleccionar el elemento "Biblioteca de objetos de Microsoft Excel 11.0" en el proyecto. Dado que su versión de Excel es diferente, el número de versión de esta opción también es diferente.

Dado que EXCEL organiza los objetos en una estructura jerárquica, su modelo de objetos contiene muchos elementos de objetos diferentes.

La primera capa: el objeto de la aplicación, que es el propio Excel

La segunda capa: el conjunto de objetos de los libros de trabajo, que hace referencia al archivo del libro de Excel

; La tercera capa: conjunto de objetos de hojas de cálculo, que representa una hoja de cálculo en Excel.

La cuarta capa: objetos de celdas y rango, que apuntan a las celdas de la hoja de cálculo de Excel.

Crea un nuevo proyecto VB y primero coloca un botón llamado Excel_Out. Primero defina cada capa:

Dim xlapp As Excel.Application 'Excel object

Dim xlbook As Excel.Workbook 'Workbook

Dim xlsheet As Excel Worksheet '. Hoja de trabajo

Lo que planeamos hacer es: abrir/crear un nuevo Excel, modificar los valores de algunas celdas en una hoja de trabajo y luego guardarlo como un archivo test.xls.

Sub privado Excel_Out_Click()

Dim i, j como entero

Establecer xlapp = CreateObject("Excel.Application") 'Crear objeto EXCEL

'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") 'Abre el archivo de libro de trabajo test.xls existente

Set xlbook = xlapp.Workbooks Add '. Nuevo archivo de libro de trabajo EXCEL

'xlbook.RunAutoMacros (xlAutoOpen) 'Ejecutar macro de inicio de EXCEL

'xlbook.RunAutoMacros (xlAutoClose) 'Ejecutar macro de cierre de EXCEL

xlapp .Visible = True 'Establecer el objeto EXCEL para que sea visible (o invisible)

Set xlsheet = xlbook.Worksheets(1) 'Establecer la hoja de trabajo activa''

''~ ~ ~La primera página del libro actual, también puedes cambiarla a "nombre de tabla"

'Lo siguiente es simplemente escribir números en algunas celdas

Para i = 7 a 15

Para j = 1 a 10

xlsheet.Cells(i, j) = j 'Fila I, columna J de la primera página del libro actual

Siguiente j

Siguiente i

Con xlsheet 'Establece el borde para que sea una línea sólida

.Range(.Cells(7, 1), .Cells ( 28, 29)).Borders.LineStyle = xlContinuous

Terminar con

'Hacer referencia a la segunda página del libro actual

Establecer xlsheet = xlapp.Application . Worksheets(2)

xlsheet.Cells(7, 2) = 2008 'Escribe 2008 en la fila 7, columna 2 de la segunda página

xlsheet.SaveAs App.Path & "\ test.xls" 'Guardar como nombre de archivo especificado

'Set xlbook = xlapp.Application.Workbooks.Add 'Crear un libro en blanco

xlapp.Quit 'End EXCEL Object 'xlapp. Workbooks.Close

Set xlapp = Nothing 'Liberar el objeto xlApp

End Sub

De esta manera, podemos simplemente operar el archivo Excel.

Ahora déjame poner algo de información que encontré en Internet, que es bastante útil:

1. Crear objeto Excel

eole=CREATEOBJECT(′Excel.application′)

2. Agregar nuevo libro de trabajo

eole.Workbooks.add

3. Establezca la tercera hoja de trabajo como la hoja de trabajo activa

eole.Worksheets(〃sheet3〃).Activate

4. Abra el libro de trabajo especificado

eole.Workbooks.Open(〃c:\temp\ll.xls〃)

5. Mostrar la ventana de Excel

eole.visible=.t

6. Cambiar la barra de título de Excel

eole.Caption=〃La aplicación VB llama a Microsoft Excel〃

7. Asignar valores a las celdas

eole.cells(1,4).value=XM (XM es el nombre del campo de la base de datos)

8. Establezca el ancho de la columna especificada (unidad: número de caracteres)

eole.ActiveSheet.Columns(1).ColumnWidth=5

9. Establezca la altura de la fila especificada (unidad: puntos)

eole.ActiveSheet.Rows(1).RowHeight=1/0.035

(Establezca la altura de la fila en 1 cm, 1 punto = 0,035 cm)

10. Insertar un salto de página antes de la fila 18

eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1

11. Eliminar salto de página antes de la columna 4

eole.ActiveSheet.Columns(4).PageBreak=0

12. Especifique el ancho de la línea del borde (los parámetros de los bordes son los siguientes)

ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3

13 . Establezca el tipo de cuatro líneas de borde

eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1

(donde el parámetro Borders: 1-left , 2-derecha, 3-arriba, 4-abajo, 5-oblicuos, 6-oblicuos/valores de LineStyle: 1 y 7-sólidos delgados, 2-virtuales delgados, 4-puntos virtuales, 9-líneas continuas delgadas dobles)

14. Establezca el encabezado de la página

eole.ActiveSheet.PageSetup.CenterHeader=〃Report 1〃

15. Establecer pie de página

eole.ActiveSheet.PageSetup.CenterFooter=〃Page &P〃

16. Establezca el margen superior del encabezado en 2 cm

eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035

17. Establece el margen inferior del pie de página en 3 cm

eole.ActiveSheet.PageSetup.FooterMargin=3/0.035

18. establecer la parte superior

El margen es de 2 cm

eole.ActiveSheet.PageSetup.TopMargin=2/0.035

19. Establece el margen inferior en 4 cm

eole.ActiveSheet.PageSetup.BottomMargin=4/0.035

20. Establece el margen izquierdo en 2 cm

veole.ActiveSheet.PageSetup.LeftMargin=2/0.035

21. Establece el margen derecho en 2 cm

eole.ActiveSheet.PageSetup.RightMargin=2/0.035

22. Configure la página para que esté centrada horizontalmente

eole.ActiveSheet.PageSetup.CenterHorizontally=.t

23. Configure la página para que esté centrada verticalmente

eole.ActiveSheet.PageSetup.CenterVertically=.t

24. Establezca el tamaño del papel de la página (1 - línea estrecha 8?5?11 39 - línea ancha 14?11)

eole.ActiveSheet.PageSetup.PaperSize=1

25. Imprimir líneas de cuadrícula de celdas

eole.ActiveSheet.PageSetup.PrintGridlines=.t

26. Copia la hoja de trabajo completa

eole.ActiveSheet.UsedRange.Copy

27. Copia el rango especificado

eole.ActiveSheet.Range(〃A1:E2〃).Copy

28. Pegar

eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial

29. Insertar una fila antes de la fila 2

eole.ActiveSheet.Rows(2).Insert

30. Insertar una columna antes de la columna 2

eole.ActiveSheet.Columns(2).Insert

31. Establecer fuente

eole.ActiveSheet.Cells(2,1).Font.Name=〃Boldbody〃

32. Establecer tamaño de fuente

eole.ActiveSheet.Cells(1,1).Font.Size=25

33. Establezca la fuente en cursiva

eole.ActiveSheet.Cells(1,1).Font.Italic=.t

34. Establezca la fuente de toda la columna en negrita

eole.ActiveSheet.Columns(1).Font.Bold=.t

35. Borrar fórmula de celda

eole.ActiveSheet.Cells(1,4).ClearContents

36. Imprimir hoja de trabajo de vista previa

eole.ActiveSheet.PrintPreview

37. trabajo de impresión

Tabla

eole.ActiveSheet.PrintOut

38. Guarde la hoja de trabajo como

eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)

39. Abandonar el ahorro

eole.ActiveWorkbook.saved=.t

40. Cierra el libro de trabajo

eole.Workbooks.close

41. Salir de Excel

eole.quit