將選定Access數(shù)據(jù)表導(dǎo)出成TXT文件，并以TAB分開

大熊
1、用transfertext方法
2、編程寫入文本文件，循環(huán)處理每一個(gè)記錄。
當(dāng)然，兩者有些區(qū)別，第二個(gè)方法優(yōu)點(diǎn)是靈活些。

李嘯林

使用 Open 輸出目標(biāo) For Output As #ID 對文本文件進(jìn)行處理

我寫過,以下程序?qū)⑾嚓P(guān)數(shù)據(jù)導(dǎo)出 輸出給工商銀行的Txt文本文件.

Private Sub 工行輸出(ID As Integer, SQL As String, Err_str)
'SQL格式 帳號 姓名 合計(jì)
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 & !帳號 & " " & !姓名 & " " & !合計(jì) & "帳號錯(cuò)誤"
    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(!合計(jì) * 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 輸出目標(biāo) For Output As #ID

strSQL = "SELECT 帳號,姓名,合計(jì) " _
       & "FROM 工資明細(xì) " _
       & "WHERE 開戶行 = '工行' " _
       & "ORDER BY 帳號;"
       
工行輸出 ID, strSQL, strErr

Close #ID

End Sub



(設(shè)計(jì)規(guī)范-相關(guān)文章技巧鏈接)：
ACC批量導(dǎo)入文本文件詳解