【正文】
Set conn = Nothing = True = True‘拆分至工作表完畢,開始拆分至單獨(dú)文件,如無需拆分至文件,請(qǐng)將以下代碼刪除,保留最后一行End Sub結(jié)束語 Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook Set fso = CreateObject() ( amp。 \ amp。 ShName) For Each sht In If ShName Then Filename:= amp。 \ amp。 ShName amp。 \ amp。 , FileFormat:=xlNormal End If Next MsgBox 文件已經(jīng)被分拆完畢!End Sub‘vbs代碼結(jié)束