ExcelApp.ActiveSheet.Cells[1,4].NumberFormatLocal = "@"具体什么意思？

[egg68]

我想实现查询数据，显示在EXCEL表里，如何能动态设置EXCEL为文本形式呢？
搜索论坛，看到如上的代码，不晓得Cells[1,4]什么意思。也用不对在如下的代码里。
特请教。
procedure TForm1.Button1Click(Sender: TObject);
var
i, row, column: integer;
begin
Try
ExcelApplication1.Connect;
Except
MessageDlg('Excel may not be installed',
mtError, [mbOk], 0);
Abort;
End;
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Caption := 'Excel Application';
ExcelApplication1.Workbooks.Add(Null, 0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
DBGrid.DataSource.DataSet.Open;
row := 1;
While Not (DBGrid.DataSource.DataSet.Eof) do
begin
column := 1;
for i := 1 to DBGrid.DataSource.DataSet.FieldCount do
begin
ExcelWorksheet1.Cells.Item[row, column] := DBGrid.DataSource.DataSet.fields[i - 1].AsString;
column := column + 1;
end;
DBGrid.DataSource.DataSet.Next;
row := row + 1;
end;
end;

[egg68]

ExcelWorksheet1.Cells 好像只能这么用？

我用ExcelApplication1.ActiveSheet.Cells[1,4].NumberFormatLocal = "@"后，提示
[Error] newduochaxun.pas(147): Undeclared identifier: 'Cells'

[fishmans]

.NumberFormatLocal= '@' 是把单元格的格式设为文本格式

[egg68]

Cells[1,4]是何含义？

[gxgyj]

行数，列数

[egg68]

ExcelWorksheet1.Cells.NumberFormatLocal := '@' ;

那就应该这么用了吧。就是全部变文本。

ExcelApp.ActiveSheet.Cells[1,4].NumberFormatLocal = "@"
还是想问问大家，它的详细解释是什么。

[lunkie]

好像是把当前Sheet中D1的内容转成文本格式

[egg68]

谢谢大家