求助：查询数据导出单个的CSV文件

xulanghui

各位高手：
我现在需要将查询出来的数据，导出为单个CSV格式的文件，便于其它软件导入。
由于不会代码，网上查了一些方法也没学会，麻烦会做的帮直接在附件中加上，感谢不尽！

xulanghui

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

xulanghui

已解决，谢谢

roych

其实和导出Excel是差不多的。既然你的宏1都做出来了，把宏改一下，用ImportExportText（2003版本以前叫做“TransferText”），选择分隔符，然后把扩展名加上等等就好了。最后，如果希望执行宏的话，右击按钮属性，在点击事件里选择合适的宏即可，如图所示。

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