Son sorunuzu tam Bilmiyorum.
Bir şeyler kurcaladım inşallah olmuştur.
Kod:
Sub Auto_close()
aa= "\\10.0.0.1\rapor\dosya\kitap.xls"
ActiveWorkbook.SaveAs Filename:=aa
ThisWorkbook.Close SaveChanges:=False
End Sub
Sub Auto_close()
aa= "\\10.0.0.1\rapor\dosya\kitap.xls"
ActiveWorkbook.SaveAs Filename:=aa
ThisWorkbook.Close SaveChanges:=False
End Sub