1 reply to this topic

[FGarcia]

¿Como puedo ejecutar desde delphi una funcion de excel?
La funcion no es estandar de excel es un add-in o complemento.

En la Hoja declaro:

A1 = 1
A2 = AHORA()  */La fecha y hora actual
A3 = +A2-A1 */ El dia de ayer
A4 = "=fphxnumval(Tag,A3,A2,30)" */Una funcion a ejecutar con parametros, regresa 30 elementos o menos si existen
A5 = "=fphxgetval(i,"d") */de los 30 resultados obtenidos muestro el elemento i en modo float
B5 = "=fphxgetval(i,"t") */de los 30 resultados obtenidos muestro el tiempo de captura del elemento i

La intencion es generar la hora y fecha actual y el dia de ayer (A2 y A3) desde un datetimepicker y que al pulsar un boton se ejecute la funcion de A4 y B5 en un loop para mostrar los 30 resultados y guardarlos en excel.

El formulario, la generacion de las cadenas de fecha y hora ya esta solucionado, solo que no se como ejecutar las funciones de excel desde delphi (fphxnumval y fphgetval).



¿alguna sugerencia?

[Wilson]

Puede que esto te sirva de algo

delphi

uses
  ComObj;
 
var
  ExcelApp: OleVariant;
 
implementation
 
 
procedure TForm1.Button1Click(Sender: TObject);
const
  // SheetType
  xlChart = -4109;
  xlWorksheet = -4167;
  // WBATemplate
  xlWBATWorksheet = -4167;
  xlWBATChart = -4109;
  // Page Setup
  xlPortrait = 1;
  xlLandscape = 2;
  xlPaperA4 = 9;
  // Format Cells
  xlBottom = -4107;
  xlLeft = -4131;
  xlRight = -4152;
  xlTop = -4160;
  // Text Alignment
  xlHAlignCenter = -4108;
  xlVAlignCenter = -4108;
  // Cell Borders
  xlThick = 4;
  xlThin = 2;
var
  ColumnRange: OleVariant;
 
  // Function to get the number of Rows in a Certain column
 
  function GetLastLine(AColumn: Integer): Integer;
  const
    xlUp = 3;
  begin
    Result := ExcelApp.Range[Char(96 + AColumn) + 
IntToStr(65536)].end[xlUp].Rows.Row;
  end;
 
begin
  { Start Excel }
 
  // By using GetActiveOleObject, you use an instance of Word that's
already running,
  // if there is one.
  try
    ExcelApp := GetActiveOleObject('Excel.Application');
  except
    try
      // If no instance of Word is running, try to Create a new Excel 
Object
      ExcelApp := CreateOleObject('Excel.Application');
    except
      ShowMessage('Cannot start Excel/Excel not installed ?');
      Exit;
    end;
  end;
 
  // Add a new Workbook, Neue Arbeitsmappe öffnen
  ExcelApp.Workbooks.Add(xlWBatWorkSheet);
 
  // Open a Workbook, Arbeitsmappe öffnen
  ExcelApp.Workbooks.Open('c:\YourFileName.xls');
 
 
  // Rename the active Sheet
  ExcelApp.ActiveSheet.Name := 'This is Sheet 1';
 
  // Rename
  ExcelApp.Workbooks[1].WorkSheets[1].Name := 'This is Sheet 1';
 
  // Insert some Text in some Cells[Row,Col]
  ExcelApp.Cells[1, 1].Value := 'SwissDelphiCenter.ch';
  ExcelApp.Cells[2, 1].Value := '[url]http://www.swissdelphicenter.ch[/url]';
  ExcelApp.Cells[3, 1].Value := FormatDateTime('dd-mmm-yyyy', Now);
 
  // Setting a row of data with one call
  ExcelApp.Range['A2', 'D2'].Value := VarArrayOf([1, 10, 100, 1000]);
 
  // Setting a formula
  ExcelApp.Range['A11', 'A11'].Formula := '=Sum(A1:A10)';
 
  // Change Cell Alignement
  ExcelApp.Cells[2, 1].HorizontalAlignment := xlright;
 
  // Change the Column Width.
  ColumnRange := ExcelApp.Workbooks[1].WorkSheets[1].Columns;
  ColumnRange.Columns[1].ColumnWidth := 20;
  ColumnRange.Columns[2].ColumnWidth := 40;
 
  // Change Rowheight / Zeilenhöhe ändern:
  ExcelApp.Rows[1].RowHeight := 15.75;
 
  // Merge cells, Zellen verbinden:
  ExcelApp.Range['B3:D3'].Mergecells := True;
 
  // Apply borders to cells, Zellen umrahmen:
  ExcelApp.Range['A14:M14'].Borders.Weight := xlThick; // Think line/ 
Dicke Linie
  ExcelApp.Range['A14:M14'].Borders.Weight := xlThin;  // Thin line 
Dünne Linie
 
  // Set Bold Font in cells, Fettdruck in den Zellen
 
  ExcelApp.Range['B16:M26'].Font.Bold := True;
 
  // Set Font Size, Schriftgröße setzen
  ExcelApp.Range['B16:M26'].Font.Size := 12;
 
  //right-aligned Text, rechtsbündige Textausrichtung
  ExcelApp.Cells[9, 6].HorizontalAlignment := xlright;
 
  // horizontal-aligned text, horizontale Zentrierung
  ExcelApp.Range['B14:M26'].HorizontalAlignment := xlHAlignCenter;
 
  // left-aligned Text, vertikale Zentrierung
  ExcelApp.Range['B14:M26'].VerticallyAlignment := xlVAlignCenter;
 
 
  { Page Setup }
 
  ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape;
 
  // Left, Right Margin (Seitenränder)
  ExcelApp.ActiveSheet.PageSetup.LeftMargin  := 35;
  ExcelApp.ActiveSheet.PageSetup.RightMargin := -15;
 
  // Set Footer Margin
  ExcelApp.ActiveSheet.PageSetup.FooterMargin := 
ExcelApp.InchesToPoints(0);
 
  // Fit to X page(s) wide by Y tall
  ExcelApp.ActiveSheet.PageSetup.FitToPagesWide := 1;  // Y
  ExcelApp.ActiveSheet.PageSetup.FitToPagesTall := 3; // Y
 
  // Zoom
  ExcelApp.ActiveSheet.PageSetup.Zoom := 95;
 
  // Set Paper Size:
  ExcelApp.PageSetup.PaperSize := xlPaperA4;
 
  // Show/Hide Gridlines:
  ExcelApp.ActiveWindow.DisplayGridlines := False;
 
  // Set Black & White
  ExcelApp.ActiveSheet.PageSetup.BlackAndWhite := False;
 
  // footers
  ExcelApp.ActiveSheet.PageSetup.RightFooter := 'Right Footer / Rechte 
Fußzeile';
  ExcelApp.ActiveSheet.PageSetup.LeftFooter  := 'Left Footer / Linke 
Fußzeile';
 
  // Show Excel Version:
  ShowMessage(Format('Excel Version %s: ', [ExcelApp.Version]));
 
  // Show Excel:
  ExcelApp.Visible := True;
 
  // Save the Workbook                                      
  ExcelApp.SaveAs('c:\filename.xls');
 
  // Save the active Workbook:
  ExcelApp.ActiveWorkBook.SaveAs('c:\filename.xls');
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  // Quit Excel
  if not VarIsEmpty(ExcelApp) then
  begin
    ExcelApp.DisplayAlerts := False;  // Discard unsaved files....
    ExcelApp.Quit;
  end;
end;

Tambien esto

delphi

Function ExcelSetCellFormula(
  Excel         : Variant;
  FormulaString : ShortString;
  RowNum, ColNum: Integer): Boolean;
Begin
  Result := True;
  Try
    Excel.
      ActiveSheet.
        Cells[RowNum, ColNum].
          Formula := FormulaString;
  Except
    Result := False;
  End;
End;
 
Function ExcelGetCellFormula(
  Excel         : Variant;
  RowNum, ColNum: Integer): ShortString;
Begin
  Result := ' ';
  Try
    Result := Excel.
                ActiveSheet.
                Cells[RowNum, ColNum].
                Formula;
  Except
    Result := ' ';
  End;
End;