今天，做会计的朋友问我一个问题，怎么讲Excel的工作表拆分成单独的文件，并给我发了一个链接。

 https://jingyan.baidu.com/article/75ab0bcb0ecc67d6874db27e.html 


说这个在他那执行不了，他还以为是office是非正版，专门买了个正版的。


随便试了下，发现能执行，让他截图，发现是他的工作表都是 用日期命名的，比如2016.1，然后拆分的文件就直接把 .1当成后缀名了。


修改下，强制将保存的文件以xls结尾，让他拿去执行了。我还真是第一次知道excel 还能用 代码来执行批量操作，又学到了。


Private Sub 分拆工作表()
       Dim sht As Worksheet
       Dim MyBook As Workbook
       Set MyBook = ActiveWorkbook
       For Each sht In MyBook.Sheets
           sht.Copy
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name & ".xls", FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.Close
       Next
       MsgBox "文件已经被分拆完毕!"
   End Sub

方法/步骤


	
打开我们的目标表格，进入到首页，建议将第一个SHEET重命名成目录，其他的sheet也命名成容易理解的名称，这样方便后期查找和编辑。

	


	

	
	

	
重命名完成后，返回到第一个sheet中，为了更能清晰的说明问题，我们选择以图形的方式来完成，依次点击插入>>>形状>>>五边形，如下图所示。

	

	
	

	
选择一个合适的形状类型格式颜色等，并加入对应的名称，所有的sheet都统一操作，如下图。

	


	

	
	

	
接着鼠标右键第一个图形，在右键菜单中选择超链接。

	

	
	

	
然后打开超链接的对话框，在左侧链接到选项中选择文档中的位置，也就是第二个选项。

	

	
	

	
接下来会打开当前表格中的所有sheet名称，选择要引用到的超链接sheet，比如此时选择名称为小黑的sheet，点击右下角的确定。

	

	
	

	
鼠标移动到添加超链接的图形上，会显示超链接位置，包括sheet名称已经目标单元格。

	


	
END
	
注意事项


	
也可以跳转到外部表格
	

	

今天，易老师来给大家分享一个比较实用的功能，将Word文档每一页都生成一个单独的文件，而且还能够自动命名。
准备工作
这里我以公司员工信息表来作为演示案例，最后我会将所有的员工单独生成每一个文件，还可以将该员工姓名命名。
1、首先，我们需要准备一些资料，一份Excel数据源表格，上面是所有员工信息资料。
2、员工信息表Word模板一份。
开始制作
1、首先，打开Word模板，进入「邮件」-「开始邮件合并」-「信函」。再点开「选中收件人」-「使用现有列表」，选择“数据源”表格位置。
2、进入「视图」-「大纲视图」，选中标题“员工信息”，将其设为「1级」。
3、在对应位置「插入合并域」。
4、点击「完成并合并」-「编辑单个文件」-「全部」。再次进入「大纲视图」，然后使用快捷键「Ctrl + A」全选，点击「显示文档」，进入「主控文档」-「创建」。
5、最后，我们只需将文档「另存为」即可全部保存。
相关技巧/ WORD联盟文档忘记保存怎么恢复？断电导致文件丢失如何恢复？/ WORD联盟原来Word也可以设置下拉菜单选项，你知道吗？
▽点击「
	

合并文档能有效的简化繁杂的文档管理。在工作中，当我们遇到需要将多个Excel工作表合并为一个工作表的时候，该怎么来合并呢，本文将进一步介绍。
使用工具：Free Spire.XLS for .NET、Visual Studio 2013
PS: 编辑代码前需要添加引用Spire.XLS.dll到项目程序中，并添加到命名空间
合并Excel表格分两种，一是合并多个工作薄中的工作表到一个工作表；二是合并一个工作簿中的多个工作表为一个工作表
一、从多个工作簿合并
using Spire.Xls;

namespace MergeWorksheet_XLS
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建一个Workbook类对象
            Workbook newbook = new Workbook();
            newbook.Version = ExcelVersion.Version2013;
            //删除文档中的工作表（新创建的文档默认包含3张工作表）
            newbook.Worksheets.Clear();

            //创建一个临时的workbook，用于加载需要合并的Excel文档
            Workbook tempbook = new Workbook();

            //加载需要合并的Excel文档保存到数组
            string[] excelFiles = new string[] { @"C:\Users\Administrator\Desktop\test.xlsx", @"C:\Users\Administrator\Desktop\sample.xlsx" };

            //遍历数组
            for (int i = 0; i < excelFiles.Length; i++)
            {
                //载入Excel文档
                tempbook.LoadFromFile(excelFiles[i]);
                //调用AddCopy方法，将文档中所有工作表添加到新的workbook
                foreach (Worksheet sheet in tempbook.Worksheets)
                {
                    newbook.Worksheets.AddCopy(sheet);
                }
            }
            //保存文档
            newbook.SaveToFile("MergeFiles.xlsx", ExcelVersion.Version2013);            
        }
    }
}

合并前：

合并后：

二、从同一个工作簿合并
using Spire.Xls;

namespace MergeWorksheetsToOne_XLS
{
    class Program
    {
        static void Main(string[] args)
        {
            //实例化一个Workbook类，加载Excel文档
            Workbook workbook = new Workbook();
            workbook.LoadFromFile(@"C:\Users\Administrator\Desktop\test.xlsx");

            //获取第1、2张工作表
            Worksheet sheet1 = workbook.Worksheets[0];
            Worksheet sheet2 = workbook.Worksheets[1];

            //复制第2张工作表内容到第1张工作表的指定区域中
            sheet2.AllocatedRange.Copy(sheet1.Range[sheet1.LastRow +3, 1]);

            //删除第2张工作表
           sheet2.Remove();
            //重命名的工作表1
           sheet1.Name = "外贸单证";

            //保存并运行文档
           workbook.SaveToFile("MergeSheets.xlsx", ExcelVersion.Version2013);
           System.Diagnostics.Process.Start("MergeSheets.xlsx");
        }
    }
}

合并前：

合并后：

以上合并方法为本次关于合并Excel文档的全部内容，如果喜欢欢迎转载（转载请注明出处）
转载于:https://blog.51cto.com/eiceblue/2064719