excel文件里有多個(gè)sheet，把每個(gè)sheet全部導(dǎo)出為單獨(dú)的xls或xlsx

昵稱27943849 2018-04-05

展開全文

'將工作簿所有工作表另存為單獨(dú)的文件。
'路徑為原工作簿路徑，文件名為工作表名
Sub Test()
Dim Sht As Worksheet
For Each Sht In Sheets
Sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sht.Name & ".xls"
ActiveWorkbook.Close
Next
End Sub

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來自：昵稱27943849 > 《EXCEL》

舉報(bào)/認(rèn)領(lǐng)