Ver Mensaje Individual
  #2  
Antiguo 10-08-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Un ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Excel: OleVariant;
  Libro: OleVariant;
  Hoja: OleVariant;
  Rango: OleVariant;

begin
  // Creamos objeto Excel, libro y hoja
  //
  Excel := ComObj.CreateOleObject('Excel.Application');
  Libro := Excel.WorkBooks.Add;
  Hoja := Libro.ActiveSheet;

  // Estamos de pruebas, así que no queremos avisos de guardar cambios
  //
  Excel.DisplayAlerts := false;

  // Datos de prueba
  //
  Hoja.Cells[1, 1] := 'A';
  Hoja.Cells[1, 2] := 'B';
  Hoja.Cells[1, 3] := 'C';
  Hoja.Cells[1, 4] := 'D';

  // Seleccionamos las columnas A y C
  Rango := Hoja.Range['A:A, C:C'];

  // Y las escondemos
  Rango.EntireColumn.Hidden := true;

  // Mostremos nuestras hazañas
  Excel.Visible := true;
end;

// Saludos
Responder Con Cita