看了这篇，EXCEL 导出 JSON 再也不用求人啦

一般团队的导表工具都是程序写的，有好的方面，也有坏的方面.好的方面是: 程序会对比 MD5 码来确定文件一致.坏的方面是: 要规定文件路径，只能一次性转换所有表格，或者选择所需转换表格时难用的 UI, 表格 sheet 名和表的某一行必须有特殊规定等.最大的问题还是这个工具对策划并不开源，加上导表工具里还有上传 SVN, 重启服务器等一系列自动化操作，出了错误之后无法确定是配置数据问题，还是工具问题，网络问题，在这条管线里面，就有了巨大的甩锅空间.

所以策划要牢牢把握住这口锅，出了错就是你配置的错，谁让你离开了 Excel 连游戏都不会做了呢? 下面以 json 格式举例，讲几种策划也能学会的方法，制作自己的导表工具.

题外话，非常不推荐直接把 Excel 导入进数据库的操作.

方法一: 手动转换

最简单的就是复制粘贴手动存成 json, 对，就这样干，因为程序要的就是个 json 文件而已.沙塔斯城里的商人说过一句话:

“你要战争，我就给你战争，水果贩.”

我们先分析下 json 格式一般是什么样的，以下面这段为例:

可以看出，整个文件是用大括号 {} 包裹起来，左边引号里的是 key, 右边是对应的 value. Value 有多种类型: 是个数字的 / 用引号圈起来的 / 用大括号圈起来的 / 和用中括号圈起来的，那么我们只要弄成这样就好了.

下面看 excel 表格里面的格式一般是这样的:

第一行是字段名，下面是字段的值，一般用 id 作为数据库里面的 key, 或者还有自动生成的 uid, 增加一行用作标记改字段的类型等，大差不差的内容.我们需要的就是把每一行都通过 “字段: 值，字段: 值…” 的形式连接起来，然后用个大括号来包裹即可.

我们后面加一列，通过 Excel 的函数，来获取我们需要的数据.给策划新人们一个建议，就是函数要一步一步地写，哪怕一共有十几步，每一步的结果都放在一列里，确认结果正确后，再拼接到一起，写一个超长的函数 (不能超过 255 个字符), 然后删掉中间的步骤，云淡风轻地对旁边的人说:”不就是这样简单吗?”

第一步:

=INDEX($A$1:$F$1,COLUMN(A2))

index 函数用来获得字段名，第一个参数 $A$1:$F$1 是第一行需要的字段范围，注意加上 $ 符号，快捷键是 F4…(自己搜索吧，有一种教人 ‘ 这是冰箱 ‘ 的感觉), 第二个参数是当前值所在的列号，如果前面还有空行的话，这里要减去相应的数量.

横着一拖，竖着一拖，看到了需要的内容是我们要的 key.

接着连接冒号和每一行的值:

=INDEX($A$1:$F$1,COLUMN(A2))&":"&A2

然后使用 textJoin 函数，连接在一起，外面接上大括号就好了.

="{"&TEXTJOIN(",",TRUE,G2:L2)&"}"

有人问了，所需要的 json 的 key 有引号的啊，要怎么办?

最简单的就是字段名字就给他加上引号!

到这里主体部分就完成了，每一条 {} 大括号里面的，都是个 json 的对象.对象之间用 [] 包裹起来，就是一个 json 的列表，或者还有 {} 包裹组成 kv 对，那么就只需要在把拼接的内容再次按照要求拼接就好了.

有人可能会问了，最重要的云淡风轻，怎么还没讲? 这么多辅助列，明明是手忙脚乱啊? 怎么能写到一个函数里面啊?

别急，这里我们要用到数组公式.直接上公式:

{="{"&TEXTJOIN(",",TRUE,INDEX($A$1:$F$1,COLUMN(A2:F2))&":"&A2:F2)&"}"}

只要把值从一个格子 A2, 变成一个范围 A2:F2, 然后按 CTRL+SHITF+ENTER 输入数组公式就好了.(数组公式最外面的大括号不是打字打上去的…)

至此，终于可以云淡风轻了，因为一般程序猿也不太会用 Excel, 这样就显得你很专业了.

方法二: 自定义函数加载项

上面的例子中，有的字段的值是数组，用 [] 中括号引起来，例如

"keywords":["小猪","小肚","小鸡"]

或者自定义的类似 lambda 表达式的东西

scripts:(Count(Unit))=100&Count(Wonder)=3IsDead(Bob)

这个时候为了策划填表方便，可能每一列都有特殊的拼接方法，我们在第二行里面写上值的类型，示例如下:

这种会有很多特殊的，定制的内容，例如看到 lambda 的时候，赋值给一个临时变量名，例如

lambda1=(Count(Unit))=100&Count(Wonder)=3IsDead(Bob)

array 字段为了策划填写方便，用逗号分割起来，生成的时候还是要分别加上引号，并用中括号括起来

"keyword":["小猪","小肚","小鸡"]

面对这些定制化的需求，直接用 Excel 里的函数，就捉襟见肘了.那么我们来自己写一个，高度定制化的函数。

打开 Visual Basic 的 IDE，如果你的 Excel 不显示开发工具选项卡，则需要在自定义功能区里勾选一下。

插入一个模块，写入下列代码：

Function textToJson(ByVal s As Variant)  Dim myKey,myValue Dim valueType Dim output '将单元格范围作为选中范围 Dim mr As Range Set mr = s  '读取第一行的key，和当前的value组成一对 For Each i In mr           If Not IsEmpty(i) And i <> 0 Then                        '通过第二行的类型来处理对应的值                 valueType = Cells(2, i.Column)                 myKey = Cells(1, i.Column)                 myValue = i.value                                  Select Case valueType                         'lambda把key特殊处理，加一个用行号作为序列号的变量                 Case "lambda"                      myKey = "lambda" & i.Row - 2                        output = output & myKey & "=" & myValue & ","                                    'array把值特殊处理，将逗号分隔的字符串放在一个数组里                Case "array"                     temp = ""                        tempString = Split(i.value, ",")                        For Each k In tempString                             temp = temp & Chr(34) & k & Chr(34) & ","                        Next k                        temp = Left(temp, Len(temp) - 1)                        temp = "[" & temp & "]"                        myValue = temp                        output = output & myKey & ":" & myValue & ","                                   '情况不做处理               Case Else                   output = output & myKey & ":" & myValue & ","                       End Select       End If Next i  '最后拼接一下 If IsError(output) Or Len(output) <= 1 Then     textToJson = "" Else     output = Left(output, Len(output) - 1)        textToJson = "{" & output & "}"   End If End Function

这样我们定义了 textToJson（）这个函数，在最后一列里面输入 = textToJson (A3:F3) 即可转换。

如果其他表格也想使用该函数，但是不想转换成 xlsm 这带宏的格式，怎么办？

我们可以把这个文件另存为 xlam，作为加载宏，给其他表格使用。

其他表格使用时，通过开发工具》Excel 加载项》浏览 找到该文件，即可使用 textToJson 这个自定义函数。

方法三：VBA

上面既然已经用了自定义函数，还要另存为等手动操作，那么不如使用 VBA 直接导出。写法基本一样，只不过创建了一个 json 文件作为 object 来承载导出的内容。注意，如果报出找不到对象的错误的话，那么可以去人民公园试试。

Sub toJson()  Dim i, j, k As Integer Dim myString, output As String Dim myRange As Range Dim myArr() Dim myTitle() Dim WriteStream As Object   Set MyFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("D:testjson.json", 8, True)  myString = "" output = ""  i = 0 j = 0 k = 0  Set myRange = Selection myArr = myRange  ReDim myTitle(20)  For k = 0 To myRange.Columns.Count - 1      myTitle(k) = myArr(1, k + 1)      Next k   For i = 2 To myRange.Rows.Count       output = output & "{"                        For j = 1 To myRange.Columns.Count                                         If myTitle(j - 1) = "truth" Then                                 myString = Trim(myArr(i, j))                                                            output = output & Chr(34) & myTitle(j - 1) & Chr(34) & ":" & LCase(myString) & ","                                     ElseIf myTitle(j - 1) = "tag" Or myTitle(j - 1) = "falseWord" Then                                             myString = Trim(myArr(i, j))                                               output = output & Chr(34) & myTitle(j - 1) & Chr(34) & ":[" & mySubString(myString) & "],"                                     ElseIf myTitle(j - 1) = "difficulty" Then                                         myString = Trim(myArr(i, j))                                            output = output & Chr(34) & myTitle(j - 1) & Chr(34) & ":" & myString & ","                                       Else                             myString = Trim(myArr(i, j))                                                            output = output & Chr(34) & myTitle(j - 1) & Chr(34) & ":" & Chr(34) & myString & Chr(34) & ","                              End If                                  Next j                      output = Mid(output, 1, Len(output) - 1)            output = output & "}," & Chr(10)                 Next i        output = Mid(output, 1, Len(output) - 2)     '    Set WriteStream = CreateObject("ADODB.Stream") ' '    With WriteString'          .Type = 2'                  .Charset = "UTF-8"' '    End With                MyFile.WriteLine (output)                    MyFile.Close          Set MyFile = Nothing                    MsgBox "成功！！"          'UserForm1.TextBox1.Text = output          'UserForm1.Show                 End Sub

以上代码是我们做过的一个答题游戏的例子，超过几万条有趣的问题。配置表可以稍微露一下：

方法四：其他

大家可能会问了，这一个一个表格的导出，太麻烦了，能不能一起导出多张？很多公司用 VBA 写过导出多张表格的工具，我也写过，但因为 VBA 先天的弱势，速度极慢，还容易卡死。

这里推荐用 python 去写，速度快 100 倍。可以用 openpyxl 库，至于如何写，可以参考上一篇文章：

因为很简单，在此不再赘述了，可以作为初学 python 的某种练习。还可以通过 pandas 模块把 excel 读成字典对象，然后直接存进 mySQL 或者 mongodb，根本不需要导表这个中间过程了。

本文来自微信公众号：，作者：千两