循环以根据组合框过滤器项保存多个单独的文件

时间:2019-04-16 14:02:48

标签: excel vba

在Excel VBA中,我想创建一个循环,该循环遍历组合框中的每个不同值(组合框将过滤器应用于文件),并另存为单独的文件。

我想写一些类似的东西:

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

对于每次迭代入列表:     Worksheets(“ Combobox_sheet”)。Range(“ B4”)=迭代     另存为(迭代+“文件名” +“ xls”)

它应该返回6个文件,例如“ afile_name.xls”,bfile_name.xls“等。

我真的不确定,我已经尝试过以下

{
“a3” : 3,
“a4” : 4,
.
.
“a24” : 24
}

和:

Each i In List

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

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

save_as.save

1 个答案:

答案 0 :(得分:0)

与我的评论相关的示例代码

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