导出所有表为CSV文件

新年新气象

大家新年好，兔年大吉，大家都开工了吗，新的一年大家都有什么新的愿景呢。

今天，我给大家接着分享一个导出的示例，将Access所有的都导出CVS。

什么是CVS格式的数据呢？

逗号分隔值（Comma-Separated Values，CSV，有时也称为字符分隔值，因为分隔字符也可以不是逗号），其文件以纯文本形式存储表格数据（数字和文本）。

那接下去，我们就来看一下具体的操作吧。

01

创建表

首先，我们要建几张表，用于批量导出使用。像截图，我建几张表。（这里我顺便蹭一下热度）

 

02

创建窗体

接着，我们新建窗体，在窗体上放一个按钮，用于导出。

 

03

添加代码

窗体添加好后，我们就可以添加代码了。

Private Sub btnCSV_Click()
Dim strOut As String
    Dim tbl As AccessObject
    With Application.FileDialog(4)
        .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.AllTables
        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
    MsgBox "导出完成。", vbInformation
End Sub

04

运行测试

最后，就是运行测试了，测试可以看出我们将所有的表导出了，导出的数据为.cvs格式。

 

好了，今天的分享就到这里了。