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

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

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

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

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

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

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