AccessVBA-将表格导出为CSV文件
创始人
2024-07-23 00:30:25
0

下面是实现将Access VBA中的表格导出为CSV文件的示例代码:

Public Sub ExportTableToCSV(tableName As String, filePath As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim fs As Object
    Dim file As Object
    Dim field As DAO.Field
    Dim headerStr As String
    Dim rowStr As String
    Dim i As Integer
    
    '打开数据库
    Set db = CurrentDb()
    
    '获取指定表的记录集
    Set rs = db.OpenRecordset(tableName, dbOpenSnapshot)
    
    '创建文件系统对象
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    '创建CSV文件
    Set file = fs.CreateTextFile(filePath, True, True)
    
    '写表头
    For Each field In rs.Fields
        headerStr = headerStr & "," & field.Name
    Next field
    headerStr = Mid(headerStr, 2)
    file.WriteLine headerStr
    
    '写记录
    Do Until rs.EOF
        rowStr = ""
        For i = 0 To rs.Fields.Count - 1
            rowStr = rowStr & "," & rs.Fields(i).Value
        Next i
        rowStr = Mid(rowStr, 2)
        file.WriteLine rowStr
        rs.MoveNext
    Loop
    
    '关闭文件和记录集
    file.Close
    rs.Close
    Set file = Nothing
    Set rs = Nothing
    
    MsgBox "导出成功!"
End Sub

这个代码中的ExportTableToCSV过程接受两个参数:tableName和filePath。tableName是要导出的表的名称,filePath是要保存CSV文件的路径和文件名。代码首先打开指定表,然后创建一个CSV文件,并在CSV文件的第一行写入表头。接下来,代码循环遍历记录集,每个记录写入CSV文件的新行中。最后,关闭文件和记录集。

你可以通过在Access VBA中调用这个过程来导出指定的表格为CSV文件。例如,可以通过以下方式将名为“students”的表格导出到名为“students.csv”的文件中:

ExportTableToCSV "students", "C:\exported\students.csv"

相关内容

热门资讯

安卓系统怎么连不上carlif... 安卓系统无法连接CarLife的原因及解决方法随着智能手机的普及,CarLife这一车载互联功能为驾...
iwatch怎么连接安卓系统,... 你有没有想过,那款时尚又实用的iWatch,竟然只能和iPhone好上好?别急,今天就来给你揭秘,怎...
oppo手机安卓系统换成苹果系... OPPO手机安卓系统换成苹果系统:现实吗?如何操作?随着智能手机市场的不断发展,用户对于手机系统的需...
安卓平板改windows 系统... 你有没有想过,你的安卓平板电脑是不是也能变身成Windows系统的超级英雄呢?想象在同一个设备上,你...
iphone系统与安卓系统更新... 最近是不是你也遇到了这样的烦恼?手机更新系统总是失败,急得你团团转。别急,今天就来给你揭秘为什么iP...
安卓系统上滑按键,便捷生活与高... 你有没有发现,现在手机屏幕越来越大,操作起来却越来越方便了呢?这都得归功于安卓系统上的那些神奇的上滑...
安卓系统连接耳机模式,蓝牙、有... 亲爱的手机控们,你们有没有遇到过这种情况:手机突然变成了“耳机模式”,明明耳机没插,声音却只从耳机孔...
希沃系统怎么装安卓系统,解锁更... 亲爱的读者们,你是否也像我一样,对希沃一体机上的安卓系统充满了好奇呢?想象在教室里,你的希沃一体机不...
安装了Anaconda之后找不... 在安装Anaconda后,如果找不到Jupyter Notebook,可以尝试以下解决方法:检查环境...
安卓平板改双系统,轻松实现一机... 你有没有想过,你的安卓平板可以变成一个双系统的小怪兽呢?没错,就是那种既能流畅运行安卓应用,又能优雅...