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.
Excel Şifresi
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 401
- Kayıt: 22 Tem 2004 02:03
- Konum: sıkıntı çekmişlere yakın bi yerden
Excel Şifresi
type
Tform1 = class(Tform)
Tform1 = class(Tform)
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;
-
- Üye
- Mesajlar: 401
- Kayıt: 22 Tem 2004 02:03
- Konum: sıkıntı çekmişlere yakın bi yerden