perl 读取文件的每一行 怎样把excel中的一个工作表中的行拆分成若干个独立的Excel文件？

怎样把excel中的一个工作表中的行拆分成若干个独立的Excel文件？假设您要为Sheet1表第二行的每一行创建一个新工作簿（独立文件）。工作簿以B.1列的单元格值命名。ALT F11 2，插入mod

怎样把excel中的一个工作表中的行拆分成若干个独立的Excel文件？

假设您要为Sheet1表第二行的每一行创建一个新工作簿（独立文件）。工作簿以B.1列的单元格值命名。ALT F11 2，插入module 3，将下面的代码粘贴到module sub split（）dim I as long dim Na as string中应用程序屏幕更新=False表示i=2到工作表（“sheet1”）。范围（“b65536”）。结束（xlUp）。行na=Sheets（“sheet1”）。单元格（i，2）。值工作表（“sheet1”）。复制ActiveWorkbook.SaveAs文件文件名：=此工作簿。路径& “”和ampna& “.xls”行（i）。复制行（“2”）行（“3:”&范围（“b65536”）。结束（xlUp）.Row）。删除活动窗口。关闭savechanges:=True下一步应用程序屏幕更新=真端sub 4。运行宏“split”