Question

抱歉，我非常无知，我想知道为什么const lWBATWorkSheet坐在-4167号码上。谢谢，杰克。

function TForm1.SaveAsExcelFile(AGrid: TStringGrid; ASheetName, AFileName: string): boolean;
const
xlWBATWorksheet = -4167;
var
righe, colonne: Integer;
GridPrevFile: string;
XLApp, Sheet, Data: OLEVariant;
l, s: Integer;
begin
  // Prepare Data
  Data := VarArrayCreate([1, AGrid.RowCount, 1, AGrid.ColCount], varVariant);
  for l := 0 to AGrid.ColCount - 1 do
    for s := 0 to AGrid.RowCount - 1 do
      Data[s + 1, l + 1] := AGrid.Cells[l, s];
  // Create Excel-OLE Object
  Result := False;
  XLApp := CreateOleObject('Excel.Application');
  try
  // Hide Excel
    XLApp.Visible := False;
  // Add new Workbook
    XLApp.Workbooks.Add(xlWBatWorkSheet);
    Sheet := XLApp.Workbooks[1].WorkSheets[1];
    Sheet.Name := ASheetName;
  // Fill up the sheet
    Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount,AGrid.ColCount)].Value := Data;
  // Save Excel Worksheet
    try
      XLApp.Workbooks[1].SaveAs(AFileName);
      Result := True;
    except
      ShowMessage('Fatal Error!');
    end;
    finally
    // Quit Excel
    if not VarIsEmpty(XLApp) then
    begin
      XLApp.DisplayAlerts := False;
      XLApp.Quit;
      XLAPP := Unassigned;
      Sheet := Unassigned;
     end;
    end;
   end;

Answer 1

将excel2000或excel97添加到use子句可以让您无需自己搜索和声明常量。

implementation
uses  excel2000;
{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
    Showmessage(Format('Unsigned %u, Signed %d', [xlWBATWorksheet , xlWBATWorksheet]));
    // will return Unsigned 4294963129, Signed -4167
end;

Answer 2

这是一个枚举。可能是这个值，因为它是列表中的下一个免费值。

这是一个很好的微软列表列表，你会看到它们以-4098开头并使用那里的值。

http://include.wutils.com/com-dll/constants/constants-Graph.htm

Delphi：为什么const设置为这个奇怪的值，使用Excel OLE互操作？

2 个答案: