Delphi 操作Excel

if OpenDialog1.Execute then
  begin
    try
      VExcelApp := CreateOleObject('Excel.Application');
      VExcelWorkBook := VExcelApp.Workbooks.Open(OpenDialog1.FileName);
      VExcelApp.Visible := False;
      ComboBox1.Items.Clear;
      for i := 1 to VExcelApp.WorkSheets.Count do
      begin
        VExcelWorkSheet1 := VExcelWorkBook.Sheets[i];
        ComboBox1.Items.Add(VExcelWorkBook.Sheets[i].Name+'$');
      end;
      finally
        end;
  end