Excel Şifresi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Excel Şifresi

Mesaj gönderen true_false »

merhabalar yazdığım programa excelden bilgi alıyorum forumda bahsi geçen kodlarla bu işi yaptım fakat ufak bir sorunum var excel dosyasının açılışına şifre var her işlem yaptığımda bu şifre bana excel tarafından soruluyor
amacım bunu delphiden halletmek bir edite excel dosyasının şifresi girilerek gerekli bilgileri işin içine exceli katmadan almak
hepinize iyi çalışmlar kolay gelsin.
type
Tform1 = class(Tform)
DotCom
Kıdemli Üye
Mesajlar: 1696
Kayıt: 11 Tem 2003 10:30
Konum: İzmir
İletişim:

Mesaj gönderen DotCom »

Kod: Tümünü seç

var
  xls, xlw: Variant;
begin
  {load MS Excel}
  xls := CreateOLEObject('Excel.Application');

  {open your xls-file}
  xlw := xls.WorkBooks.Open(FileName := 'd:\book1.xls', Password := 'qq',
ReadOnly := True);
  {save with other file name}
  xlw.SaveAs(FileName := 'd:\book2.xls', Password := '');

  {unload MS Excel}
  xlw := UnAssigned;
  xls := UnAssigned;
end;
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

@dotcom teşekkür ederim bu kadar kolay halledebileceğimi zannedmyodum
type
Tform1 = class(Tform)
DotCom
Kıdemli Üye
Mesajlar: 1696
Kayıt: 11 Tem 2003 10:30
Konum: İzmir
İletişim:

Mesaj gönderen DotCom »

true_false yazdı:@dotcom teşekkür ederim bu kadar kolay halledebileceğimi zannedmyodum
bende bilmiyordum nasıl yapılacağını sayende örenmiş oldum ,
Cevapla