xlbook.SaveAs FileName:="d:\Sj.xls"把上面这一行修改成下面的：xlbook.SaveAs FileName:="d:\" & Sj & ".xls"
xlbook.SaveAs FileName:="d:\" + Sj + ".xls"
