如何从Access设计视图高效提取字段名称与数据类型？

针对手动复制字段名称和数据类型效率低的问题，以下几种方案可以快速生成你需要的表格：

方案1：通过系统表查询直接获取 #

Access内置了存储元数据的系统表，通过SQL查询可直接导出结构化结果：

1. 开启系统表显示：文件 > 选项 > 当前数据库 > 导航选项 > 勾选「显示系统对象」
2. 创建新查询，切换到SQL视图，输入以下语句（替换你的表名）：

SELECT 
    ROW_NUMBER() OVER (ORDER BY c.ColOrder) AS 序号,
    c.Name AS 字段名称,
    SWITCH(
        c.Type=10, 'Text',
        c.Type=4, 'Number',
        c.Type=1, 'Yes/No',
        c.Type=8, 'Date/Time',
        c.Type=12, 'OLE Object',
        c.Type=20, 'Hyperlink',
        c.Type=11, 'Attachment',
        c.Type=6, 'Currency',
        c.Type=7, 'AutoNumber'
    ) AS 数据类型
FROM 
    MSysObjects o
INNER JOIN 
    MSysColumns c ON o.Id = c.ObjectId
WHERE 
    o.Name = '你的表名'
    AND o.Type = 1;

3. 运行查询后，结果直接就是你需要的表格格式，可复制到Excel或导出为CSV。

方案2：VBA脚本批量导出 #

如果需要处理多个表，用VBA能实现自动化：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴代码：

Sub ExportTableFields()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim tblName As String
    Dim outputPath As String
    Dim i As Integer
    
    tblName = "你的表名" ' 替换为目标表名
    outputPath = "C:\字段信息.csv" ' 替换为输出路径
    
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT Name, Type FROM MSysColumns WHERE ObjectId = (SELECT Id FROM MSysObjects WHERE Name = '" & tblName & "' AND Type=1) ORDER BY ColOrder")
    
    Open outputPath For Output As #1
    Print #1, "序号,字段名称,数据类型"
    
    i = 1
    Do While Not rs.EOF
        Dim typeName As String
        Select Case rs!Type
            Case 1: typeName = "Yes/No"
            Case 4: typeName = "Number"
            Case 6: typeName = "Currency"
            Case 7: typeName = "AutoNumber"
            Case 8: typeName = "Date/Time"
            Case 10: typeName = "Text"
            Case 11: typeName = "Attachment"
            Case 12: typeName = "OLE Object"
            Case 20: typeName = "Hyperlink"
            Case Else: typeName = "未知类型"
        End Select
        
        Print #1, i & "," & rs!Name & "," & typeName
        i = i + 1
        rs.MoveNext
    Loop
    
    Close #1
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "导出完成：" & outputPath
End Sub

2. 修改表名和输出路径，运行宏即可生成包含序号的CSV表格。

方案3：文档管理器快速提取 #

适合快速查看并提取字段信息：

1. 点击数据库工具 > 分析 > 文档管理器
2. 勾选目标表，点击「确定」生成文档
3. 从文档中复制字段名称和数据类型列，整理成你需要的表格格式

内容的提问来源于stack exchange，提问作者maggTech