实际上，接收到的JSON包含中文字符而不是
?您发布的字符，应如下所示：
{ "status": "ok", "data": { "aqi": 164, "idx": 7130, "attributions": [ { "name": "Hunan Environmental Protection Agency (湖南省环境保护厅)" }, { "name": "China National Urban air quality real-time publishing platform (全国城市空气质量实时发布平台)" } ], "city": { "geo": [ 33.8561, 115.7831 ], "name": "sanguó lanshèng gong, Bozhou" }, "dominentpol": "pm25", "iaqi": { "co": { "v": 14.8 }, "no2": { "v": 24.7 }, "o3": { "v": 45.9 }, "pm10": { "v": 97 }, "pm25": { "v": 164 }, "so2": { "v": 5.1 } }, "time": { "s": "2017-04-06 04:00:00", "tz": "+08:00", "v": 1491451200 } }}因此，您必须设置要明确附加为Unipre的代码片段的编码。我建议使用以下简单功能通过以下方式读取，写入和附加文本文件
scripting.FileSystemObject：
Function ReadTextFile(sPath As String, lFormat As Long) As String ' lFormat -2 - System default, -1 - Unipre, 0 - ASCII With CreateObject("scripting.FileSystemObject").OpenTextFile(sPath, 1, False, lFormat) ReadTextFile = "" If Not .AtEndOfStream Then ReadTextFile = .ReadAll .Close End WithEnd FunctionSub WriteTextFile(sContent As String, sPath As String, lFormat As Long) With CreateObject("scripting.FileSystemObject").OpenTextFile(sPath, 2, True, lFormat) .Write sContent .Close End WithEnd SubSub AppendTextFile(sContent As String, sPath As String, lFormat As Long) With CreateObject("scripting.FileSystemObject").OpenTextFile(sPath, 8, True, lFormat) .Write sContent .Close End WithEnd Sub因此，您可以通过调用附加字符串：
AppendTextFile Jsonline & vbCrLf, "C:JSON_AQI.json", -1
