Цикл для сохранения нескольких отдельных файлов на основе элементов комбинированного фильтра

Question

В Excel VBA я хотел бы создать цикл, который повторяет различные значения в комбинированном ящике (комбинированный список применяет фильтры к файлу) и сохраняет его как отдельный файл.

Я хочу написать что-то вроде:

list = [a, b, c, d, e, f]

Для каждой итерации в списке: Рабочие листы ("Combobox_sheet"). Диапазон ("B4") = итерация сохранить как (итерация + "имя_файла" + "xls")

должно возвращать что-то 6 файлов, например "afile_name.xls", bfile_name.xls "и т. д.

Я действительно не уверен, я пробовал ниже

Each i In List

Worksheets("Combobox_sheet").Range("B4") = i

save_as = i + "file_name" + ".xls"

save_as.save

и

Dim i As Integer 
For i = Worksheets("List").Range("E2") To` `Worksheets("List").Range("E8") Step 1

    ("Combobox_sheet").Range("B4").Value = i
    save_as = i + "file_name" + ".xls"
    save_as.Save
    Next i

Answer 1

Пример кода, связанный с моим комментарием

Dim sh as worksheet
For each sh in ThisWorkbook.worksheets
    if sh.name <> "a name of a sheet to avoid" then
        sh.copy
        ActiveWorkbook.SaveAs "filepath/filename.xls", fileformat:=57 '57 is for xls files
        Activeworkbook.close
    end if
next