在VB中调用Word应用程序实现动态报表？

[fuanwei]

在VB中调用Word应用程序实现动态报表？如何实现

[fuanwei]

up

[ukyoxh]

我都是用excel做的,sorry

给你一段excel的代码吧!

Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim file As String

FileCopy App.path & "\report\表.xls", App.path & "\表.xls"
file = App.path & "\表.xls"

Set xlapp = New Excel.Application
'Set xlapp = CreateObject("excel.Application")
'xlapp.Visible = False '''''隐藏excel
Set xlbook = xlapp.Workbooks.Open(file)
xlbook.Application.DisplayAlerts = False


With xlbook.Sheets(1)

For R = 1 To Sl
For c = 1 To 15
Vas.Row = (i - 1) * Sl + R
Vas.Col = c

.Cells(R + 4, c) = Vas.Text
If c = 6 Then
.Cells(R + 4, c) = Format(Vas.Text, "yyyy-mm-dd")
End If

Next
Next
.PageSetup.Orientation = xlLandscape
.PrintOut
xlapp.Visible = False
xlapp.ActiveWorkbook.Saved = True
xlapp.Quit
Set xlbook = Nothing
Set xlapp = Nothing
Label6.Caption = "已经打印 " & i & "页"
End With


Next

[fuanwei]

我要的是调用事先设计好的world模板

[lilyhxd]

dim wordapp as word.application

'----------------------------

set wordapp=new word.application
wordapp.open "-----此处添加模板
wordapp.visible=true/false
'---------------此处添加具体报表内容
wordapp.printout
wordapp.document.close false
set wordapp=nothing

[nccxf]

我也想知道，最近也遇见这个问题，关注。。。。。。。