如何导入数据呀~!

什么导入数据?说明白一点.

就是把数据库里的数据放到word的表里

没有人说!还是太简单了~!

.Cell(2, 1).Range.Text = "项目名称"
.Range.Cells(3).Row.Cells.Merge
.Range.Cells(3).Range.Font.Size = 15
.Range.Cells(3).Range.Text = "信息来源/文献检索范围：" & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(4).Row.Cells.Merge
.Range.Cells(4).Range.Text = "情况描述/检索结果：" & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(5).Row.Cells.Merge
.Range.Cells(5).Range.Text = "影响分析：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(6).Row.Cells.Merge
.Range.Cells(6).Range.Text = "建议：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(7).Row.Cells.Merge
.Range.Cells(7).Range.Text = "专家组成员：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(8).Row.Cells.Merge
.Range.Cells(8).Range.Text = "附件目录：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(9).Row.Cells.Merge
.Range.Cells(9).Range.Text = "报告负责人：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & " 年 月 日"

老兄,这个就是表的内容填充啊.你看下代码啊.

也是用 Dim newDoc As Word.Document
Set newDoc = New Word.Document
这个啊!这样每次都new一个,速度很慢的!如果已经有打开的word 可以考虑直接用已经打开的word应用啊!

导出的内容只有 "信息来源/文献检索范围："这样的标题,我想把数据库中标题这个字段的数据也放到word里,应该加点啥呢,能举个例吗~!

如果说你的数据库字段数据RS("FNAME")
.Range.Cells(3).Range.Text = "信息来源/文献检索范围：" & vbCrLf & RS("FNAME").VALUE & vbCrLf & vbCrLf

谢谢

郁闷,你真不是一般的菜呀,纯粹门外汉.......