Kodda çalışmayan satır

[ersincelik1]

Dim FName As Variant
FName = Application.GetOpenFilename("Excel file (*.xls),*.xls)")
Workbooks.Open ("" & FName)

Workbooks("" & FName).Close--->>> burası nıye calısmıyor

ne yapmam lazım??
cok acıl bırı cevaplayabılır mı??

 

[sheetsMaster]

anladığım kadarıyla workbooks.close metoduna açık olan çalışma sayfasının tam yolu değil sadece adı geçilecek. Yani workbooks("deneme.xls").close gibi. Aşağıdaki şekilde çalışma sayfasının adını alıp kullanabilirsin.

Dim FName As Variant
FName = Application.GetOpenFilename("Excel file (*.xls),*.xls)")
Workbooks.Open (FName)
sName = Mid(FName, InStrRev(FName, "\") + 1)
Workbooks(sName).Close

 

[ersincelik1]

teşekkurler cok işime yaradi...