如何取得EXCEL2000某个单元格的值？

Question

赋值操作我会。
但读取我不会。

Answer 1

Sheet.Cells(1,1):='生 产 任 务 单';
    sheet.cells(2,1):='客户货号';
    sheet.cells(2,2):='货    号';
    sheet.cells(2,3):='货    名';

Answer 2

看看这个完整的全面Excel控制吧
全面控制 Excel 
首先创建 Excel 对象，使用ComObj:
var ExcelID: Variant;
ExcelID := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelID.Visible := True;
2) 更改 Excel 标题栏：
ExcelID.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelID.WorkBooks.Add;
4) 打开已存在的工作簿：
ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表：
ExcelID.WorkSheets[2].Activate;  
或 
ExcelID.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值：
ExcelID.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
9) 在第8行之前插入分页符：
ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;
10) 在第8列之前删除分页符：
ExcelID.ActiveSheet.Columns[4].PageBreak := 0;
11) 指定边框线宽度：
ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左    2-右   3-顶    4-底   5-斜( \ )     6-斜( / )
12) 清除第一行第四列单元格公式：
ExcelID.ActiveSheet.Cells[1,4].ClearContents;
13) 设置第一行字体属性：
ExcelID.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelID.ActiveSheet.Rows[1].Font.Color  := clBlue;
ExcelID.ActiveSheet.Rows[1].Font.Bold   := True;
ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;
14) 进行页面设置：
a.页眉：
    ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚：
    ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：
    ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
    ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：
    ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
    ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：
    ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：
    ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中：
    ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：
    ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线：
    ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;
15) 拷贝操作：
a.拷贝整个工作表：
    ExcelID.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域：
    ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴：
    ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.从文件尾部开始粘贴：
    ExcelID.ActiveSheet.Range.PasteSpecial;
16) 插入一行或一列：
a. ExcelID.ActiveSheet.Rows[2].Insert;
b. ExcelID.ActiveSheet.Columns[1].Insert;
17) 删除一行或一列：
a. ExcelID.ActiveSheet.Rows[2].Delete;
b. ExcelID.ActiveSheet.Columns[1].Delete;
18) 打印预览工作表：
ExcelID.ActiveSheet.PrintPreview;
19) 打印输出工作表：
ExcelID.ActiveSheet.PrintOut;
20) 工作表保存：
if not ExcelID.ActiveWorkBook.Saved then
   ExcelID.ActiveSheet.PrintPreview;
21) 工作表另存为：
ExcelID.SaveAs( 'C:\Excel\Demo1.xls' );
22) 放弃存盘：
ExcelID.ActiveWorkBook.Saved := True;
23) 关闭工作簿：
ExcelID.WorkBooks.Close;
24) 退出 Excel：
ExcelID.Quit;快点给分吧

Answer 3

你真是的，你不会用脑子想想啊，反过来不就正是你要的解决的问题啊。
比喻说字段值：=ExcelID.Cells[1,4].Value 这说不是给字段付值吗？

Answer 4

这是我写的一段代码，是从一个EXCEL表中取 出单元格的值，然后再把值写入到数据库中的函数：try
      ExcelApp:=CreateOleObject('Excel.Application');
      MyWorkBook:=CreateOleobject('Excel.Sheet');
    except
      application.Messagebox('无法打开Xls文件，请确认已 经安装EXCEL.','',
           mb_OK+mb_IconStop);
      Exit;
    end;
    MyworkBook:= ExcelApp.workBooks.Open(opendialog1.FileName);
    //打开文件后，对文件进行操作
    i := 2;
    while true do
    begin
      j:= MyWorkBook.WorkSheets[1].Cells[i,1].Value;
       {上面一行代码就是对单元格进行取值}
      try
        tmphykh:=inttostr(j);
      except
        showmessage('can not convert to string, error at the'+inttostr(i)+'line');
        exit;
      end;
      tmpName:= MyWorkBook.WorkSheets[1].Cells[i,2].Value;
      hykhlen:= Length(tmphykh);
      newcardstr:=  MyWorkBook.WorkSheets[1].Cells[i,3].Value;
      i := i + 1;
      if (tmpName = '') and (tmphykh = '') then
        break;
      if hykhlen<>0 then
      begin
        if hykhlen  <7 then
        begin
          k:=7-hykhlen;
          tmpstr:='';
          for m:=0 to k-1 do
              tmpstr:=tmpstr+'0';
          tmphykh:=tmpstr+tmpHykh;
        end;
        hykhlen:=length(newcardstr);
        if hykhlen <5 then
        begin
          k:=5-hykhlen;
          tmpstr:='';
          for M:=0 to k-1 do
            tmpstr:=tmpstr+'0';
          newcardstr:=tmpstr+newcardstr;
        end;
        with adoquery2 do
        begin
          close;
          SQL.Clear;
          SQL.Add('select id,hykh,[name] from customer where hykh=:hykhvalue');
          Parameters.ParamByName('hykhvalue').Value:= tmphykh;
          Open;
          prior;
          if not eof then
            if trim(tmpName)  = trim(FieldByName('Name').AsString) then
            begin
              close;
              SQL.Clear;
              SQL.Add('update customer set newcard='''+newcardstr+''' where hykh=:hykhvalue');
              Parameters.ParamByName('hykhvalue').Value:= tmphykh;
              ExecSQL;
              num:=num+1;
            end;  {if}
        end;  {with}
      end;  {if}
    end;  { while}

Answer 5

Result :String;
Row :Integer;
Column :Integer;
TOpenDialog :m_OpenDialog;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Open(m_OpenDialog.FileName);
ExcelApp.WorkSheets['..'].Activate;
激活工作区
.....
关键的一句话
Result:=ExcelApp.Cells[Row,Column].Value;

Answer 6

首先谢谢楼上各位同志。我之所以提出这个问题，是因为我在用  if  sheet1.cells[1,1].value<>''  then......
这个语句的时候出错，告诉我类型不匹配。我保证cells[1,1]里面存储的是字符串。
为什么你们上面的代码不出错呢？