导出数据到文本

boyryan

我需要将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

哪位大侠给支点招吧[em06]

ouxingwang

使用这段代码就可以了。

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