设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 5458|回复: 13
打印 上一主题 下一主题

[Access本身] 我需要要将选定数据表输出成TXT文件,以TAB分开,该如何做?

[复制链接]
跳转到指定楼层
1#
发表于 2002-12-13 00:59:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
如题:
(Excel导入导出-相关文章技巧链接):
将选定Access数据表导出成TXT文件,并以TAB分开

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
14#
发表于 2015-7-2 10:08:43 | 只看该作者
我也要了
回复

使用道具 举报

点击这里给我发消息

13#
发表于 2015-6-26 14:13:57 | 只看该作者
good
回复

使用道具 举报

点击这里给我发消息

12#
发表于 2015-5-12 08:08:04 | 只看该作者
good
回复

使用道具 举报

11#
发表于 2007-7-26 01:10:00 | 只看该作者
多少年的帖子了 才看到。
10#
发表于 2002-12-13 22:45:00 | 只看该作者
谢啦,改天俺试试去
9#
发表于 2002-12-13 21:08:00 | 只看该作者
接.

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
8#
发表于 2002-12-13 21:05:00 | 只看该作者
我写过,以下程序输出给工商银行的文本文件.

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


7#
 楼主| 发表于 2002-12-13 19:34:00 | 只看该作者
我也没写过!
6#
发表于 2002-12-13 19:22:00 | 只看该作者
具体代码和写入方法?
大哥,不要忘记小弟菜鸟一只啊
你怎也得罩着点啊
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-11 05:38 , Processed in 0.083246 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表