farklı kaydetme macro

[fatcem]

Merhabalar,

bir excel dosyam var ve aşağıdaki kod ile farklı kaydediyorum. Başka bir import da kullanmak yeni excel dosyası açmak ve sayfa 2 deki tüm verilerin sadece değerlerini yeni açılan dosyaya ekleyip metin (macintosh)(*txt) olarak kaydetmek istiyorum. Kayıt adı o an tarih saat olabilir.

İlginiz için şimdiden teşekkürler.


kod:

Sub KOD()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

yol = "C:\Pegasus\Biletbank" & "\BB_" & Format(Now, "ddmmyyyy hhmm") & ".txt"

Sheets("Sayfa2").Select
Cells.Copy
Workbooks.Add
Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:=yol, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

 

[halit3]

Bu kodu bir dene

Sub deneme()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("Sayfa2").Copy

dosya_adi = "text dosya" & Format(Now, "dd_mm_yyyy hh.nn.ss") & ".txt"

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & dosya_adi, FileFormat:=xlTextMSDOS, CreateBackup:=False
ActiveWindow.Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub