Eger Banka_Listesi.xlsx dosyasi foxpro icinden olusturulup acildiysa kolayca kapatilabilir.
Sadece fikir olarak sunu onerebilirim (Yada ben olsam ne yapardim demek daha uygun)
Excel dosyasini olusturuyorken, dosya isminin en sonuna Banka_Listesi_YYYYGGAA_DDSS_XXXX.xlsx (Yil, ay, gun, saat ve dakika + birkac karakterlik rastgele bir karakter dizisi eklerdim)
Mesela: Banka_Listesi_20200203_2150_AB70.xlsx gibi.
LOCAL lcExcelFileName
FOR LNX = 1 TO 5
m.lcExcelFileName = 'Banka_Listesi' + '_' + Dtos(Date()) + '_'+ Chrtran(Time(),':','') +'_' +Substr(GetGuid(),2,4) + '.xlsx'
Messagebox(m.lcExcelFileName,0+64,'Excel dosyasi olarak kullanilacak Unique isim!')
ENDFOR
Function getGUID && Cetin Basoz
Declare Integer UuidCreate In 'RPCRT4.dll' String @pguid
Declare Integer StringFromGUID2 In 'Ole32.dll' ;
string rguid, String @lpsz, Integer cchMax
Local pguid,rguid
pguid=Replicate(Chr(0),16)
rguid=Replicate(Chr(0),80)
UuidCreate(@pguid)
StringFromGUID2(pguid,@rguid,40)
Return Strconv(Left(rguid,76),6)
Endfunc
Bazen kolaya kacmak en pratik + mantikli cozum olabiliyor.
Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü