Ver Mensaje Individual
  #9  
Antiguo 13-07-2006
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Reputación: 19
kuan-yiu Va camino a la fama
A ver, que creo que me he liado con los nombres de las variables. Es que yo genero un documento con múltiples hojas y parte del código no es mío, así que me lío un poco.
Código Delphi [-]
  ExcelApp,      // Excel application
  WorkBook,      // Excel workbook
  WorkSheet: Variant ; // Excel sheet in workbook
Código Delphi [-]
  // Inicializo variables.
// ...

  // Creo la instancia de Excel
      try
        ExcelApp := CreateOLEObject('Excel.Application') ;
      except
        MessageDLG('Imposible iniciar Excel',mtError,[mbOK],0) ;
        Raise ;
      end ;
      {$IFDEF IAMDEBUGGING}
      ExcelApp.Visible := True ;
      {$ENDIF}
      ExcelApp.WorkBooks.Add;

  // Ahora le añado tantas hojas como necesite.
// ...

  // Esto va dentro de un bucle porque proceso cada hoja de forma consecutiva
          ExcelApp.workbooks[1].worksheets[hoja].Activate;
          ExcelApp.workbooks[1].worksheets[hoja].name := nombre;
          WorkBook := ExcelApp.ActiveWorkBook ;   // Get the active workbook
          WorkSheet := WorkBook.ActiveSheet;      // Get the active sheet

  // Ahora relleno la hoja actual e incremento los contadores.
// ...
Responder Con Cita