小弟按各位大侠的指点做了个软件：打开某个excel空表，将数据写入其中，再关闭之。但是只能指定是当前打开的第几个workbook的第几个worksheet，如果在运行之前随意开几个excel，就会把数据填错地方。不知如何对指定名称的workbook和worksheet进行操作？ 發表人 - ffprince 於 2004/02/06 20:45:09

您好：  

 
procedure TTransin.SpeedButton2Click(Sender: TObject);
Var
  SQLStr,Filename: String;
  xlsApp, WorkBook: Variant;
  i,j,k:integer;
begin
  if OpenDialog1.Execute then //利用OpenDialog1來開啟EXCEL檔案，當然也可以在下方，OpenDialog1.FileName的地方，以固定的檔名填入
  begin
    Try
      Application.ProcessMessages;
      xlsApp:= CreateOleObject('Excel.Application');
      WorkBook:= CreateOleobject('Excel.Sheet');
    Except
      ShowMessage('請先安裝 Microsoft Excel 再執行本程式！');
      WorkBook.Close;         //關閉EXCEL
      xlsApp.Quit;            //退出Excel Application
      xlsApp:=Unassigned;     //free VARIANT
      Exit;
    End;
    WorkBook:= xlsApp.workBooks.Open(OpenDialog1.FileName);
    WorkBook.sheets[1].Select;//指定哪一ㄍsheets        Filename:= copy(ExtractFileName(OpenDialog1.FileName),1,3);
    SQLStr:= 'Select * from Hc200 where HcNo like ''' Filename '%' '''';
    Hc200.Close;
    Hc200.SQL.Clear;
    Hc200.SQL.Add(SQLStr);
    Hc200.Open;        j:= Hc200.RecordCount;
    Gauge1.MinValue:= 0;
    Gauge1.MaxValue:= j;
    Gauge1.Progress:= 0;
    k:= 0;
    for i := 1 to j 1 do
    begin
      if Trim(xlsApp.Cells[i,1]) <> '' then
      begin
      SQLStr:='UpDate Hc200 Set HBsAg = ''' Trim(xlsApp.Cells[i,2]) '''' ',' 
              '                 HBsAb  = ''' Trim(xlsApp.Cells[i,3]) '''' ',' 
              '                 HBsAge = ''' Trim(xlsApp.Cells[i,4]) '''' ',' 
              '                 Ant = ''' Trim(xlsApp.Cells[i,5]) '''' ',' 
              '                 RPR = ''' Trim(xlsApp.Cells[i,6]) '''' ',' 
              '                 Typing = ''' Trim(xlsApp.Cells[i,7]) '''' 
              ' where HcNo = '''  Trim(xlsApp.Cells[i,1]) '''';
      Hc200.Close;
      Hc200.SQL.Clear;
      Hc200.SQL.Add(SQLStr);
      Hc200.ExecSQL;
      Gauge1.Progress:= i;
      inc(k);
      end;
    end;
    WorkBook.Close;         //關閉EXCEL
    xlsApp.Quit;            //退出Excel Application
    xlsApp:=Unassigned;     //free VARIANT
    Gauge1.Progress:= 0;
  end;
end;    

~~應無所住而生其心~~