如何在<em>EXCEL</em>中使用<em>VBA</em>的SAV

测试下来，看到，就像微软官网所说的那样，这个参数：
ConflictResolution，是为了解决：
SaveAs方法发生在共zhidao享的工作簿上时如果有冲突(要SaveAs的文档有被其他进程/用内户独占打容开)时处理的方式；
而不是存在有同名文件时的处理方式。

至于最后的那个False，参数名是Local，表示的是使用VBA的语言而不是控制面板指定的语言来保存，这个和楼主的问题无关

save as是另存。知
1.如图所示，出现如图的对话框，点击否。

2.选择Excel保存的类型，点击Excel启用宏的工作簿.xlsm。

3.打开Excel，点击开发工具——宏，这时道就能发现ExcelVBA被保存了。

4.点击执版行，就能执行录制的宏代码了，效果如图所示。

5.当然也可以通过文件——另存为——文件格式为启用宏的工作簿权.xlsm。
Sub savetofile()
Application.ScreenUpdating = False

on error resume next '忽略zhidao错误，继续执行

Dim folder As String
folder = ThisWorkbook.Path & "\班级成绩回表"
If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder
Dim sht As Worksheet

For Each sht In thisworkbook.Worksheets
if sht.name<>"成绩表" then '判断表答名
sht.Copy
ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"
ActiveWorkbook.Close
end if
Next

Application.ScreenUpdating = True
End Sub

Saveas 是把当前文件另存为另一个文件,所以抄"当前"文件就变成目标文件了,想要做一知个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...
即:
把 ThisWorkbook.SaveAs ("d:\temp\temp全省道站点名单1.xls") 改为:
ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")