我需要要将选定数据表输出成TXT文件，以TAB分开，该如何做？

大熊

如题：
(Excel导入导出-相关文章技巧链接)：
将选定Access数据表导出成TXT文件，并以TAB分开

cattjiu

手动还是用VBA？

大熊

会了，谢谢。

夜鹰

我也想知道
怎么做的
版主说来让我也学学

大熊

1、用transfertext方法
2、编程写入文本文件，循环处理每一个记录。
当然，两者有些区别，第二个方法优点是灵活些。

夜鹰

具体代码和写入方法？
大哥，不要忘记小弟菜鸟一只啊
你怎也得罩着点啊

大熊

我也没写过！

李啸林

我写过,以下程序输出给工商银行的文本文件.

Private Sub 工行输出(ID As Integer, SQL As String, Err_str)
'SQL格式 帐号 姓名 合计
Dim db As Database
Dim rstTemp As Recordset
Dim strLine As String
Dim Hj As String
Dim NAME As String

Set db = CurrentDb
Set rstTemp = db.OpenRecordset(SQL)

Do Until rstTemp.EOF
  With rstTemp.Fields
    If Len(Trim(!帐号)) <> 19 Then
      Err_str = Err_str & vbCrLf & !帐号 & " " & !姓名 & " " & !合计 & "帐号错误"
    Else
      strLine = Trim(!帐号) & " "
      NAME = Trim(mID(!姓名, 2))
      If Len(NAME) = 1 Then
        NAME = "  " & NAME & "  "
      End If
      If Len(NAME) = 2 Then
        NAME = NAME & "  "
      End If
      strLine = strLine & Left(!姓名, 1) & NAME & " "
      Hj = CStr(!合计 * 100)
      Select Case Len(Hj)
            Case 1: Hj = "00000000" & Hj
            Case 2: Hj = "0000000" & Hj
            Case 3: Hj = "000000" & Hj
            Case 4: Hj = "00000" & Hj
            Case 5: Hj = "0000" & Hj
            Case 6: Hj = "000" & Hj
            Case 7: Hj = "00" & Hj
            Case 8: Hj = "0" & Hj
      End Select
      strLine = strLine & Hj
      Print #ID, strLine
    End If
    rstTemp.MoveNext
  End With
Loop

Set rstTemp = Nothing
Set db = Nothing

End Sub

李啸林

接.

Private Sub 工资输出(strErr As String)
Dim ID As Integer
Dim strSQL As String

ID = FreeFile

Open 输出目标 For Output As #ID

strSQL = "SELECT 帐号,姓名,合计 " _
       & "FROM 工资明细 " _
       & "WHERE 开户行 = '工行' " _
       & "ORDER BY 帐号;"
      
工行输出 ID, strSQL, strErr

Close #ID

End Sub

夜鹰

谢啦，改天俺试试去