Office中国论坛/Access中国论坛

标题: 请高手按例讲解ACCESS字段值是如何导出到文本文件中去的? [打印本页]

作者: 付谦 时间: 2006-6-15 05:21
标题: 请高手按例讲解ACCESS字段值是如何导出到文本文件中去的?
经过一段时间的学习，掌握了ACCESS表导出到文本文件中一些知识，但附件中 [attach]18494[/attach] 是如何将ACCESS表的字段值分别导出到文本文件中一直不得其解。请高手能否以附件为例详细讲解一下其操作办法及相关程序代码的含义。ACCESS表的字段值分别导出到文本文件中在具体工作中非常有用。急！

作者: andymark 时间: 2006-6-15 07:02
现在网吧，不知你附件是什么内容，把问题描述具体一点

作者: 付谦 时间: 2006-6-15 16:25
现附上[attach]18499[/attach]
点击隐患数据输入窗口＼生成ＷＯＲＤ　，见＂安全隐患整改通知书＂，请教＂安全隐患整改通知书＂文本中的ＡＣＣＥＳＳ字段值是如何来的？　　　　　　　　　　　　　　　　　　　

作者: 情比金坚 时间: 2006-6-15 19:27
不是有源码吗？

Set Doc = CreateObject("word.application")
Doc.Visible = True
'打开Word文件
Doc.Documents.Open FileName:=CurrentProject.path & "\安全隐患通知书.dot"
'在Word文件中写入记录
Doc.Documents("安全隐患通知书.dot").FormFields(1).result = Me.ID
Doc.Documents("安全隐患通知书.dot").FormFields(2).result = Me.客户法定名称
Doc.Documents("安全隐患通知书.dot").FormFields(3).result = Me.同志
Doc.Documents("安全隐患通知书.dot").FormFields(4).result = Me.客户属性
Doc.Documents("安全隐患通知书.dot").FormFields(5).result = Me.客户属性
Doc.Documents("安全隐患通知书.dot").FormFields(6).result = Me.违章物地点
Doc.Documents("安全隐患通知书.dot").FormFields(7).result = Me.类型ID.Column(1)
Doc.Documents("安全隐患通知书.dot").FormFields(8).result = Me.规格ID.Column(1)
Doc.Documents("安全隐患通知书.dot").FormFields(9).result = Me.品种ID.Column(1)
Doc.Documents("安全隐患通知书.dot").FormFields(10).result = Me.设备型号
Doc.Documents("安全隐患通知书.dot").FormFields(11).result = Me.接触方式
Doc.Documents("安全隐患通知书.dot").FormFields(12).result = Me.安全距离
Doc.Documents("安全隐患通知书.dot").FormFields(13).result = Me.品种ID.Column(1)
Doc.Documents("安全隐患通知书.dot").FormFields(14).result = Me.水平距离
Doc.Documents("安全隐患通知书.dot").FormFields(15).result = Me.垂直距离
Doc.Documents("安全隐患通知书.dot").FormFields(16).result = Me.发送日期
Doc.Documents("安全隐患通知书.dot").FormFields(17).result = Me.ID
Doc.Documents("安全隐患通知书.dot").FormFields(18).result = Me.客户法定名称
Doc.Documents("安全隐患通知书.dot").FormFields(19).result = Me.同志
Doc.Documents("安全隐患通知书.dot").FormFields(20).result = Me.客户属性
Doc.Documents("安全隐患通知书.dot").FormFields(21).result = Me.客户属性
Doc.Documents("安全隐患通知书.dot").FormFields(22).result = Me.违章物地点
Doc.Documents("安全隐患通知书.dot").FormFields(23).result = Me.类型ID.Column(1)
Doc.Documents("安全隐患通知书.dot").FormFields(24).result = Me.规格ID.Column(1)
Doc.Documents("安全隐患通知书.dot").FormFields(25).result = Me.品种ID.Column(1)
Doc.Documents("安全隐患通知书.dot").FormFields(26).result = Me.设备型号
Doc.Documents("安全隐患通知书.dot").FormFields(27).result = Me.接触方式
Doc.Documents("安全隐患通知书.dot").FormFields(28).result = Me.安全距离
Doc.Documents("安全隐患通知书.dot").FormFields(29).result = Me.品种ID.Column(1)
Doc.Documents("安全隐患通知书.dot").FormFields(30).result = Me.水平距离
Doc.Documents("安全隐患通知书.dot").FormFields(31).result = Me.垂直距离
Doc.Documents("安全隐患通知书.dot").FormFields(32).result = Me.发送日期

'释放对象变量
Set Doc = Nothing
End Sub

作者: 付谦 时间: 2006-6-16 15:31
请告知

1.在WORD模板中是如何设定是域,其操作详情

2.Doc.Documents("安全隐患通知书.dot").FormFields(2).result = Me.客户法定名称

代码中FormFields(2).result 是何意思,其中(2).是否是WORD模板中的域位置?在模板中是如何定义的?

作者: 付谦 时间: 2006-6-16 20:44
怎么没人指点?急

作者: skylark 时间: 2006-6-16 21:10
标题: 回复：（付谦）怎么没人指点?急
在Word上边框右键调出窗体工具栏后插入窗体文本框,见图:

[attach]18534[/attach]

作者: 付谦 时间: 2006-6-17 06:39
能否分步骤告诉详细的操作方法?谢谢!

作者: 情比金坚 时间: 2006-6-17 10:39
编写好一篇word文档，将其中要变动的地方定义为“文字型窗体域”，另存为模版文档，用vba填充这些窗体域

这样写也行：FormFields("Text1").Result = "ABCDBEFG"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)