设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1885|回复: 3

[查询] 求助:查询数据导出单个的CSV文件

[复制链接]

点击这里给我发消息

发表于 2020-2-16 23:08:28 | 显示全部楼层 |阅读模式
30金钱
各位高手:
我现在需要将查询出来的数据,导出为单个CSV格式的文件,便于其它软件导入。
由于不会代码,网上查了一些方法也没学会,麻烦会做的帮直接在附件中加上,感谢不尽!

附件: 您需要 登录 才可以下载或查看,没有帐号?注册

点击这里给我发消息

 楼主| 发表于 2020-2-17 10:03:08 | 显示全部楼层
Private Sub Command0_Click()
Call ExportExcelCSV
End Sub
Sub ExportExcelCSV()
    Dim strOut As String
    Dim tbl As AccessObject


    With Application.FileDialog(4)    ' msoFileDialogFolderPicker
        .Title = "Please select the target folder"
        If .Show Then
            strOut = .SelectedItems(1)
            If Not Right(strOut, 1) = "\" Then
                strOut = strOut & "\"
            End If
        Else
            MsgBox "You didn't select a target folder.", vbExclamation
            Exit Sub
        End If
    End With


    For Each tbl In CurrentData.AllQueries
   
        If Not tbl.Name Like "MSys*" And Not tbl.Name Like "~" Then

            DoCmd.TransferText acExportDelim, , _
                               tbl.Name, strOut & tbl.Name & ".csv", True
        End If
    Next tbl
End Sub
回复

使用道具 举报

点击这里给我发消息

 楼主| 发表于 2020-2-17 10:03:23 | 显示全部楼层
已解决,谢谢
回复

使用道具 举报

发表于 2020-2-18 09:08:15 | 显示全部楼层
其实和导出Excel是差不多的。既然你的宏1都做出来了,把宏改一下,用ImportExportText(2003版本以前叫做“TransferText”),选择分隔符,然后把扩展名加上等等就好了。最后,如果希望执行宏的话,右击按钮属性,在点击事件里选择合适的宏即可,如图所示。

附件如下,供参考(由于没有数据源,所以没做调试。——链接表找不到数据,导出时会出错)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 10:15 , Processed in 0.090704 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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