该如何读单元格数据?

解决方案 »

  1.   

    showmessage(excelapp.application.activesheet.cells[3,2].value);
      

  2.   

    ExcelApp:=CreateOleObject('Excel.Application');
    showmessage(excelapp.application.activesheet.cells[3,2].value);
      

  3.   

    var
      str :string;
    ...
      str := excelworksheet1.Cells[1,1];
      

  4.   


    ExlApp := CreateOleObject('Excel.Application');//创建Excel.Application
    ExlApp.WorkBooks.Add;//新加一个工作簿
    ExlApp.WorkSheets[1].Activate; //激活第一个Sheet
    ExlApp.Cells[3,4].Value:='AAA';
      

  5.   

    s:=ExlApp.cells[3,4];//注意不是(),是[]
    s:=ExlApp.cells[3,4];//注意不是(),是[]
    s:=ExlApp.cells[3,4];//注意不是(),是[]
    s:=ExlApp.cells[3,4];//注意不是(),是[]
    s:=ExlApp.cells[3,4];//注意不是(),是[]
    s:=ExlApp.cells[3,4];//注意不是(),是[]
    s:=ExlApp.cells[3,4];//注意不是(),是[]