整合了代码：
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open(ProjectPath & "\Reports\公司月报.docx")
If app.ActiveWindow.Selection.Find.Execute("test") = False Then
'插入表格,方法1或2
try
'Dim doc = app.Documents.add
Dim dt As DataTable = DataTables("药箱")
doc.Tables.Add(Range:=app.Selection.Range,NumRows:=1, NumColumns:= dt.DataCols.Count)
With app.Selection.Tables(1)
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
For Each dc As DataCol In dt.DataCols
app.Selection.TypeText(Text:=dc.Name)
app.Selection.MoveRight(Unit:=12)
Next
For Each dr As DataRow In dt.DataRows
For Each dc As DataCol In dt.DataCols
app.Selection.TypeText(Text:=dr(dc.Name))
app.Selection.MoveRight(Unit:=12)
Next
Next
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
End If
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
1. 不起作用，无法导入“公司月报”，不知道哪儿不对，
2. 单独测试导出表格代码，发现在WORD中没有表格线，求解，谢谢
加好友 
发短信
Post By：2015/10/29 14:01:00 [只看该作者]
