在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
答案 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