Excel Çalışma Kitabındaki Sheetleri Farklı ad ve uzantılarla kaydetme

[u.L.a.s]

Merhabalar

Üzerinde çalıştığımız excel sayfasının Sheet1 kısmını C:\Users altında "ErrDisableBul.prn" olarak kaydetsin. Sheet2 kısmını ise C:\Users altına Errorport.bat olarak kaydetsin

Bunu bir makro kod ile yapmak istiyorum bilgi ve yardımlarınızı rica ederim

 

[u.L.a.s]

Aşağıdaki kodla ayrı ayrı sheetleri xls olarak kaydederken sorunsuz kaydediyor.

fakat aşağıdaki kodla kırmızı renkle renklendirdiğim kısma xls yerine txt yazıyorum..

sheetleri ayrı ayrı txt olarak kaydediyor. ama bozuk karakterle kaydediyor.

Sorun ne olabilir acaba?

Dilerseniz bir excel sayfasına bu kodları atın. xls olarak kaydedin deneyin birde txt olarak deneyin. txt kaydederken bozuk karakterle kaydettiğini göreceksiniz

Bilgi ve yardımlarınızı rica ederim

Sub sayfalari_ayir_kaydet()
    Dim Sheet As Worksheet, SheetName$, MyFilePath$, N&
    MyFilePath$ = ActiveWorkbook.Path & "\" & _
    Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
         On Error Resume Next
        MkDir MyFilePath
        For N = 1 To Sheets.Count
            Sheets(N).Activate
            SheetName = ActiveSheet.Name
            Cells.Copy
            Workbooks.Add (xlWBATWorksheet)
            With ActiveWorkbook
                With .ActiveSheet
                    .Paste
                    .Name = SheetName
                    [A1].Select
                End With
                  
                .SaveAs Filename:=MyFilePath _
                & "\" & SheetName & "[COLOR="Red"][B].txt[/B][/COLOR]"
                .Close SaveChanges:=True
            End With
            .CutCopyMode = False
        Next
    End With
    Sayfa1.Activate
End Sub

 

[halit3]

.SaveAs Filename:=MyFilePath _
                & "\" & SheetName & ".txt"

yukarıdaki bölümü aşağıdakiyle değiştirin

.SaveAs Filename:=MyFilePath & "\" & SheetName & ".txt"[COLOR="Red"], FileFormat:=-4158[/COLOR]

 

[u.L.a.s]

Üstadım

emeğine bilgine sağlık.

beni büyük bir dertten kurtardın.

çok daha uzun yoldan işi yapıyordum ama bu yolla çok daha kısa yoldan iş çözümlenmiş oldu..

çok çok teşekkür ederim bu zamana kadar desteğin ve verdiğin bilgiler için