Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Seçilen tüm kayıtları listeleme...
#1
Selamlar;

Exceldeki verileri listview de listeliyorum, fakat excel birden fazla kayıt seçtiğimde sadece bir tane excelin verilerini listeliyor, seçilen diğer excelleri de listviewde eklenmesini nasıl sağlaya bilirim? 


procedure TForm1.BtnAraClick(Sender: TObject);
const
  xlCellTypeLastCell = $0000000B;
var
  Kayit: TListItem;
  Buldum: String;
  Book: Variant;
  Excel, Sheet: Variant;
  Kolon, SSay: Integer;
begin
  try
    Excel := CreateOleObject('Excel.Application');
    begin
      OpenDialog.Filter := 'Excel *.xls,*.xlsx|*.xls;*.xlsx';
      OpenDialog.Options := OpenDialog.Options + [ofAllowMultiSelect];
      // OpenDialog.FilterIndex := 1;
      if OpenDialog.Execute then
      begin
        Book := Excel.WorkBooks.Open(OpenDialog.FileName);
        Sheet := Book.worksheets[12];
        SSay := Excel.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell,
          EmptyParam).Row;
        ListView1.Items.Clear;
        ListView1.Items.BeginUpdate;
        try
          for Kolon := 1 to SSay do
          begin
            Buldum := Copy(Sheet.Cells[Kolon, 3].Text, 1, 1);
            if Pos(Buldum, 'E') > 0 then
            begin
              Screen.Cursor := crHourGlass;
              Kayit := ListView1.Items.Add;
              Kayit.Caption := IntToStr(ListView1.Items.Count);
              Kayit.SubItems.Add(Sheet.Cells[Kolon, 2].Text);
              Kayit.SubItems.Add(Sheet.Cells[Kolon, 3].Text);
              Kayit.SubItems.Add(Sheet.Cells[Kolon, 4].Text);
              Kayit.SubItems.Add('');
              Kayit.SubItems.Add('');
              Kayit.SubItems.Add(Sheet.Cells[Kolon, 6].Text);
              Kayit.SubItems.Add(Sheet.Cells[Kolon, 8].Text);
            end;
          end;
        finally
          ListView1.Items.EndUpdate;
        end;
      end;
    end;
    Screen.Cursor := crDefault;
    Excel.WorkBooks.Close;
    Excel.quit;
    Excel := Unassigned;
    Sheet := Unassigned;
  except
  end;
end;
Cevapla
#2
Alıntı:Exceldeki verileri listview de listeliyorum, fakat excel birden fazla kayıt seçtiğimde sadece bir tane excelin verilerini listeliyor, seçilen diğer excelleri de listviewde eklenmesini nasıl sağlaya bilirim? 

Birden fazla excel dosyası mı , bir dosyadaki birden fazla satır mı kastediyorsunuz
Cevapla
#3
Çünkü ListView1.Items.Clear; yapıyorsunuz her excel dosyası seçiminden sonra.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Usb cihazlarına veri yazma ve usb cihazlarını listeleme seci20 19 869 02-05-2018, Saat: 09:03
Son Yorum: seci20
  DLL içindeki Fonksiyonları Listeleme dicle_gsm 2 371 05-02-2018, Saat: 02:37
Son Yorum: dicle_gsm
  Resim listeleme Dostk 9 864 31-07-2017, Saat: 10:16
Son Yorum: Tuğrul HELVACI
  Silinmiş Kayıtları Gösterme Mericx 17 1.569 28-02-2017, Saat: 09:06
Son Yorum: AhmetBi



Konuyu Okuyanlar: 1 Ziyaretçi