使用VB.Net操作Excel输出重复内容的表格

今天网友的一个提问，如何将以下模板的表：

输出类似：

我思考了一下解决的方法：
1、不用一个一个单元格读取，写入，这样比较麻烦，考虑直接复制粘贴。
2、即使在excel内复制粘贴，内容的格式也会变化。那么这里只考虑调整行高。
3、考虑向单元格中写入内容。
4、保存新表。

实现代码如下：

Imports Microsoft.Office.InteropPublic Class Form1Structure EmployeeDim xm As StringDim xb As StringDim mz As StringDim csny As StringDim jkzk As StringDim sg As StringDim jg As StringDim hy As StringDim gzbm As StringDim zw As StringDim rzsj As StringDim zc As StringEnd StructureDim companyPerson(4) As Employee'需要套用的模板文件Dim modelFile As String = "d:\a\职员登记表.xlsx"Private Sub btnToXls_Click(sender As Object, e As EventArgs) Handles btnToXls.ClickDim xls As New Excel.ApplicationDim Wbook As Excel.Workbook = xls.Workbooks.Open(modelFile)Dim Wsheet As Excel.WorksheetWsheet = Wbook.Worksheets("sheet1")Wsheet.Range("A1:H4").Copy()Dim destWbook As Excel.Workbook = xls.Workbooks.AddDim destWsheet As Excel.Worksheet = destWbook.Sheets.AdddestWsheet.Name = "职员表"For i As Integer = 0 To companyPerson.Length - 1destWsheet.Range("A" & ((i * 6) + 1)).PasteSpecial(Excel.XlPasteType.xlPasteAll)destWsheet.Rows((i * 6) + 1).rowheight = Wsheet.Rows(1).rowheightdestWsheet.Rows((i * 6) + 2).rowheight = Wsheet.Rows(2).rowheightdestWsheet.Rows((i * 6) + 3).rowheight = Wsheet.Rows(3).rowheightdestWsheet.Rows((i * 6) + 4).rowheight = Wsheet.Rows(4).rowheightdestWsheet.Cells((i * 6) + 2, 2).value = companyPerson(0).xmdestWsheet.Cells((i * 6) + 2, 4).value = companyPerson(0).xbdestWsheet.Cells((i * 6) + 2, 6).value = companyPerson(0).mzdestWsheet.Cells((i * 6) + 2, 8).value = companyPerson(0).csnydestWsheet.Cells((i * 6) + 3, 2).value = companyPerson(0).jkzkdestWsheet.Cells((i * 6) + 3, 4).value = companyPerson(0).sgdestWsheet.Cells((i * 6) + 3, 6).value = companyPerson(0).jgdestWsheet.Cells((i * 6) + 3, 8).value = companyPerson(0).hydestWsheet.Cells((i * 6) + 4, 2).value = companyPerson(0).gzbmdestWsheet.Cells((i * 6) + 4, 4).value = companyPerson(0).zwdestWsheet.Cells((i * 6) + 4, 6).value = companyPerson(0).rzsjdestWsheet.Cells((i * 6) + 4, 8).value = companyPerson(0).zcNextWbook.Close()destWbook.SaveAs("d:\a\输出表.xlsx")xls.Quit()End SubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadFor i As Integer = 0 To 4companyPerson(0).xm = "姓名" & icompanyPerson(0).xb = "男"companyPerson(0).mz = "汉"companyPerson(0).csny = "2000.12.26"companyPerson(0).jkzk = "良好"companyPerson(0).sg = "170"companyPerson(0).jg = "四川"companyPerson(0).hy = "未婚"companyPerson(0).gzbm = "研发部"companyPerson(0).zw = "（无）"companyPerson(0).rzsj = "2020.1.1"companyPerson(0).zc = "工程师"NextEnd Sub
End Class

这里使用的模板是：职员登记表.xlsx，里面内容见图一，输出为：输出表.xlsx。
表中输出了5个职员的信息，为了简化输入的数据，每个职员表使用内容一致。
最后输出结果：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供的参考。

学习更多vb.net知识，请参看 vb.net 教程目录

使用VB.Net操作Excel输出重复内容的表格相关推荐

python 获取excel文本框_如何基于python操作excel并获取内容
这篇文章主要介绍了如何基于python操作excel并获取内容,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下背景:从excel表中获取请求url. ...
vb.net操作Excel常用命令
首先,须在项目里引用: 添加引用->Com->Microsoft Excel 9.0 Object Library (这是EXCEL2000) 1 打开Excel: dim myexcel ...
python怎么写中文至excel_Python操作Excel_输出所有内容（包含中文）
python 2.7.5代码: # coding=utf-8 import sys import xlrd data=xlrd.open_workbook('D:\\menu.xls') table ...
VB中操作Excel文档
篇一:利用 Python 操作 Excel文档利用 Python 操作 Excel 在Excel 2010中打开VBA编辑器,请按 Alt + F11 打开: 以下代码在 Excel ...
如何用excel筛选相似内容_excel表格怎么筛选相同内容
1.打开表格,选中需要筛2113选重复数据5261的单元格(一列.一行.4102多列.多行.多个单元格1653都可以),点击"开始"菜单下的"条件格式",选择& ...
利用poi开源jar包操作Excel时删除行内容与直接删除行的区别
一般情况下,删除行时会面临两种情况:删除行内容但保留行位置.整行删除(删除后下方单元格上移).对应的删除方法分别是: void removeRow(Row row)//Remove a row fro ...
VB.NET操作EXCEL页面设置、打印输出
1 打开Excel dim myexcelas new Excel.Application() myexcel.visible=true 2 添加新的工作簿myexcel.Workbooks.add( ...
VB.NET 操作excel出现的{000208D5-0000-0000-C000-000000000046}错误
错误信息:000208D5-0000-0000-C000-000000000046 Unable to cast COM object of type 'System.__ComObject' to ...
计算机表格大小怎么调整,EXCEL如何根据内容自动调整表格尺寸?
2019-10-09阅读(722) 一.首先,打开Excel表格程序,在程序主界面中打开要调整的Excel表格,可以看到此时宽度不统一.二.然后,在Excel表格左上角点击小三角形.三.然后,即可看到 ...

使用VB.Net操作Excel输出重复内容的表格

使用VB.Net操作Excel输出重复内容的表格相关推荐

最新文章

热门文章