|
|
Sub 生成word()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application") '新建Word对象
Dim sj001, sj002, sj003
Dim d As Object
Dim wdd
t = Timer
Set d = CreateObject("scripting.dictionary")
Dim ar As Variant
Dim br()
lj = ThisWorkbook.Path
mb = lj & "\WORD数据.doc"
ar = ActiveSheet.[a1].CurrentRegion
wdApp.Visible = False
Set wdd = wdApp.Documents.Open(mb)
For i = 1 To wdd.tables.Count
For j = 1 To 4
wdd.tables(i).cell(2, j).Range.Text = ar(i, j)
Next j
Next i
wdd.Save
wdd.Close True
Set wdd = Nothing
Set wdApp = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "耗时：" & Format(Timer - t, "0.00") & "秒"
End Sub
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2022-11-2 16:50
