作者：绿色风
分类：
时间：2022-08-17
浏览：83
楼主
水星钓鱼 |
Q：如何将ADO的Recrodset记录集输出到Word中？
A：由于Word一般是接受文本的输入，所以要将ADO的Recrodset记录集输出到Word先要将Recrodset转换为文本，可以使用Recrodset对象的GetString方法将记录集转换为格式化的文本，然后利用Word对象接受文本。
其中一个示例代码如下：- Private Sub CommandButton1_Click()
- Dim oRecrodset
- Dim oWord
- Dim sConStr As String
- Dim sSql As String
- Dim sResult
- sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES'"
- sSql = "select * from [一月$]" & _
- " union all select * from [二月$] union all " & _
- "select * from [三月$]"
- Set oRecrodset = CreateObject("ADODB.Recordset")
- With oRecrodset
- .Open sSql, sConStr
- sResult = .GetString
- Set oWord = CreateObject("Word.Application")
- With oWord
- .Documents.Add
- .ActiveDocument.Range.Text = sResult
- .ActiveDocument.SaveAs2 ThisWorkbook.Path & "\Test", wdFormatDocument
- .Quit
- End With
- End With
- Set oRecrodset = Nothing
- Set oWord = Nothing
- End Sub
附件如下：
 将ADO的Recrodset记录集输出到Word中.rar
|
2楼
bluexuemei |
编译错误，找不到工程或库 |
3楼
水星钓鱼 |
？我这里是正常的。 |
4楼
bluexuemei |
奇怪了，我的是EXCEL2007，到底问题出在哪里呢？ |
5楼
水星钓鱼 |
截图看下出错时停在哪一行 |
6楼
bluexuemei |
wdFormatDocument |
7楼
水星钓鱼 |
这个常数07版本不认可，你查询下07下WORD的另存为的文件类型对应的常量即可。 |
8楼
bluexuemei |
查不到,版主可否帮下忙? |
9楼
水星钓鱼 |
把wdFormatDocument换成0试试，手头没有07版本的，不好测试。 |
10楼
bluexuemei |
0,1都试验过,都不行!网络上也搜索不到 |
11楼
水星钓鱼 |
把你运行的过程录制个动画上来看看。 |
12楼
老糊涂 |
 |
13楼
yytax2010 |
谢谢分享！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一