【正文】
SkipBlanks:=False, Transpose:=False = False End If Next i Set conn = Nothing = True = True‘拆分至工作表完畢,開始拆分至單獨文件,如無需拆分至文件,請將以下代碼刪除,保留最后一行End Sub結(jié)束語 Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook Set fso = CreateObject() ( amp。 Sql = select * from [ amp。選完確定開始自動拆分,此時鼠標(biāo)會不停閃動,根據(jù)文檔大小,運行一段時間,并不是死機,一般會有幾分鐘時間,如果你的文檔有上萬行那會更久。此時會讓你選擇標(biāo)題行和待分組的列標(biāo)題。data source= amp