Algunos métodos comunes de control de VBS de Excel: Método (a) el uso de creado dinámicamente primero crear el objeto Excel, utilice ComObj: oExcel = CreateObject ( " Excel.Application " ) 1 ) muestra la ventana actual: oExcel.Visible = Verdadero 2 ) cambiar el título Excel columna: oExcel.Caption = " aplicación llama a Microsoft Excel " 3 ) Añadir un nuevo libro: oExcel.Workbooks.Add 4 ) para abrir un libro existente: oExcel.WorkBooks.Open ( " C: \ Excel \ demo.xls " ) 5 ) establecer la segunda hoja a la hoja activa: oExcel.WorkSheets ( 2 ) o .Activate oExcel.WorksSheets ( " Sheet2 " ) .Activate 6. ) asignado a las células: oExcel.Cells ( . 1, . 4 ) .Value = " La primera columna de la cuarta fila " 7 ) establece el ancho (en la columna especificada: número de caracteres), a una primera columna como un ejemplo: oExcel.ActiveSheet.Columns ( . 1 ) .ColumnsWidth = . 5 . 8 ) ajuste de la altura de la fila especificada (unidades: lb) (1 libra = 0 oExcel.ActiveSheet.Rows (: 0,035 cm), a la segunda fila en el Ejemplo 2 ) = .RowHeight 1. / 0,035 ' 1 cm. 9 antes) en la línea 8 Insertar salto de página: oExcel.WorkSheets ( 1. .Rows) ( 8. = .PageBreak) 1. 10 ) antes de eliminar la columna de la de salto de página 8:. oExcel.ActiveSheet.Columns ( . 4 ) .PageBreak = 0 . 11 ) especifica el ancho del borde: oExcel .ActiveSheet.Range ( " B3: D4 " ) .Borders (2 ) .Weight = 3
1- 2- inferior izquierda y superior derecha 4-5- 3- oblicua (\) 6- oblicuas (/)
12) Retire la cuarta fila de la primera columna de fórmula células:
oExcel.ActiveSheet.Cells (l, 4) .ClearContents
13 es ) una primera línea de atributos de fuente:
oExcel.ActiveSheet.Rows (1) .Font.Name = "guión oficial".
oExcel.ActiveSheet.Rows (1) .Font.Color = clBlue.
oExcel.ActiveSheet.Rows (1) .Font.Bold. True =
oExcel.ActiveSheet.Rows (1) = True .Font.UnderLine
14) configurar la página:
Un encabezado :.
oExcel.ActiveSheet.PageSetup.CenterHeader = "informe demuestra"
b pie de página :.
oExcel.ActiveSheet.PageSetup. CenterFooter = "en la página & P"
C de cabeza al 2cm margen superior:.
oExcel.ActiveSheet.PageSetup.HeaderMargin = 2 / 0.035
D pie de página en los márgenes laterales de extremo 3 cm :.
. oExcel.ActiveSheet.PageSetup.HeaderMargin = 3 / 0.035
E El 2cm margen superior:
oExcel.ActiveSheet.PageSetup.TopMargin = 2 / 0,035
F margen inferior 2cm .:
= 2 oExcel.ActiveSheet.PageSetup.BottomMargin / 0.035
G 2 cm desde la izquierda :.
oExcel.ActiveSheet.PageSetup.LeftMargin = 2 / 0,035
H margen derecho 2cm:.
OExcel.ActiveSheet.PageSetup.RightMargin = 2 / 0.035
I página centrado horizontalmente. :
oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2 / 0.035j página verticalmente centrada :.
oExcel.ActiveSheet.PageSetup.CenterVertically = 2 / 0.035
K unidad de impresión línea de rejilla :.
oExcel.ActiveSheet.PageSetup.PrintGridLines = True
15) la operación de copia: una copia de toda la hoja :.
área de copia designado oExcel.ActiveSheet.Used.Range.Copyb :.
oExcel.ActiveSheet.Range ( "A1: E2"). la copia
C de la posición de inicio de pasta A1 :.
oExcel.ActiveSheet.Range (. . "A1") el PasteSpecial
D desde el final del archivo empezar a pegar :.
oExcel.ActiveSheet.Range.PasteSpecial
16) insertar una fila o columna:
a.oExcel.ActiveSheet.Rows (2) .Insert
b.oExcel.ActiveSheet.Columns (. 1) .Insert
. 17) elimina fila o columna:
a.oExcel.ActiveSheet.Rows (2) .Delete
b.oExcel.ActiveSheet.Columns (. 1) .Delete
18 es) Vista para imprimir la hoja de cálculo:
oExcel.ActiveSheet.PrintPreview
19) copia impresa hoja de trabajo:.
oExcel.ActiveSheet.PrintOut
20 es) guarda una hoja:
ifnotoExcel.ActiveWorkBook.SavedthenoExcel.ActiveSheet.PrintPreview
21 está) se guarda la hoja de cálculo :
oExcel.SaveAs ( "C: \ Excel \ Demo1.xls")
22) renunciar a guardar:
oExcel.ActiveWorkBook.Saved True =
23) cierra el libro:
oExcel.WorkBooks.Close
24) salga de Excel:
oExcel.Quit