老师：
我的问题有三个：
1:我按照下面的代码生成的报表总是会多一行空行，怎么删除？
2:如下的代码有多个，如何封装到函数里面，通过传递参数调用。我尝试了传递 doc，
代码实现不了，是不是还要传递app? 如果要传递怎么传递呢？
3:每次生成的报表是直接在模板的基础上填充了数据，如何每次生成的都是单独的另外一张表，而不会覆盖模板或者历史生成的报表呢？
谢谢老师解答疑问！！
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open("G:\系统\Attachments\周计划汇总.doc")
Functions.Execute("各部门周报","IT","IT信息技术部")
''--------------------------------IT信息部----------------------------------------------------------------------------------------
''--------------------------------IT信息部----------------------------------------------------------------------------------------
If app.ActiveWindow.Selection.Find.Execute("IT已完成") = True Then
Dim drs As List(Of DataRow) = DataTables("计划汇总_Table计划汇总").Select("部门 = 'IT信息技术部' and 状态 = '已完成'")
Dim li() As String = {"序号","实施项目","责任人","管理项目","目标值","计划开始时间","计划完成时间","完成情况","计划来源"}
doc.Tables.Add(Range:=app.Selection.Range,NumRows:=1, NumColumns:= li.Length)
With app.Selection.Tables(1)
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
For Each dc As String In li
app.Selection.TypeText(Text:=dc)
app.Selection.MoveRight(Unit:=12)
Next
Dim i As Integer = 1
For Each dr As DataRow In drs
For Each dc As String In li
If dc = "序号" Then
app.Selection.TypeText(Text:= CStr(i))
ElseIf dc <> "序号" Then
app.Selection.TypeText(Text:=dr(dc) )
End If
app.Selection.MoveRight(Unit:=12)
i = i + 1
Next
Next
End If
此主题相关图片如下：8f5e1edd-49aa-47eb-bab8-e3fb8792a29e.png
[此贴子已经被作者于2020/5/9 1:44:03编辑过]
加好友 
发短信
Post By：2020/5/9 1:40:00 [只看该作者]
