0

对不起，我很无知，我想知道为什么将 constlWBATWorkSheet设置为 number -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;
4

3 回答 3

3

在 use 子句中添加 excel2000 或 excel97 可以让您摆脱自行搜索和声明常量的需要。

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;
于 2013-07-09T10:43:02.897 回答
1

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

这是一个很好的 Microsoft 枚举列表，您将在其中看到它们以 -4098 开头并使用从那里开始的值。

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

于 2013-07-09T11:28:38.443 回答
0

执行

使用Excel2010；

{$R *.dfm}

于 2021-11-19T20:49:58.090 回答