сохранить каждый лист на свое оригинальное имя

Question

У меня есть код, указанный ниже, в котором я сохраняю файл листа в prn

Я не хочу давать имя файлу при его сохранении, я просто хочу сохранить каждый лист под своим оригинальным именем (так, имя листа raj, taj, bazz. Все они сохраняются под его оригинальным именем.

Sub CONVERT()
    Dim vcounter As Long
    Dim ws As Worksheet

    For Each ws In Sheets
        ws.Activate

        vcounter = 2
        While Range("A" & vcounter).Value <> ""
            Range("a" & vcounter).Value = Range("a" & vcounter).Value + 1
            vcounter = vcounter + 1
        Wend

        Application.DisplayAlerts = False
        ActiveSheet.SaveAs Filename:="D:\birla soft\apache.prn"
     Next ws
End Sub

Answer 1

Этот код проверен и сохраняет файл с именем ActiveSheet и с тем же расширением:

ActiveSheet.SaveAs Filename:="D:\birla soft\" & ActiveSheet.Name

Если вам нужно сохранить его с другим расширением, используйте вместо этого код:

ActiveSheet.SaveAs Filename:="D:\birla soft\" & ActiveSheet.Name & ".prn"

---

В вашем коде, если вам нужно сохранить каждый лист с его именем, просто измените ActiveSheet с помощью переменной ws, например:

Sub CONVERT()
    Dim vcounter As Long
    Dim ws As Worksheet

    For Each ws In Sheets
        ws.Activate

        vcounter = 2
        While Range("A" & vcounter).Value <> ""
            Range("a" & vcounter).Value = Range("a" & vcounter).Value + 1
            vcounter = vcounter + 1
        Wend

        Application.DisplayAlerts = False
        ws.SaveAs Filename:="D:\birla soft\" & ws.Name & ".prn"
     Next ws
End Sub