c#/vb.net 在不同工作簿之间复制单元格范围-人生就是博尊龙凯时

pm> install-package spire.xls

using spire.xls;
namespace copycellrange
{
    class program
    {
        static void main(string[] args)
        {
            //创建一个workbook对象
            workbook sourcebook = new workbook();
            //加载源 excel 文档
            sourcebook.loadfromfile(@"c:\users\administrator\desktop\测试文档.xlsx");
            //获取源工作表
            worksheet sourcesheet = sourcebook.worksheets[0];
            //获取源单元格区域
            cellrange sourcerange = sourcesheet.range["a1:e4"];
            //创建另一个workbook对象
            workbook destbook = new workbook();
            //加载目标工作簿
            destbook.loadfromfile(@"c:\users\administrator\desktop\目标文档.xlsx");
            //获取目标工作表
            worksheet destsheet = destbook.worksheets[0];
            //获取单元格区域
            cellrange destrange = destsheet.range["b2:f5"];
            //将数据从源范围复制到目标范围
            sourcesheet.copy(sourcerange, destrange);
            //循环遍历源范围中的列
            for (int i = 0; i < sourcerange.columns.length; i  )
            {
                //将列宽也从源范围复制到目标范围
                destrange.columns[i].columnwidth = sourcerange.columns[i].columnwidth;
            }
            //将目标工作簿保存到 excel 文件
            destbook.savetofile("复制单元格范围.xlsx");
        }
    }
}

imports spire.xls
namespace copycellrange
    friend class program
        private shared sub main(byval args as string())
            '创建一个workbook对象
            dim sourcebook as workbook = new workbook()
            '加载源 excel 文档
            sourcebook.loadfromfile("c:\users\administrator\desktop\测试文档.xlsx")
            '获取源工作表
            dim sourcesheet as worksheet = sourcebook.worksheets(0)
            '获取源单元格区域
            dim sourcerange as cellrange = sourcesheet.range("a1:e4")
            '创建另一个workbook对象
            dim destbook as workbook = new workbook()
            '加载目标工作簿
            destbook.loadfromfile("c:\users\administrator\desktop\目标文档.xlsx")
            '获取目标工作表
            dim destsheet as worksheet = destbook.worksheets(0)
            '获取单元格区域
            dim destrange as cellrange = destsheet.range("b2:f5")
            '将数据从源范围复制到目标范围
            sourcesheet.copy(sourcerange, destrange)
            '循环遍历源范围中的列
            for i as integer = 0 to sourcerange.columns.length - 1
                '将列宽也从源范围复制到目标范围
                destrange.columns(i).columnwidth = sourcerange.columns(i).columnwidth
            next
            '将目标工作簿保存到 excel 文件
            destbook.savetofile("复制单元格范围.xlsx")
        end sub
    end class
end namespace