çalışma sayfaları

[heretica]

Merhabalar
arkadaslar 58 adet calısma sayfası olan bir dosyam var bu çalışma sayfalarını
her bir çalışma sayfasının kendı ısmının alarak prn uzantılı olarak tek hamlede kayıt edebılırmıyım

şımdıden tesekkurler

 

[F1]

Merhaba
Kodları bahsettiğiniz dosyaya yerleştirin, dosya ile aynı klasöre dosyaları oluşturacaktır, başka bir klasör istiyorsanız
ThisWorkbook.Path & "\data\" gibi arkasına ekleyebilirsiniz.

Sub prnyap()
Dim sht As Worksheet, wrk As Workbook

For Each sht In ThisWorkbook.Sheets
    sht.Copy
    Set wrk = ActiveWorkbook
    wrk.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".prn"
    wrk.Close False
Next
End Sub

 

[heretica]

cevap için teşekkurler
kod dogru calısıyor fakat uzantı prn olmasına ragmen xls olarak ancak açabılıyorum
gercek anlamda prn ( biçimli metin boşlukla ayrılmıs *.prn ) olamazmı bu şekılde

 

[F1]

Birde bu şekilde deneyin.

wrk.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".prn", FileFormat:=xlTextPrinter, CreateBackup:=False

 

[heretica]

teşekkurler bu kod işimi çozdu.
kolay gelsın iyi çalışmalar