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

如何把EXCEL表中每一行單獨另存為一個EXCEL文件？

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

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

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

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

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

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