Excel VBA просматривает параметры проверки данных и сохраняет их как новую книгу

Question

У меня есть рабочая тетрадь с несколькими листами. Для этого проекта я сосредотачиваюсь на одном листе под названием «Отчет 3». На этом листе есть ячейка проверки данных («N12»), заполненная значениями на другом листе.

Моя цель состоит в том, чтобы просмотреть все возможные значения ячейки проверки данных и сохранить каждое из них в виде новой рабочей книги. Если возможно, я хотел бы сохранить его как текстовый файл utf-16 (но я не дошел до этого в моем коде).

Вот код, который у меня есть. Это работает, но только для первого значения проверки данных. Я догадываюсь, что это происходит с ActiveWorkbook.

Я ценю любую проницательность и помощь.

Sub loopthroughvalidationlist()

Dim inputRange As Range
Dim c As Range
Set inputRange = Evaluate(Range("N12").Validation.Formula1)

For Each c In inputRange
    Dim s As String
    s = Cells(12, "N").Value & "postran"
    ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "/" & s
Next c

End Sub 

Answer 1

Попробуйте это:

Sub loopthroughvalidationlist()

Dim inputRange As Range
Dim c As Range
Set inputRange = Evaluate(Range("N12").Validation.Formula1)

For Each c In inputRange
    Cells(12, "N").Value = c.Value
    Dim s As String
    s = Cells(12, "N").Value & "postran"
    ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "/" & s
Next c

End Sub