Office中国论坛/Access中国论坛

标题: 导出数据到文本 [打印本页]

作者: boyryan 时间: 2005-12-18 04:58
标题: 导出数据到文本
我需要将DATA表中的数据导出到TXT中，数据要从第二行开始，自己试过几次都不成功，请帮我看看下面的代码，谢谢！

Private Sub ddd_Click()
On Error GoTo Err_ddd_Click
  Dim rst As New ADODB.Recordset
  rst.Open "SELECT *  FROM DATA", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  Open "C:\abc.txt" For Output As #1

Print #1, "<ELEMENT>" ' 将文本数据写入文件。
Print #1, "<BGDHEAD>"; rst.Fields.Item("AWBNo").Value  '数据集字段（在这里开始循环出现所有的数据）
Print #1, "</ELEMENT>"
Close #1 ' 关闭文件。
MsgBox "完成数据导出处理工作！！！", vbOKOnly, "处理信息"

Exit_ddd_Click:
Exit Sub

Err_ddd_Click:
MsgBox Err.Description
Resume Exit_ddd_Click

End Sub

作者: boyryan 时间: 2005-12-18 17:44
哪位大侠给支点招吧[em06]

作者: ouxingwang 时间: 2005-12-21 17:58
使用这段代码就可以了。

DoCmd.TransferText acExportDelim, "", "data", "c:\文件名.txt", True, ""

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