标题: 求助：查询数据导出单个的CSV文件 [打印本页] 作者: xulanghui 时间: 2020-2-16 23:08 标题: 求助：查询数据导出单个的CSV文件 各位高手：
我现在需要将查询出来的数据，导出为单个CSV格式的文件，便于其它软件导入。
由于不会代码，网上查了一些方法也没学会，麻烦会做的帮直接在附件中加上，感谢不尽！ 作者: xulanghui 时间: 2020-2-17 10:03
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 时间: 2020-2-17 10:03
已解决，谢谢作者: roych 时间: 2020-2-18 09:08
其实和导出Excel是差不多的。既然你的宏1都做出来了，把宏改一下，用ImportExportText（2003版本以前叫做“TransferText”），选择分隔符，然后把扩展名加上等等就好了。最后，如果希望执行宏的话，右击按钮属性，在点击事件里选择合适的宏即可，如图所示。
[attach]63627[/attach]
附件如下，供参考（由于没有数据源，所以没做调试。——链接表找不到数据，导出时会出错）
[attach]63628[/attach]