Soru Sekme Adıyla XLS Export Etmek

[leonadies]

Arkdaşlar Merhaba;

İnternette çok bilgi var ancak ben istediğimi bulamadım. Çalıştığım "Proje.xlsm" adlı kitapta var olan "Veriler" isimli sekmeyi yine kitabın var olduğu konuma Sekme adı ile "Veriler.xls" olarka Export Kopya etmek istiyorum. Çoğu bilgi farklı kaydet şeklinde kodları içeriyor ancak ben çalıştığım kitaba dokumadan sekmeyi bir nevi EXPORT KOPYA yapmaya çalışıyorum. Yani PDF çıkartır gibi XLS dosyası çıkarmak istiyorum.

Mümkün mü?

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Sheets("Veriler").Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Veriler.xls", FileFormat:=xlExcel8
    ActiveWorkbook.Close
End Sub

 

[leonadies]

Teşekkürler üstadım @Muzaffer Ali Oldukça basitmiş

 

[leonadies]

@Muzaffer Ali Üstadım bu veriler sekmesinin üzerinde "Private Sub Worksheet_Change(ByVal Target As Range)" koduna bağlı alt komutlarım mevcut. Exceli export ederken bunları oluşan excelde komple silmenin yolu var mıdır?
Yani hem export etmiş olacak hemde makrolardan arındırmış olacak

 

[Muzaffer Ali]

xlsx formatında kaydedince kodlar siliniyor.

Sub Test()
    Sheets("Veriler").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Veriler.xlsx", FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub