如何把EXCEL表中每一行單獨(dú)另存為一個(gè)EXCEL文件？功能：用當(dāng)前工作薄每條記錄創(chuàng)建一個(gè)新的工作薄，每個(gè)新建工作薄以第一行為標(biāo)題行，第二行為記錄，以A列記錄為工作薄名稱自動(dòng)保存。友情提示：1、如何把

如何把EXCEL表中每一行單獨(dú)另存為一個(gè)EXCEL文件？

功能：用當(dāng)前工作薄每條記錄創(chuàng)建一個(gè)新的工作薄，每個(gè)新建工作薄以第一行為標(biāo)題行，第二行為記錄，以A列記錄為工作薄名稱自動(dòng)保存。友情提示：

1、如何把下面的代碼添加到VBA環(huán)境：點(diǎn)擊“開發(fā)工具”－“visualBasic”進(jìn)入vba編輯環(huán)境，在左側(cè)的“工程”樹里點(diǎn)擊鼠標(biāo)右鍵，選擇“插入”－“模塊”，然后把下面的代碼粘貼到右側(cè)的編輯區(qū)里。2、如何使用：可創(chuàng)建熱鍵調(diào)用，也可點(diǎn)擊“開發(fā)工具”－“visualBasic”進(jìn)入vba編輯環(huán)境，在該過程代碼里點(diǎn)擊一下，然后點(diǎn)擊工具欄上的運(yùn)行按鈕（是一個(gè)實(shí)心三角形，鼠標(biāo)放上去停留一會(huì)，有提示“運(yùn)行子過程/...”）。

SubSplitExl()Application.DisplayAlertsFalse新建的文檔存在時(shí)，不發(fā)送警示，覆蓋式保存DimlngRs,lngCs,cx,strEndCl$DimtopR(),EveryR(),oExlAsObject,oWkAsWorkbookDimstrPath$strPath(Replace(Cells(1,lngCs).Address,$,),1,

)topRRange(A1:strEndCl1)數(shù)據(jù)標(biāo)題行Forcx2TolngRsEveryRRange(AFormat(cx):strEndClFormat(cx))把每行記錄放入數(shù)組SetoWk(1).Range(A1:strEndCl1)topR把標(biāo)題行放入另建的工作薄.Range(A2:strEndCl2)EveryR把單個(gè)記錄放入同一另建的工作薄(1,1).xls以每行A列記錄為工作薄名稱.CloseEndWithNextSetoWkNothingSetoExlNothingErasetopR:EraseEveryRApplication.DisplayAlertsTrueEndSub

excel中的“工具---保護(hù)----保護(hù)工作簿”有什么作用？

“工具---保護(hù)----保護(hù)工作簿”是保護(hù)工作表每一頁的名稱、位置不被改動(dòng)，被保護(hù)之后，你不能修改工作表名稱，也不能插入或刪除工作表。工作表的保護(hù)只能一個(gè)一個(gè)的做，不能一下都保護(hù)了。