工作交接或者新項目完成，我們往往需要寫接口文檔和數據庫字典等資料，接口文檔的生成方案很多，並且資料很多，這裏就不贅述了，下面分享一個快速生成“數據庫字典”的小技巧。
使用工具【navicat12+,excel2016】 理論上講，沒有版本要求。
1.藉助Navicat將表結構數據導出。
use xx_pro; # 數據庫名稱
show tables;
將要生成數據庫字典的數據庫中的表全部求出來。
然後，右鍵複製，將結果複製成帶分割線的數據，主要是爲了下一步做準備。
SELECT
t.TABLE_SCHEMA AS 庫名,
t.TABLE_NAME AS 表名,
t.COLUMN_NAME AS 字段名,
t.COLUMN_TYPE AS 數據類型,
CASE IFNULL(t.COLUMN_DEFAULT,'Null')
WHEN '' THEN '空字符串'
WHEN 'Null' THEN 'NULL'
ELSE t.COLUMN_DEFAULT END AS 默認值,
CASE t.IS_NULLABLE WHEN 'YES' THEN '是' ELSE '否' END AS 是否允許爲空,
t.COLUMN_COMMENT AS 字段說明
FROM information_schema.COLUMNS t
WHERE t.TABLE_SCHEMA='【替換成你要導出的數據庫，比如xxx_pro】' AND t.TABLE_NAME in
(【剛纔求出的數據表名稱，注意要拼一下't1',t2'類似的格式】)
2. 導出結果，格式選擇 excel 2007+ (xlsx)
3.然後就是，對錶格進行分表了，默認生成在一個sheet中。
實際上就是vba宏腳本，具體的創建腳本和執行腳本，可以參考上文，或者自行百度，很簡單的。
可以加個按鈕，將宏指向腳本。原文裏邊說的F5直接執行不太方便觀看。
Sub Splitdatabycol()
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub
3.數據分表之後，就是生成目錄了，可以參考:https://baijiahao.baidu.com/s?id=1625821270601340382&wfr=spider&for=pc
至於樣式，可以在自行調整了。