¿Cómo utilizar VB para escribir datos en EXCEL?

Primero use ComObj para crear un objeto de Excel:

Atenuar ExcelID como Excel.Application

Establecer ExcelID como nuevo Excel.Application

1) Muestra la ventana actual.

ExcelID.Visible := True;

2) Cambiar la barra de título de Excel:

ExcelID.Caption := 'Aplicación que llama a Microsoft Excel'; p >

3) Agregar un nuevo libro de trabajo:

ExcelID.WorkBooks.Add;

4) Abrir un libro de trabajo existente:

ExcelID.WorkBooks. Open( 'C:\Excel\Demo.xls' );

5) Establezca la segunda hoja de trabajo como hoja de trabajo activa:

ExcelID.WorkSheets.Value := ' Primera fila, Cuarta columna';

7) Establece el ancho de la columna especificada (unidad: número de caracteres), tomando la primera columna como ejemplo:

ExcelID.ActiveSheet.Columns[1 ] .ColumnsWidth := 5;

8) Tomando la segunda fila como ejemplo, establezca la altura de la fila especificada (unidad: puntos) (1 punto = 0,035 cm): Bordes[2].Peso := 3;

1-Izquierda 2-Derecha 3-Arriba 4-Abajo 5-Inclinado (\ ) 6-Inclinado ( / )

12) Borra las celdas de la primera fila y cuarta columna Fórmula:

ExcelID.ActiveSheet.

13) Establezca las propiedades de fuente de la primera fila:

ExcelID.ActiveSheet.Rows[1].Font.Name := 'Clerical'

; ExcelID .ActiveSheet.Rows[1].Font.Color := clBlue;

ExcelID.ActiveSheet.Rows[1].Font.Bold := Verdadero

ExcelID.ActiveSheet. Filas [1].Font.UnderLine := True;

14) Ejecutar configuración de página:

a. := 'Presentación del informe';

b.';

c.Encabezado al margen superior 2 cm:

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2 /0.035;

d.Footer al margen inferior 3 cm:

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035.

j.CenterPageVertically :

ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;

k.PrintCellGrid:

ExcelID.ActiveSheet.PageSetup.PrintGridLines := Verdadero

p>

15) Operación de copia:

a. Copiar la hoja de trabajo completa:

ExcelID.ActiveSheet.Used.Range.Copy (copiar la hoja de trabajo completa) ):

A.PasteSpecial;

d. Pegar desde el final del archivo:

ExcelID.ActiveSheet.Range.PasteSpecial; p>16) Insertar una fila o columna:

a.ExcelID.ActiveSheet.Rows['A1'].Rows[ 2].Insert

b.ExcelID.ActiveSheet. Columnas[1].Insert;

p>

17) Eliminar una fila o columna:

a.ExcelID.ActiveSheet.Rows[2].Delete; >

b.ExcelID.ActiveSheet.Rows[2]. Eliminar;

b.ExcelID.ActiveSheet.Columns[1].Delete

18) Imprimir hoja de trabajo de vista previa:

ExcelID.ActiveSheet.PrintPreview;

19)Hoja de trabajo de PrintOut:

ExcelID.ActiveSheet.PrintOut

20) Guardar hoja de trabajo:

Si no es ExcelID.ActiveWorkBook .Guardado entonces

ExcelID.ActiveSheet.PrintPreview

Finalizar PrintPreview

Finalizar si

21) Guarde la hoja de trabajo como:

ExcelID.SaveAs(

'C:\Excel\Demo1.xls' );

22) Cancelar guardado:

ExcelID.ActiveWorkBook.Saved := True

23) Cerrar; Libro de trabajo:

ExcelID.WorkBooks.Close;

24) Salga de Excel. Salir de Excel:

ExcelID.Quit;

25) Establecer contraseña de hoja de cálculo:

ExcelID.ActiveSheet.Protect " 123", DrawingObjects:=True, Contenido : =Verdadero, Escenarios:=Verdadero

26) Maximizar la visualización de EXCEL

ExcelID.Application.WindowState = xlMaximized

27) Maximizar la visualización de la hoja de trabajo SheetsInNewWorkbook = 3 <

29) 'Si se solicita guardar al cerrar (true save;)

ExcelID.DisplayAlerts = False

30) Establecer ventana dividida y posición de fila fija

ExcelID.ActiveWindow.WindowState = xlMaximized

31) Establecer ventana dividida y posición de fila fija

ExcelID.ActiveWindow.WindowState = xlMaximizedExcelID.ActiveWindow .FreezePanes = True

31) Establecer el contenido de impresión de la impresión fija

ExcelID.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"

32) Establecer el título de impresión

ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = ""

33) Establecer el modo de visualización (visualización paginada)

ExcelID.ActiveWindow.View = xlPageBreakPreview

34) Establecer la proporción de visualización

ExcelID.ActiveWindow.Zoom = 100

35) Hacer que Excel responda a solicitudes DDE

Ej.Application.IgnoreRemoteRequests = Falso.