Aşağıdaki kod ile tüm sayfaları ayrı bir excel halinde makrosuz olarak farklı kaydeder.
Application.DisplayAlerts = False
ThisWorkbook.CheckCompatibility = False
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\import.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=True
Yorumlar
Yorum Gönder
Görüş yorum paylaşabilirsin